Tuple.Comparator
module S1 : Comparator.S
module S2 : Comparator.S
type t = Make(S1)(S2).t
type comparator_witness
val comparator : (t, comparator_witness) Base.Comparator.comparator