Functor Comparator.Make1

module Make1 (M : sig
type 'a t 
val compare : 'a t -> 'a t -> int
val sexp_of_t : 'a t -> Sexplib.Sexp.t
end) : S1 with type 'a t := 'a M.t
Parameters:
M : sig type 'a t val compare : 'a t -> 'a t -> int val sexp_of_t : _ t -> Sexp.t (* not the usual type for [sexp_of_t] *) end

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