(** * Properties of [OrderedTypeFull] *)
Module OrderedTypeFullFacts (Import O:OrderedTypeFull').
Module OrderTac := OTF_to_OrderTac O.
Ltac order := OrderTac.order.
Ltac iorder := intuition order.
#[global]
Instance le_compat : Proper (eq==>eq==>iff) le.

(* Specifications: *)
Lemma compare_ge_iff x y : compare x y <> Lt <-> y<=x.
End OrderedTypeFullFacts.