sig
module type S =
sig
type t
val ( >=. ) : t -> t -> bool
val ( <=. ) : t -> t -> bool
val ( =. ) : t -> t -> bool
val ( >. ) : t -> t -> bool
val ( <. ) : t -> t -> bool
val ( <>. ) : t -> t -> bool
val robustly_compare : t -> t -> int
end
val ounit_tests : unit -> OUnit.test
end