Module Stable.V1
type nonrec ('a, 'b) t= private ('a, 'b) t={compare : 'a -> 'a -> Core_kernel__.Import.int;sexp_of_t : 'a -> Base.Sexp.t;}type ('a, 'b) comparator= ('a, 'b) t
module type S = sig ... endmodule type S1 = sig ... endval make : compare:('a -> 'a -> Core_kernel__.Import.int) -> sexp_of_t:('a -> Base.Sexp.t) -> (module S_fc with type comparable_t = 'a)