Parameter Extend.1-Base

type 'a t
val compare : 'a comparator -> 'a t comparator