Functor Comparable.Inherit

module Inherit (C : sigtype t 

val compare : t -> t -> int
end)  (T : sigtype t 

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

Inherit comparability from a component.

Parameters:

`C`	:	`sig type t val compare : t -> t -> int end`
`T`	:	`sig type t with sexp val component : t -> C.t end`

type t = T.t

include struct ... end