functor (C : S->
  functor
    (T : sig type t val component : Comparable.t -> C.comparable end->
    sig
      type comparable = T.t
      val ( >= ) : comparable -> comparable -> bool
      val ( <= ) : comparable -> comparable -> bool
      val ( = ) : comparable -> comparable -> bool
      val ( > ) : comparable -> comparable -> bool
      val ( < ) : comparable -> comparable -> bool
      val ( <> ) : comparable -> comparable -> bool
      val compare : comparable -> comparable -> int
      val ascending : comparable -> comparable -> int
      val descending : comparable -> comparable -> int
      val min : comparable -> comparable -> comparable
      val max : comparable -> comparable -> comparable
    end