X (p.pfff.0.39.4.doc.pfff-matcher.Fuzzy_vs_fuzzy.X_VS

type tin

type 'x tout

type ('a, 'b) matcher = 'a -> 'b -> tin -> ('a * 'b) tout

val (>>=) : 
  (tin -> ('a * 'b) tout) ->
  (('a * 'b) -> tin -> ('c * 'd) tout) ->
  tin ->
  ('c * 'd) tout

val (>||>) : (tin -> 'x tout) -> (tin -> 'x tout) -> tin -> 'x tout

val return : ('a * 'b) -> tin -> ('a * 'b) tout

val fail : tin -> ('a * 'b) tout

val tokenf : (Parse_info.t, Parse_info.t) matcher

val envf : (Metavars_fuzzy.mvar * Parse_info.t, Ast_fuzzy.trees) matcher