Grammar.SType combinators to factor the module type between explicit state passing in Grammar and global state in Procq
module Parsable : sig ... endmodule Entry : sig ... endmodule Symbol : sig ... endmodule Rule : sig ... endmodule Rules : sig ... endmodule Production : sig ... endtype 'a single_extend_statement = string option * Gramext.g_assoc option * 'a Production.t listtype 'a extend_statement = | Reuse of string option * 'a Production.t list | (* Extend an existing level by its optional given name. If None, picks the topmost level. *) |
| Fresh of Gramext.position * 'a single_extend_statement list | (* Create a level at the given position. *) |