intros; unfold last in |- *; case (N_classic N); intro.
absurd (N >= 2).
elim s; intro y; rewrite y; unfold ge in |- *; auto with arith real.
exact H.
case (exist_last N g); unfold ordre_total in |- *; intros; elim a; intros.
elim H4; intros.
generalize (H6 n); intros.
elim H7.
intro; apply Rlt_le; auto with arith real.
unfold Rle in |- *; auto with arith real.
split; auto with arith real.
auto with arith real.
Qed.

(* Specifications: *)
(**********)
Lemma tech_first_last :
forall N k : nat,
N >= 2 ->
0 < k -> k < N -> ordre_total (first N) k /\ ordre_total k (last N).