Comparator.S_to_S1
module S : S
type 'a t = S.t
type comparator_witness = S.comparator_witness
val comparator : ('a t, comparator_witness) comparator