X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fpr0%2Ffwd.ma;h=ad2f0e88673f05d73f87111150bd14e0e07e4726;hb=ab2f735d97d2b9c965f13527d5f6f61048d29b22;hp=972d9217057c5d1416c6d4d45c4bdb5071e8c433;hpb=c3904c007394068ed823575e3be3d73a9ad92cce;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_1/pr0/fwd.ma b/matita/matita/contribs/lambdadelta/basic_1/pr0/fwd.ma
index 972d92170..ad2f0e886 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/pr0/fwd.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/pr0/fwd.ma
@@ -18,7 +18,7 @@ include "basic_1/pr0/defs.ma".
 
 include "basic_1/subst0/fwd.ma".
 
-implied let rec pr0_ind (P: (T \to (T \to Prop))) (f: (\forall (t: T).(P t 
+implied rec lemma pr0_ind (P: (T \to (T \to Prop))) (f: (\forall (t: T).(P t 
 t))) (f0: (\forall (u1: T).(\forall (u2: T).((pr0 u1 u2) \to ((P u1 u2) \to 
 (\forall (t1: T).(\forall (t2: T).((pr0 t1 t2) \to ((P t1 t2) \to (\forall 
 (k: K).(P (THead k u1 t1) (THead k u2 t2)))))))))))) (f1: (\forall (u: