(* File: ML_int.v    (last edited on 25/10/2000  (c) Klaus Weich  *)
(* Axiomisation of the ML type "int" *)

Lemma equal_dec_refl :
forall (i : Int) (A : Set) (a b : A),
match equal_dec i i with
| left _ => a
| right _ => b
end = a.