X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fsc3%2Fprops.ma;h=80da46d3cbac77ada65a26bcd7f3b06cb8811dbe;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=e1d90925157134ce6f8f8b5edfe7a210d3415148;hpb=88a68a9c334646bc17314d5327cd3b790202acd6;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_1/sc3/props.ma b/matita/matita/contribs/lambdadelta/basic_1/sc3/props.ma
index e1d909251..80da46d3c 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/sc3/props.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/sc3/props.ma
@@ -14,27 +14,29 @@
 
 (* This file was automatically generated: do not edit *********************)
 
-include "Basic-1/sc3/defs.ma".
+include "basic_1/sc3/defs.ma".
 
-include "Basic-1/sn3/lift1.ma".
+include "basic_1/sn3/lift1.ma".
 
-include "Basic-1/nf2/lift1.ma".
+include "basic_1/nf2/lift1.ma".
 
-include "Basic-1/csuba/arity.ma".
+include "basic_1/csuba/arity.ma".
 
-include "Basic-1/arity/lift1.ma".
+include "basic_1/arity/lift1.ma".
 
-include "Basic-1/arity/aprem.ma".
+include "basic_1/arity/aprem.ma".
 
-include "Basic-1/llt/props.ma".
+include "basic_1/llt/props.ma".
 
-include "Basic-1/drop1/getl.ma".
+include "basic_1/llt/fwd.ma".
 
-include "Basic-1/drop1/props.ma".
+include "basic_1/drop1/getl.ma".
 
-include "Basic-1/lift1/props.ma".
+include "basic_1/drop1/props.ma".
 
-theorem sc3_arity_gen:
+include "basic_1/lift1/drop1.ma".
+
+lemma sc3_arity_gen:
  \forall (g: G).(\forall (c: C).(\forall (t: T).(\forall (a: A).((sc3 g a c 
 t) \to (arity g c t a)))))
 \def
@@ -54,11 +56,8 @@ Appl) w (lift1 is t)))))))) (arity g c t (AHead a0 a1)) (\lambda (H3: (arity
 g c t (AHead a0 a1))).(\lambda (_: ((\forall (d: C).(\forall (w: T).((sc3 g 
 a0 d w) \to (\forall (is: PList).((drop1 is d c) \to (sc3 g a1 d (THead (Flat 
 Appl) w (lift1 is t)))))))))).H3)) H2))))))) a)))).
-(* COMMENTS
-Initial nodes: 369
-END *)
 
-theorem sc3_repl:
+lemma sc3_repl:
  \forall (g: G).(\forall (a1: A).(\forall (c: C).(\forall (t: T).((sc3 g a1 c 
 t) \to (\forall (a2: A).((leq g a1 a2) \to (sc3 g a2 c t)))))))
 \def
@@ -124,11 +123,8 @@ t0)).(\lambda (a5: A).(\lambda (H16: (leq g a4 a5)).(H1 a4 (llt_trans a4 a0
 Appl) w (lift1 is t)) (H6 d w (H1 x0 (llt_repl g a x0 H8 (AHead a a0) 
 (llt_head_sx a a0)) d w H12 a (leq_sym g a x0 H8)) is H13) x1 H9))))))) a3 
 H11))))))) H7))))) H4)))))))))))) a2)) a1)).
-(* COMMENTS
-Initial nodes: 1359
-END *)
 
-theorem sc3_lift:
+lemma sc3_lift:
  \forall (g: G).(\forall (a: A).(\forall (e: C).(\forall (t: T).((sc3 g a e 
 t) \to (\forall (c: C).(\forall (h: nat).(\forall (d: nat).((drop h d c e) 
 \to (sc3 g a c (lift h d t))))))))))
@@ -170,11 +166,8 @@ is d0 c)).(let H_y \def (H5 d0 w H6 (PConsTail is h d)) in (eq_ind T (lift1
 (PConsTail is h d) t) (\lambda (t0: T).(sc3 g a1 d0 (THead (Flat Appl) w 
 t0))) (H_y (drop1_cons_tail c e h d H2 is d0 H7)) (lift1 is (lift h d t)) 
 (lift1_cons_tail t h d is))))))))))) H3))))))))))))) a)).
-(* COMMENTS
-Initial nodes: 849
-END *)
 
-theorem sc3_lift1:
+lemma sc3_lift1:
  \forall (g: G).(\forall (e: C).(\forall (a: A).(\forall (hds: 
 PList).(\forall (c: C).(\forall (t: T).((sc3 g a e t) \to ((drop1 hds c e) 
 \to (sc3 g a c (lift1 hds t)))))))))
@@ -193,11 +186,8 @@ in (ex2_ind C (\lambda (c2: C).(drop n n0 c c2)) (\lambda (c2: C).(drop1 p c2
 e)) (sc3 g a c (lift n n0 (lift1 p t))) (\lambda (x: C).(\lambda (H3: (drop n 
 n0 c x)).(\lambda (H4: (drop1 p x e)).(sc3_lift g a x (lift1 p t) (H x t H0 
 H4) c n n0 H3)))) H2))))))))))) hds)))).
-(* COMMENTS
-Initial nodes: 289
-END *)
 
-theorem sc3_abbr:
+lemma sc3_abbr:
  \forall (g: G).(\forall (a: A).(\forall (vs: TList).(\forall (i: 
 nat).(\forall (d: C).(\forall (v: T).(\forall (c: C).((sc3 g a c (THeads 
 (Flat Appl) vs (lift (S i) O v))) \to ((getl i c (CHead d (Bind Abbr) v)) \to 
@@ -268,9 +258,6 @@ vs)) (lift (S (trans is i)) O (lift1 (ptrans is i) v)) (lift1_free is i v))
 H10) (lift1 is (TLRef i)) (lift1_lref is i)) (lift1 is (THeads (Flat Appl) vs 
 (TLRef i))) (lifts1_flat Appl is (TLRef i) vs)))))) H8))))))))))) 
 H3))))))))))))) a)).
-(* COMMENTS
-Initial nodes: 1563
-END *)
 
 theorem sc3_cast:
  \forall (g: G).(\forall (a: A).(\forall (vs: TList).(\forall (c: C).(\forall 
@@ -383,11 +370,8 @@ H9 is H10) (THeads (Flat Appl) (lifts1 is vs) (lift1 is t)) (lifts1_flat Appl
 is t vs))) (lift1 is (THead (Flat Cast) u t)) (lift1_flat Cast is u t)) 
 (lift1 is (THeads (Flat Appl) vs (THead (Flat Cast) u t))) (lifts1_flat Appl 
 is (THead (Flat Cast) u t) vs))))))))))) H6)))) H3)))))))))))) a)).
-(* COMMENTS
-Initial nodes: 2625
-END *)
 
-theorem sc3_props__sc3_sn3_abst:
+fact sc3_props__sc3_sn3_abst:
  \forall (g: G).(\forall (a: A).(land (\forall (c: C).(\forall (t: T).((sc3 g 
 a c t) \to (sn3 c t)))) (\forall (vs: TList).(\forall (i: nat).(let t \def 
 (THeads (Flat Appl) vs (TLRef i)) in (\forall (c: C).((arity g c t a) \to 
@@ -515,11 +499,8 @@ is vs) t)) a1)) (eq_ind T (lift1 is (THeads (Flat Appl) vs (TLRef i)))
 vs)) (H7 d w H4) (sns3_lifts1 c is d H5 vs H3))) (lift1 is (TLRef i)) 
 (lift1_lref is i)) (lift1 is (THeads (Flat Appl) vs (TLRef i))) (lifts1_flat 
 Appl is (TLRef i) vs))))) H9)))) H6))))))))))))))))))) a)).
-(* COMMENTS
-Initial nodes: 2737
-END *)
 
-theorem sc3_sn3:
+lemma sc3_sn3:
  \forall (g: G).(\forall (a: A).(\forall (c: C).(\forall (t: T).((sc3 g a c 
 t) \to (sn3 c t)))))
 \def
@@ -534,11 +515,8 @@ t0)))))).(\lambda (_: ((\forall (vs: TList).(\forall (i: nat).(\forall (c0:
 C).((arity g c0 (THeads (Flat Appl) vs (TLRef i)) a) \to ((nf2 c0 (TLRef i)) 
 \to ((sns3 c0 vs) \to (sc3 g a c0 (THeads (Flat Appl) vs (TLRef 
 i))))))))))).(H1 c t H))) H0))))))).
-(* COMMENTS
-Initial nodes: 203
-END *)
 
-theorem sc3_abst:
+lemma sc3_abst:
  \forall (g: G).(\forall (a: A).(\forall (vs: TList).(\forall (c: C).(\forall 
 (i: nat).((arity g c (THeads (Flat Appl) vs (TLRef i)) a) \to ((nf2 c (TLRef 
 i)) \to ((sns3 c vs) \to (sc3 g a c (THeads (Flat Appl) vs (TLRef i))))))))))
@@ -556,9 +534,6 @@ vs (TLRef i))) (\lambda (_: ((\forall (c0: C).(\forall (t: T).((sc3 g a c0 t)
 nat).(\forall (c0: C).((arity g c0 (THeads (Flat Appl) vs0 (TLRef i0)) a) \to 
 ((nf2 c0 (TLRef i0)) \to ((sns3 c0 vs0) \to (sc3 g a c0 (THeads (Flat Appl) 
 vs0 (TLRef i0))))))))))).(H4 vs i c H H0 H1))) H2)))))))))).
-(* COMMENTS
-Initial nodes: 249
-END *)
 
 theorem sc3_bind:
  \forall (g: G).(\forall (b: B).((not (eq B b Abst)) \to (\forall (a1: 
@@ -635,9 +610,6 @@ vs))) (lifts (S O) O (lifts1 is vs)) (lifts1_xhg is vs)) (sc3_lift1 g c a1 is
 d v H3 H8)) (lift1 is (THead (Bind b) v t)) (lift1_bind b is v t)) (lift1 is 
 (THeads (Flat Appl) vs (THead (Bind b) v t))) (lifts1_flat Appl is (THead 
 (Bind b) v t) vs))))))))))) H4)))))))))))) a2))))).
-(* COMMENTS
-Initial nodes: 1797
-END *)
 
 theorem sc3_appl:
  \forall (g: G).(\forall (a1: A).(\forall (a2: A).(\forall (vs: 
@@ -722,7 +694,4 @@ w H3 H8))) (lift1 is (THead (Bind Abst) w t)) (lift1_bind Abst is w t))
 v (THead (Bind Abst) w t))) (lift1 is (THeads (Flat Appl) vs (THead (Flat 
 Appl) v (THead (Bind Abst) w t)))) (lifts1_flat Appl is (THead (Flat Appl) v 
 (THead (Bind Abst) w t)) vs)))))))))) H4)))))))))))))) a2))).
-(* COMMENTS
-Initial nodes: 1901
-END *)