S_to_S1.S
type t
type comparator_witness
val comparator : (S.t, S.comparator_witness) Base.Comparator.comparator