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