intros; elim H; intro y.
elim y; intro y0.
left; right; auto with arith real.
right; rewrite <- y0; auto with arith real.
right; auto with arith real.
Qed.

(**********)
Lemma tech_total_order : forall n : nat, ordre_total n n.
intro; unfold ordre_total in |- *; intro; unfold Rle in |- *; right;
auto with arith real.