Parameter Extend.1-Base

type ('a, 'b) t
val compare : 'a comparator -> 'b comparator -> ('a'b) t comparator