X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fty3%2Fsubst1.ma;h=43a6d483c3df8d1d37d6155f4813385abd1980a0;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=6d0f4d55fe1ce46cb3698093998e8109d714105d;hpb=10c836687dfdf9d23357d7423cfc535e817d843f;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_1/ty3/subst1.ma b/matita/matita/contribs/lambdadelta/basic_1/ty3/subst1.ma
index 6d0f4d55f..43a6d483c 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/ty3/subst1.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/ty3/subst1.ma
@@ -20,7 +20,7 @@ include "basic_1/pc3/subst1.ma".
 
 include "basic_1/getl/getl.ma".
 
-theorem ty3_gen_cabbr:
+lemma ty3_gen_cabbr:
  \forall (g: G).(\forall (c: C).(\forall (t1: T).(\forall (t2: T).((ty3 g 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 
@@ -554,7 +554,7 @@ O) d x1) d H9 (Flat Cast) t4 (lift (S O) d x0) H8) (lift (S O) d (THead (Flat
 Cast) x1 x0)) (lift_flat Cast x1 x0 (S O) d)) (ty3_cast g a x2 x0 H15 x1 
 H10)))))))) H11))))))) H7)))))))))))))))))) c t1 t2 H))))).
 
-theorem ty3_gen_cvoid:
+lemma ty3_gen_cvoid:
  \forall (g: G).(\forall (c: C).(\forall (t1: T).(\forall (t2: T).((ty3 g c 
 t1 t2) \to (\forall (e: C).(\forall (u: T).(\forall (d: nat).((getl d c 
 (CHead e (Bind Void) u)) \to (\forall (a: C).((drop (S O) d c a) \to (ex3_2 T