Functor Comparable.Poly

module Poly: 
functor (T : sig
type t 

val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
end) -> sig .. end

module Replace_polymorphic_compare: sig .. end

include Replace_polymorphic_compare

val ascending : 'a -> 'a -> int

val descending : 'a -> 'a -> int

val between : 'a -> low:'a -> high:'a -> bool

include C

module Map: Map.Make_using_comparator(C)

module Set: Set.Make_using_comparator(C)