Functor Comparable.Make_common

module Make_common: 
functor (T : sig
type t 

include Sexpable.S
val compare : t -> t -> int
end) -> sig .. end

type comparable = T.t 

val compare : T.t -> T.t -> int

val ascending : T.t -> T.t -> int

val descending : T.t -> T.t -> int

module Infix: sig .. end

include Infix

val equal : T.t -> T.t -> bool

val min : T.t -> T.t -> T.t

val max : T.t -> T.t -> T.t