X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fcsubt%2Fty3.ma;h=7b3094bd1729bf1aa3be49cb1dbf30ce90f0ba96;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=e6199ac159022c2d0110ff587f04b09f5af861af;hpb=88a68a9c334646bc17314d5327cd3b790202acd6;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_1/csubt/ty3.ma b/matita/matita/contribs/lambdadelta/basic_1/csubt/ty3.ma
index e6199ac15..7b3094bd1 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/csubt/ty3.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/csubt/ty3.ma
@@ -14,11 +14,13 @@
 
 (* This file was automatically generated: do not edit *********************)
 
-include "Basic-1/csubt/pc3.ma".
+include "basic_1/csubt/pc3.ma".
 
-include "Basic-1/csubt/props.ma".
+include "basic_1/csubt/props.ma".
 
-theorem csubt_ty3:
+include "basic_1/ty3/fwd.ma".
+
+lemma csubt_ty3:
  \forall (g: G).(\forall (c1: C).(\forall (t1: T).(\forall (t2: T).((ty3 g c1 
 t1 t2) \to (\forall (c2: C).((csubt g c1 c2) \to (ty3 g c2 t1 t2)))))))
 \def
@@ -83,11 +85,8 @@ C).(\lambda (t0: T).(\lambda (t3: T).(\lambda (_: (ty3 g c t0 t3)).(\lambda
 T).(\lambda (_: (ty3 g c t3 t4)).(\lambda (H3: ((\forall (c2: C).((csubt g c 
 c2) \to (ty3 g c2 t3 t4))))).(\lambda (c2: C).(\lambda (H4: (csubt g c 
 c2)).(ty3_cast g c2 t0 t3 (H1 c2 H4) t4 (H3 c2 H4)))))))))))) c1 t1 t2 H))))).
-(* COMMENTS
-Initial nodes: 1325
-END *)
 
-theorem csubt_ty3_ld:
+lemma csubt_ty3_ld:
  \forall (g: G).(\forall (c: C).(\forall (u: T).(\forall (v: T).((ty3 g c u 
 v) \to (\forall (t1: T).(\forall (t2: T).((ty3 g (CHead c (Bind Abst) v) t1 
 t2) \to (ty3 g (CHead c (Bind Abbr) u) t1 t2))))))))
@@ -96,7 +95,4 @@ t2) \to (ty3 g (CHead c (Bind Abbr) u) t1 t2))))))))
 (ty3 g c u v)).(\lambda (t1: T).(\lambda (t2: T).(\lambda (H0: (ty3 g (CHead 
 c (Bind Abst) v) t1 t2)).(csubt_ty3 g (CHead c (Bind Abst) v) t1 t2 H0 (CHead 
 c (Bind Abbr) u) (csubt_abst g c c (csubt_refl g c) u v H H))))))))).
-(* COMMENTS
-Initial nodes: 91
-END *)