Module OrderTac := OTF_to_OrderTac O.Ltac order := OrderTac.order.Ltac iorder := intuition order.#[global]
 Instance le_compat : Proper (eq==>eq==>iff) le.#[global]
 Instance le_preorder : PreOrder le.#[global]
 Instance le_order : PartialOrder eq le.#[global]
 Instance le_antisym : Antisymmetric _ eq le.

Lemma compare_ge_iff x y : compare x y <> Lt <-> y<=x.