Empty_without_value_restriction.K
type 'a t
type comparator_witness
val comparator : ('a t, comparator_witness) Comparator.comparator