X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FBasic-1%2Fdrop1%2Fprops.ma;h=240219b9589db7e9ab36fe1920aacc11a420c3ff;hb=bf8fe5331d6e6d2dfe955efa54b1ffdafaae8429;hp=34660afc3a557cfc2692488f920e462c1f0f0587;hpb=3531d88e2a19cba027b4b882f8dd74bf37283b9c;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/drop1/props.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/drop1/props.ma index 34660afc3..240219b95 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/drop1/props.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/drop1/props.ma @@ -14,11 +14,11 @@ (* This file was automatically generated: do not edit *********************) -include "LambdaDelta-1/drop1/fwd.ma". +include "Basic-1/drop1/fwd.ma". -include "LambdaDelta-1/drop/props.ma". +include "Basic-1/drop/props.ma". -include "LambdaDelta-1/getl/defs.ma". +include "Basic-1/getl/defs.ma". theorem drop1_skip_bind: \forall (b: B).(\forall (e: C).(\forall (hds: PList).(\forall (c: @@ -42,6 +42,9 @@ n0) (Ss p)) (CHead c (Bind b) (lift n n0 (lift1 p u))) (CHead e (Bind b) u)) e)).(drop1_cons (CHead c (Bind b) (lift n n0 (lift1 p u))) (CHead x (Bind b) (lift1 p u)) n (S n0) (drop_skip_bind n n0 c x H2 b (lift1 p u)) (CHead e (Bind b) u) (Ss p) (H x u H3))))) H1)))))))))) hds))). +(* COMMENTS +Initial nodes: 379 +END *) theorem drop1_cons_tail: \forall (c2: C).(\forall (c3: C).(\forall (h: nat).(\forall (d: nat).((drop @@ -62,6 +65,9 @@ c3))))).(\lambda (c1: C).(\lambda (H1: (drop1 (PCons n n0 p) c1 c2)).(let H_x (PCons n n0 (PConsTail p h d)) c1 c3) (\lambda (x: C).(\lambda (H3: (drop n n0 c1 x)).(\lambda (H4: (drop1 p x c2)).(drop1_cons c1 x n n0 H3 c3 (PConsTail p h d) (H0 x H4))))) H2))))))))) hds)))))). +(* COMMENTS +Initial nodes: 271 +END *) theorem drop1_trans: \forall (is1: PList).(\forall (c1: C).(\forall (c0: C).((drop1 is1 c1 c0) @@ -85,4 +91,7 @@ c3)) (\lambda (c3: C).(drop1 p c3 c0)) (drop1 (PCons n n0 (papp p is2)) c1 c2) (\lambda (x: C).(\lambda (H3: (drop n n0 c1 x)).(\lambda (H4: (drop1 p x c0)).(drop1_cons c1 x n n0 H3 c2 (papp p is2) (H x c0 H4 is2 c2 H1))))) H2))))))))))))) is1). +(* COMMENTS +Initial nodes: 287 +END *)