X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FBasic-1%2Fcsubst1%2Ffwd.ma;h=fe71a56fd1bcfeab934bf4d2b71240a4ae840119;hb=d3c72253769956a8af10e6ea990ed34c92999e58;hp=5c5749873b141a5e844407d84b4f58fb767c649e;hpb=3531d88e2a19cba027b4b882f8dd74bf37283b9c;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/csubst1/fwd.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/csubst1/fwd.ma index 5c5749873..fe71a56fd 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/csubst1/fwd.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/csubst1/fwd.ma @@ -14,11 +14,11 @@ (* This file was automatically generated: do not edit *********************) -include "LambdaDelta-1/csubst1/defs.ma". +include "Basic-1/csubst1/defs.ma". -include "LambdaDelta-1/csubst0/fwd.ma". +include "Basic-1/csubst0/fwd.ma". -include "LambdaDelta-1/subst1/props.ma". +include "Basic-1/subst1/props.ma". theorem csubst1_gen_head: \forall (k: K).(\forall (c1: C).(\forall (x: C).(\forall (u1: T).(\forall @@ -111,4 +111,7 @@ nat x2 (\lambda (n: nat).(subst0 n v u1 x0)) H4 i (s_inj k i x2 H2)) in (\lambda (_: T).(\lambda (c3: C).(csubst1 i v c1 c3))) x0 x1 (refl_equal C (CHead x1 k x0)) (subst1_single i v u1 x0 H7) (csubst1_sing i v c1 x1 H6)))) c2 H3)))))))) H1)) (csubst0_gen_head k c1 c2 u1 v (s k i) H0)))) x H))))))). +(* COMMENTS +Initial nodes: 1817 +END *)