module LIT:Model.Generator(STR)(sigtypekey =Cstring.csttypedata =int * Lang.F.termval name :stringval hid :(int, unit) Hashtbl.tval lookup :int -> intval export_literal :string -> Lang.F.Fun.t -> string -> unitval compile :Cstring.STR.t -> int * Lang.F.termend)
module G:Model.Index(siginclude Kinclude Dend)
typekey =D.key
typedata =D.data
val get : G.MAP.key -> G.E.data