BatSet.Make2
module O1 : OrderedType
module O2 : OrderedType
module Product : S with type elt = O1.t * O2.t
val cartesian_product : Make(O1).t -> Make(O2).t -> Product.t
cartesian product of the two sets