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