X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FBasic-1%2Fdrop1%2Fgetl.ma;h=dbee798509f2bad6d663a3f85a8f25d16c6f845c;hb=de77f79d60ee3c1d30fe03469172950b557441f3;hp=eb524072aa90572cffedcc73b58998250f54d62e;hpb=3531d88e2a19cba027b4b882f8dd74bf37283b9c;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/drop1/getl.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/drop1/getl.ma index eb524072a..dbee79850 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/drop1/getl.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/drop1/getl.ma @@ -14,9 +14,9 @@ (* This file was automatically generated: do not edit *********************) -include "LambdaDelta-1/drop1/fwd.ma". +include "Basic-1/drop1/fwd.ma". -include "LambdaDelta-1/getl/drop.ma". +include "Basic-1/getl/drop.ma". theorem drop1_getl_trans: \forall (hds: PList).(\forall (c1: C).(\forall (c2: C).((drop1 hds c2 c1) @@ -104,4 +104,7 @@ H9 \def (drop_getl_trans_ge (trans hds0 i) c2 x d h H3 (CHead x0 (Bind b) (ptrans hds0 i) e2 e1)) (\lambda (e2: C).(getl (plus (trans hds0 i) h) c2 (CHead e2 (Bind b) (lift1 (ptrans hds0 i) v)))) x0 H7 (H9 (bge_le d (trans hds0 i) H5))))))) H6)))) x_x)))))) H2))))))))))))))) hds). +(* COMMENTS +Initial nodes: 1674 +END *)