module type S1 = sig .. end
sig
end
type 'a t
'a
type comparator_witness
val comparator : ('a t, comparator_witness) Comparator.comparator
('a t, comparator_witness) Comparator.comparator