type ('a, 'b) t = 'a * 'b
val create : 'a -> 'b -> ('a, 'b) tval curry : (('a, 'b) t -> 'c) -> 'a -> 'b -> 'cval uncurry : ('a -> 'b -> 'c) -> ('a, 'b) t -> 'cval compare : cmp1:('a -> 'a -> Base.Int.t) -> cmp2:('b -> 'b -> Base.Int.t) -> ('a, 'b) t -> ('a, 'b) t -> Base.Int.tval equal : eq1:('a -> 'a -> Base.Bool.t) -> eq2:('b -> 'b -> Base.Bool.t) -> ('a, 'b) t -> ('a, 'b) t -> Base.Bool.t
val get1 : ('a, _) t -> 'aval get2 : (_, 'a) t -> 'a
val map1 : f:('a -> 'c) -> ('a, 'b) t -> ('c, 'b) tval map2 : f:('b -> 'c) -> ('a, 'b) t -> ('a, 'c) tval map : ('a, 'a) t -> f:('a -> 'b) -> ('b, 'b) tval map_fst : ('a, 'b) t -> f:('a -> 'c) -> ('c, 'b) tval map_snd : ('a, 'b) t -> f:('b -> 'c) -> ('a, 'c) tval swap : ('a, 'b) t -> ('b, 'a) t