module type PARTIAL_ORD = sig .. end
sig
end
type t
val partial_cmp : t -> t -> Comparison.comparison
t -> t -> Comparison.comparison