X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fpr3%2Fsubst1.ma;h=3c2e56c05b03c614a9ed4b58d25308d5594814fd;hb=a04fa03fcea0493e89b725960146cc0c06539583;hp=bcecb2777af2fd494db253fa9e12e0217f8aecf9;hpb=639e798161afea770f41d78673c0fe3be4125beb;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_1/pr3/subst1.ma b/matita/matita/contribs/lambdadelta/basic_1/pr3/subst1.ma
index bcecb2777..3c2e56c05 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/pr3/subst1.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/pr3/subst1.ma
@@ -18,7 +18,7 @@ include "basic_1/pr3/fwd.ma".
 
 include "basic_1/pr2/subst1.ma".
 
-theorem pr3_subst1:
+lemma pr3_subst1:
  \forall (c: C).(\forall (e: C).(\forall (v: T).(\forall (i: nat).((getl i c 
 (CHead e (Bind Abbr) v)) \to (\forall (t1: T).(\forall (t2: T).((pr3 c t1 t2) 
 \to (\forall (w1: T).((subst1 i v t1 w1) \to (ex2 T (\lambda (w2: T).(pr3 c 
@@ -45,7 +45,7 @@ t5 x0)).(ex_intro2 T (\lambda (w2: T).(pr3 c w1 w2)) (\lambda (w2: T).(subst1
 i v t5 w2)) x0 (pr3_sing c x w1 H5 x0 H7) H8)))) (H3 x H6))))) (pr2_subst1 c 
 e v i H t4 t3 H1 w1 H4)))))))))) t1 t2 H0)))))))).
 
-theorem pr3_gen_cabbr:
+lemma pr3_gen_cabbr:
  \forall (c: C).(\forall (t1: T).(\forall (t2: T).((pr3 c t1 t2) \to (\forall 
 (e: C).(\forall (u: T).(\forall (d: nat).((getl d c (CHead e (Bind Abbr) u)) 
 \to (\forall (a0: C).((csubst1 d u c a0) \to (\forall (a: C).((drop (S O) d