module Explicit:sig
..end
typemetavar =
int * string
typetyp =
Typeinf_syntax.Explicit.typ
=
| |
TMetavar of |
| |
TInt |
| |
TBool |
| |
TFun of |
| |
TPair of |
| |
TList of |
typeexp =
Typeinf_syntax.Explicit.exp
=
| |
Const of |
| |
Op2 of |
| |
If of |
| |
Id of |
| |
Let of |
| |
Fun of |
| |
Fix of |
| |
App of |
| |
Empty of |
| |
Cons of |
| |
Head of |
| |
Tail of |
| |
IsEmpty of |
| |
Pair of |
| |
ProjL of |
| |
ProjR of |
val string_of_exp : exp -> string
string
that represents the expression.val print_exp : exp -> unit
val string_of_typ : typ -> string
string
that represents the type.val print_typ : typ -> unit