Definition compare : forall x y, Compare lt eq x y.Definition t := t.Definition eq x y := (x?=y) = Eq.Definition lt x y := (x?=y) = Lt.#[global]
 Instance eq_equiv : Equivalence eq.#[global]
 Instance lt_strorder : StrictOrder lt.

Lemma eq_lt : forall x y z, eq x y -> lt y z -> lt x z.