X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Farity%2Flift1.ma;h=7267b7817b707c5655765ac06954c23fec683a61;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=4077a8a1c117154e130fd249a94857cdc4e5e4c2;hpb=88a68a9c334646bc17314d5327cd3b790202acd6;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_1/arity/lift1.ma b/matita/matita/contribs/lambdadelta/basic_1/arity/lift1.ma index 4077a8a1c..7267b7817 100644 --- a/matita/matita/contribs/lambdadelta/basic_1/arity/lift1.ma +++ b/matita/matita/contribs/lambdadelta/basic_1/arity/lift1.ma @@ -14,11 +14,11 @@ (* This file was automatically generated: do not edit *********************) -include "Basic-1/arity/props.ma". +include "basic_1/arity/props.ma". -include "Basic-1/drop1/fwd.ma". +include "basic_1/drop1/fwd.ma". -theorem arity_lift1: +lemma arity_lift1: \forall (g: G).(\forall (a: A).(\forall (c2: C).(\forall (hds: PList).(\forall (c1: C).(\forall (t: T).((drop1 hds c1 c2) \to ((arity g c2 t a) \to (arity g c1 (lift1 hds t) a)))))))) @@ -38,7 +38,4 @@ 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 *)