From 870075f34dd9fa5792bfbf413afd3b96f17e76a0 Mon Sep 17 00:00:00 2001 From: Stephane Glondu Date: Fri, 8 Aug 2008 13:18:42 +0200 Subject: Imported Upstream version 8.2~beta4+dfsg --- contrib/setoid_ring/InitialRing.v | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) (limited to 'contrib/setoid_ring/InitialRing.v') diff --git a/contrib/setoid_ring/InitialRing.v b/contrib/setoid_ring/InitialRing.v index c1fa963f..e664b3b7 100644 --- a/contrib/setoid_ring/InitialRing.v +++ b/contrib/setoid_ring/InitialRing.v @@ -38,14 +38,6 @@ Proof. exact Zmult_plus_distr_l. trivial. exact Zminus_diag. Qed. - Lemma Zeqb_ok : forall x y, Zeq_bool x y = true -> x = y. - Proof. - intros x y. - assert (H := Zcompare_Eq_eq x y);unfold Zeq_bool; - destruct (Zcompare x y);intros H1;auto;discriminate H1. - Qed. - - (** Two generic morphisms from Z to (abrbitrary) rings, *) (**second one is more convenient for proofs but they are ext. equal*) Section ZMORPHISM. @@ -174,7 +166,7 @@ Section ZMORPHISM. Zeq_bool x y = true -> [x] == [y]. Proof. intros x y H. - assert (H1 := Zeqb_ok x y H);unfold IDphi in H1. + assert (H1 := Zeq_bool_eq x y H);unfold IDphi in H1. rewrite H1;rrefl. Qed. -- cgit v1.2.3