sig
val compare : 'a -> 'a -> int
val ( < ) : 'a -> 'a -> bool
val ( <= ) : 'a -> 'a -> bool
val ( > ) : 'a -> 'a -> bool
val ( >= ) : 'a -> 'a -> bool
val ( = ) : 'a -> 'a -> bool
val ( <> ) : 'a -> 'a -> bool
val equal : 'a -> 'a -> bool
val min : 'a -> 'a -> 'a
val max : 'a -> 'a -> 'a
val ounit_tests : unit -> OUnit.test
end