X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FBasic-1%2Fsubst0%2Ftlt.ma;h=c8e8420bb49b18b157d8b16a13bc85683e0256d2;hb=de77f79d60ee3c1d30fe03469172950b557441f3;hp=0fc817dcd9443a62c80ba43d06752c07e511a016;hpb=3531d88e2a19cba027b4b882f8dd74bf37283b9c;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/subst0/tlt.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/subst0/tlt.ma index 0fc817dcd..c8e8420bb 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/subst0/tlt.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/Basic-1/subst0/tlt.ma @@ -14,11 +14,11 @@ (* This file was automatically generated: do not edit *********************) -include "LambdaDelta-1/subst0/defs.ma". +include "Basic-1/subst0/defs.ma". -include "LambdaDelta-1/lift/props.ma". +include "Basic-1/lift/props.ma". -include "LambdaDelta-1/lift/tlt.ma". +include "Basic-1/lift/tlt.ma". theorem subst0_weight_le: \forall (u: T).(\forall (t: T).(\forall (z: T).(\forall (d: nat).((subst0 d @@ -218,6 +218,9 @@ nat))).(\lambda (H4: ((\forall (m: nat).(le (f0 m) (g m))))).(\lambda (H5: (weight_map f0 t2)) (plus (weight_map g u1) (weight_map g t1)) (le_plus_plus (weight_map f0 u2) (weight_map g u1) (weight_map f0 t2) (weight_map g t1) (H1 f0 g H4 H5) (H3 f0 g H4 H5)))))))))))) k)))))))) d u t z H))))). +(* COMMENTS +Initial nodes: 4101 +END *) theorem subst0_weight_lt: \forall (u: T).(\forall (t: T).(\forall (z: T).(\forall (d: nat).((subst0 d @@ -421,6 +424,9 @@ f0 u2) (weight_map f0 t2)) (plus (weight_map g u1) (weight_map g t1)) (lt_plus_plus (weight_map f0 u2) (weight_map g u1) (weight_map f0 t2) (weight_map g t1) (H1 f0 g H4 H5) (H3 f0 g H4 H5)))))))))))) k)))))))) d u t z H))))). +(* COMMENTS +Initial nodes: 4207 +END *) theorem subst0_tlt_head: \forall (u: T).(\forall (t: T).(\forall (z: T).((subst0 O u t z) \to (tlt @@ -445,6 +451,9 @@ nat).O) u)))) (le_n (S (weight_map (\lambda (_: nat).O) u))) (lift O O u) (lift_r u O)) (weight_map (wadd (\lambda (_: nat).O) (S (weight_map (\lambda (_: nat).O) u))) (lift (S O) O u)) (lift_weight_add_O (S (weight_map (\lambda (_: nat).O) u)) u O (\lambda (_: nat).O))))))))). +(* COMMENTS +Initial nodes: 347 +END *) theorem subst0_tlt: \forall (u: T).(\forall (t: T).(\forall (z: T).((subst0 O u t z) \to (tlt z @@ -453,4 +462,7 @@ theorem subst0_tlt: \lambda (u: T).(\lambda (t: T).(\lambda (z: T).(\lambda (H: (subst0 O u t z)).(tlt_trans (THead (Bind Abbr) u z) z (THead (Bind Abbr) u t) (tlt_head_dx (Bind Abbr) u z) (subst0_tlt_head u t z H))))). +(* COMMENTS +Initial nodes: 59 +END *)