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 ... end
module type S1 = sig ... end
val make : compare:('a -> 'a -> Core_kernel__.Import.int) -> sexp_of_t:('a -> Base.Sexp.t) -> (module S_fc with type comparable_t = 'a)