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_not_ge_iff : forall x y, x<y <-> ~y<=x.