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