Module El.Print

val string_of_num : [< `Int of Bigint.t | `Nat of Bigint.t ] -> string
val string_of_text : 'a -> 'a
val string_of_varid : ('a, 'b, 'c) Util.Source.info -> 'a
val string_of_typid : ('a, 'b, 'c) Util.Source.info -> 'a
val string_of_relid : ('a, 'b, 'c) Util.Source.info -> 'a
val string_of_ruleid : (string, 'a, 'b) Util.Source.info -> string
val string_of_defid : (string, 'a, 'b) Util.Source.info -> string
val string_of_atom : (Domain.Atom.t, 'a, 'b) Util.Source.info -> Domain.Atom.upid
val string_of_iter : Lang__El__.Ast.iter -> string
val string_of_typ : Lang__El__.Ast.typ -> Domain.Atom.upid
val string_of_typs : string -> Lang__El__.Ast.typ list -> Domain.Atom.upid
val string_of_plaintyp : Lang__El__.Ast.plaintyp' Util.Source.phrase -> Domain.Atom.upid
val string_of_plaintyps : string -> Lang__El__.Ast.plaintyp' Util.Source.phrase list -> string
val string_of_nottyp : Lang__El__.Ast.nottyp' Util.Source.phrase -> Domain.Atom.upid
val string_of_nottyps : string -> Lang__El__.Ast.nottyp' Util.Source.phrase list -> string
val string_of_deftyp : (Lang__El__.Ast.deftyp', 'a, 'b) Util.Source.info -> Domain.Atom.upid
val string_of_typfield : (Domain.Atom.t Util.Source.phrase * Lang__El__.Ast.plaintyp' Util.Source.phrase * Lang__El__.Ast.hint list) -> string
val string_of_typfields : string -> (Domain.Atom.t Util.Source.phrase * Lang__El__.Ast.plaintyp' Util.Source.phrase * Lang__El__.Ast.hint list) list -> string
val string_of_typcase : (Lang__El__.Ast.typ * Lang__El__.Ast.hint list) -> Domain.Atom.upid
val string_of_typcases : string -> (Lang__El__.Ast.typ * Lang__El__.Ast.hint list) list -> string
val string_of_unop : [ Xl.Bool.unop | Xl.Num.unop ] -> string
val string_of_binop : [ Xl.Bool.binop | Xl.Num.binop ] -> string
val string_of_cmpop : [ Xl.Bool.cmpop | Xl.Num.cmpop ] -> string
val string_of_exp : (Lang__El__.Ast.exp', unit, Util.Source.region) Util.Source.info -> string
val string_of_exps : string -> (Lang__El__.Ast.exp', unit, Util.Source.region) Util.Source.info list -> string
val string_of_path : Lang__El__.Ast.path' Util.Source.phrase -> Domain.Atom.upid
val string_of_param : (Lang__El__.Ast.param', unit, Util.Source.region) Util.Source.info -> Domain.Atom.upid
val string_of_params : Lang__El__.Ast.param' Util.Source.phrase list -> string
val string_of_tparam : (string, unit, Util.Source.region) Util.Source.info -> string
val string_of_tparams : string Util.Source.phrase list -> string
val string_of_arg : (Lang__El__.Ast.arg', unit, Util.Source.region) Util.Source.info -> string
val string_of_args : Lang__El__.Ast.arg' Util.Source.phrase list -> string
val string_of_targ : Lang__El__.Ast.plaintyp' Util.Source.phrase -> Domain.Atom.upid
val string_of_targs : Lang__El__.Ast.plaintyp' Util.Source.phrase list -> string
val string_of_prem : (Lang__El__.Ast.prem', unit, Util.Source.region) Util.Source.info -> string
val string_of_prems : (Lang__El__.Ast.prem', unit, Util.Source.region) Util.Source.info list -> string
val string_of_rule : ((string, 'a, 'b) Util.Source.info * (string, 'c, 'd) Util.Source.info * (Lang__El__.Ast.exp', unit, Util.Source.region) Util.Source.info * (Lang__El__.Ast.prem', unit, Util.Source.region) Util.Source.info list, 'e, 'f) Util.Source.info -> string
val string_of_rules : ((string, 'a, 'b) Util.Source.info * (string, 'c, 'd) Util.Source.info * (Lang__El__.Ast.exp', unit, Util.Source.region) Util.Source.info * (Lang__El__.Ast.prem', unit, Util.Source.region) Util.Source.info list, 'e, 'f) Util.Source.info list -> string
val string_of_tablerow : ((Lang__El__.Ast.exp', unit, Util.Source.region) Util.Source.info * (Lang__El__.Ast.exp', unit, Util.Source.region) Util.Source.info, 'a, 'b) Util.Source.info -> string
val string_of_tablerows : ((Lang__El__.Ast.exp', unit, Util.Source.region) Util.Source.info * (Lang__El__.Ast.exp', unit, Util.Source.region) Util.Source.info, 'a, 'b) Util.Source.info list -> string
val string_of_def : (Lang__El__.Ast.def', 'a, 'b) Util.Source.info -> string
val string_of_spec : (Lang__El__.Ast.def', 'a, 'b) Util.Source.info list -> string