Module Comparator.S_to_S1

Parameters

module S : S

Signature

type 'a t = S.t
type comparator_witness = S.comparator_witness
val comparator : ('a tcomparator_witness) comparator