MenhirLib.ErrorReportsSourceval wrap :
(Lexing.lexbuf -> 'token) ->
(Lexing.position * Lexing.position) buffer * (Lexing.lexbuf -> 'token)val wrap_supplier :
(unit -> 'token * Lexing.position * Lexing.position) ->
(Lexing.position * Lexing.position) buffer
* (unit ->
'token * Lexing.position * Lexing.position)