(* File: ML_int.v    (last edited on 25/10/2000  (c) Klaus Weich  *)
(* Axiomisation of the ML type "int" *)
Axiom
notequal_notless_greater :
forall x y : Int, ~ Equal x y -> ~ Less x y -> Less y x.
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.

Lemma max_int : forall i0 i1 : Int, max_int_spec i0 i1.