Derived_phantom.1-M
type ('a, 'b) t
val compare : ( 'a -> 'a -> int ) -> ( 'a, 'b ) t -> ( 'a, 'b ) t -> int
val sexp_of_t : ( 'a -> Sexp.t ) -> ( 'a, _ ) t -> Sexp.t