Module CamlinternalMenhirLib.Convert

module Convert: sig .. end

---

type traditional('token, 'semantic_value) =
  (Lexing.lexbuf => 'token, Lexing.lexbuf) => 'semantic_value;

type revised('token, 'semantic_value) = (unit => 'token) => 'semantic_value;

let traditional2revised:
  (
    'token => 'raw_token,
    'token => Lexing.position,
    'token => Lexing.position,
    traditional('raw_token, 'semantic_value)
  ) =>
  revised('token, 'semantic_value);

let revised2traditional:
  (
    ('raw_token, Lexing.position, Lexing.position) => 'token,
    revised('token, 'semantic_value)
  ) =>
  traditional('raw_token, 'semantic_value);

module Simplified: sig .. end