X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FRELATIONAL%2FNat%2Ffwd.ma;h=0938e4d9ab470234b5d420134410b9c76c244e86;hb=ac6c6c1f9934fefb4e462f3aa3e1429460703037;hp=09847de2ee65a85fa12444f1520866ac3d6af960;hpb=1e8c961814b55b806652b8b8243d6f56108bda9c;p=helm.git

diff --git a/helm/software/matita/contribs/RELATIONAL/Nat/fwd.ma b/helm/software/matita/contribs/RELATIONAL/Nat/fwd.ma
index 09847de2e..0938e4d9a 100644
--- a/helm/software/matita/contribs/RELATIONAL/Nat/fwd.ma
+++ b/helm/software/matita/contribs/RELATIONAL/Nat/fwd.ma
@@ -19,13 +19,13 @@ include "logic/equality.ma".
 include "Nat/defs.ma".
 
 theorem eq_gen_zero_succ: \forall (P:Prop). \forall m2. zero = succ m2 \to P.
- intros. discriminate H.
+ intros. destruct H.
 qed.
 
 theorem eq_gen_succ_zero: \forall (P:Prop). \forall m1. succ m1 = zero \to P.
- intros. discriminate H.
+ intros. destruct H.
 qed.
 
 theorem eq_gen_succ_succ: \forall m1,m2. succ m1 = succ m2 \to m1 = m2.
- intros. injection H. assumption.
+ intros. destruct H. assumption.
 qed.