removed the impredicativity of falsum

[helm.git] / helm / software / matita / contribs / RELATIONAL / Nat / fwd.ma

diff --git a/helm/software/matita/contribs/RELATIONAL/Nat/fwd.ma b/helm/software/matita/contribs/RELATIONAL/Nat/fwd.ma
index 0938e4d9ab470234b5d420134410b9c76c244e86..b76138fe56998d8055c97dac00e36c88318b7ce8 100644 (file)
--- a/helm/software/matita/contribs/RELATIONAL/Nat/fwd.ma
+++ b/helm/software/matita/contribs/RELATIONAL/Nat/fwd.ma
@@ -18,11 +18,11 @@ include "logic/equality.ma".
 
 include "Nat/defs.ma".
 
-theorem eq_gen_zero_succ: \forall (P:Prop). \forall m2. zero = succ m2 \to P.
+theorem eq_gen_zero_succ: \forall m2. zero = succ m2 \to False.
  intros. destruct H.
 qed.
 
-theorem eq_gen_succ_zero: \forall (P:Prop). \forall m1. succ m1 = zero \to P.
+theorem eq_gen_succ_zero: \forall m1. succ m1 = zero \to False.
  intros. destruct H.
 qed.