Module Comparator.Poly

module Poly: S1  with type 'a t = 'a

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