sig
  val ( $| ) : x -> x -> x
  val ( $& ) : x -> x -> x
  val ( !* ) : x -> x
  val ( !+ ) : x -> x
  val ( !? ) : x -> x
  val ( !: ) : S.t -> x
  val ( !^ ) : (S.t -> bool) -> x
  val ( !~ ) : S.t Cf_seq.t -> x
  val ( $= ) : Cf_dfa.T.x -> '-> (S.t #Cf_parser.cursor, 'a) Cf_dfa.T.X.r
  val ( $> ) :
    Cf_dfa.T.x ->
    (S.t Cf_seq.t -> 'a) -> (S.t #Cf_parser.cursor, 'a) Cf_dfa.T.X.r
  val ( $@ ) :
    Cf_dfa.T.x ->
    (int -> (S.t #Cf_parser.cursor as 'a, 'b) Cf_dfa.T.X.t) ->
    ('a, 'b) Cf_dfa.T.X.r
  val ( !@ ) :
    (S.t #Cf_parser.cursor as 'a, 'b) Cf_dfa.T.X.r list ->
    ('a, 'b) Cf_dfa.T.X.r
end