intros i A a b.
elim (equal_dec i i).
intros; trivial.
intros notequal; elimtype False; apply notequal.
apply equal_refl.
Qed.
Inductive max_int_spec (i0 i1 : Int) : Set :=
Max_Int_Intro :
forall j : Int,
Less i0 j \/ Equal i0 j ->
Less i1 j \/ Equal i1 j -> max_int_spec i0 i1.

(* Specifications: *)
Lemma max_int : forall i0 i1 : Int, max_int_spec i0 i1.
intros i0 i1.