Module Comparator.S_to_S1

Parameters

module S : S

Signature

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