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 le_or_gt : forall x y, x<=y \/ y<x.