val create : int -> tval clear : t -> unitval add : t -> (Types.type_expr * Types.type_expr) -> unitval mem : t -> (Types.type_expr * Types.type_expr) -> boolval iter : ((Types.type_expr * Types.type_expr) -> unit) -> t -> unitval create : int -> tval clear : t -> unitval add : t -> (Types.type_expr * Types.type_expr) -> unitval mem : t -> (Types.type_expr * Types.type_expr) -> boolval iter : ((Types.type_expr * Types.type_expr) -> unit) -> t -> unit