blob: bb140ddbc2fec9633034dbcf5450f8f8448cc6cf [file] [edit]
module Map : Map.S with type key = string
type hintenv
val hintenv : hintenv
val init_hintenv : El.Ast.def list -> unit
val find_relation : string -> El.Ast.def option
val find_hint : string -> string -> El.Ast.exp option
val unwrap_itert : Il.Ast.typ -> Il.Ast.typ * int
val extract_desc : Al.Ast.expr -> (string * string) option
val alternate : 'a list -> 'a list -> 'a list
val apply_prose_hint : string -> string list -> string
val string_of_stack_prefix : Al.Ast.expr -> string
val find_case_typ : string -> Xl.Atom.atom -> El.Ast.typ
val extract_case_hint : Il.Ast.typ -> 'a Xl.Mixop.mixop -> El.Ast.exp option
val extract_call_hint : string -> El.Ast.exp option
val is_allocxs : string -> bool
val fill_hole : El.Ast.exp list -> El.Ast.exp -> El.Ast.exp