absurd (N >= 2).
elim s; intro y; rewrite y; unfold ge in |- *; auto with arith real.
exact H.
case (exist_first N g); intros; elim a; intros; elim H1; intros;
auto with arith real.
Qed.

(* Specifications: *)
(**********)
Lemma last_N : forall N : nat, N >= 2 -> last N < N.
intros; unfold last in |- *; case (N_classic N); intro.