module Poly: S1 with type 'a t = 'a
S1
with type 'a t = 'a
type 'a t
'a
type comparator
val comparator : ('a t, comparator) Comparator.t_
('a t, comparator) Comparator.t_