Module Comparator.Make1

Parameters

module M : sig ... end

Signature

type comparator_witness
val comparator : ('a M.t, comparator_witness) comparator