Using_comparator.Empty_without_value_restriction
module K : Comparator.S1
val empty : ('a K.t, 'v, K.comparator_witness) t