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

diff --git a/matita/matita/contribs/lambdadelta/basic_1/csubt/fwd.ma b/matita/matita/contribs/lambdadelta/basic_1/csubt/fwd.ma
index cd82088fe..eb571467a 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/csubt/fwd.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/csubt/fwd.ma
@@ -16,7 +16,7 @@
 
 include "basic_1/csubt/defs.ma".
 
-implied let rec csubt_ind (g: G) (P: (C \to (C \to Prop))) (f: (\forall (n: 
+implied rec lemma csubt_ind (g: G) (P: (C \to (C \to Prop))) (f: (\forall (n: 
 nat).(P (CSort n) (CSort n)))) (f0: (\forall (c1: C).(\forall (c2: C).((csubt 
 g c1 c2) \to ((P c1 c2) \to (\forall (k: K).(\forall (u: T).(P (CHead c1 k u) 
 (CHead c2 k u))))))))) (f1: (\forall (c1: C).(\forall (c2: C).((csubt g c1