X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FBasic-1%2Farity%2Flift1.ma;h=4077a8a1c117154e130fd249a94857cdc4e5e4c2;hb=de77f79d60ee3c1d30fe03469172950b557441f3;hp=e25ceae78cafd3ea83f57bfff43c77be8a033d89;hpb=3531d88e2a19cba027b4b882f8dd74bf37283b9c;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/arity/lift1.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/arity/lift1.ma index e25ceae78..4077a8a1c 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/arity/lift1.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/arity/lift1.ma @@ -14,9 +14,9 @@ (* This file was automatically generated: do not edit *********************) -include "LambdaDelta-1/arity/props.ma". +include "Basic-1/arity/props.ma". -include "LambdaDelta-1/drop1/fwd.ma". +include "Basic-1/drop1/fwd.ma". theorem arity_lift1: \forall (g: G).(\forall (a: A).(\forall (c2: C).(\forall (hds: @@ -38,4 +38,7 @@ C).(\forall (t: T).((drop1 p c1 c2) \to ((arity g c2 t a) \to (arity g c1 (lift n n0 (lift1 p t)) a) (\lambda (x: C).(\lambda (H3: (drop n n0 c1 x)).(\lambda (H4: (drop1 p x c2)).(arity_lift g x (lift1 p t) a (H x t H4 H1) c1 n n0 H3)))) H2))))))))))) hds)))). +(* COMMENTS +Initial nodes: 289 +END *)