]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_1/pr3/subst1.ma
update in basic_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_1 / pr3 / subst1.ma
index 3bcbd4965141cafa18bf97783ad72f7d572ab063..3c2e56c05b03c614a9ed4b58d25308d5594814fd 100644 (file)
 
 (* This file was automatically generated: do not edit *********************)
 
-include "Basic-1/pr3/defs.ma".
+include "basic_1/pr3/fwd.ma".
 
-include "Basic-1/pr2/subst1.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 
@@ -44,11 +44,8 @@ w2))) (\lambda (x0: T).(\lambda (H7: (pr3 c x x0)).(\lambda (H8: (subst1 i v
 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)))))))).
-(* COMMENTS
-Initial nodes: 425
-END *)
 
-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 
@@ -89,7 +86,4 @@ d x0))).(\lambda (H10: (pr3 a x x0)).(ex_intro2 T (\lambda (x2: T).(subst1 d
 u t4 (lift (S O) d x2))) (\lambda (x2: T).(pr3 a x1 x2)) x0 H9 (pr3_sing a x 
 x1 H8 x0 H10))))) (H2 e u d H3 a0 H4 a H5 x H7))))) (pr2_gen_cabbr c t3 t0 H0 
 e u d H3 a0 H4 a H5 x1 H6)))))))))))))))))) t1 t2 H)))).
-(* COMMENTS
-Initial nodes: 731
-END *)