module Type:Types des typessig..end
type t =
| |
Nat |
(* | Type des entiers naturels Nat | *) |
| |
Arrow of |
(* | Type des fonctions A -> B | *) |
| |
Tvar of |
(* | Variable de type (TD 6) | *) |
val print : Pervasives.out_channel -> t -> unitval to_string : t -> string