X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fsubst1%2Fsubst1.ma;h=9558c841f53811264ef8d3754e348c136f61189a;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=e6dae0dc990b7b82b936cb0f031aa617df249714;hpb=88a68a9c334646bc17314d5327cd3b790202acd6;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_1/subst1/subst1.ma b/matita/matita/contribs/lambdadelta/basic_1/subst1/subst1.ma index e6dae0dc9..9558c841f 100644 --- a/matita/matita/contribs/lambdadelta/basic_1/subst1/subst1.ma +++ b/matita/matita/contribs/lambdadelta/basic_1/subst1/subst1.ma @@ -14,9 +14,9 @@ (* This file was automatically generated: do not edit *********************) -include "Basic-1/subst1/fwd.ma". +include "basic_1/subst1/fwd.ma". -include "Basic-1/subst0/subst0.ma". +include "basic_1/subst0/subst0.ma". theorem subst1_subst1: \forall (t1: T).(\forall (t2: T).(\forall (u2: T).(\forall (j: nat).((subst1 @@ -52,9 +52,6 @@ t t3))) (\lambda (x: T).(\lambda (H6: (subst0 j u1 t1 x)).(\lambda (H7: t)) (\lambda (t: T).(subst1 (S (plus i j)) u t t3)) x (subst1_single j u1 t1 x H6) (subst1_single (S (plus i j)) u x t3 H7))))) (subst0_subst0 t1 t3 u2 j H0 u1 u i H5)))))) y H2))) H1))))))) t2 H))))). -(* COMMENTS -Initial nodes: 649 -END *) theorem subst1_subst1_back: \forall (t1: T).(\forall (t2: T).(\forall (u2: T).(\forall (j: nat).((subst1 @@ -83,9 +80,6 @@ x)).(\lambda (H4: (subst0 (S (plus i j)) u t3 x)).(ex_intro2 T (\lambda (t: T).(subst1 j t0 t1 t)) (\lambda (t: T).(subst1 (S (plus i j)) u t3 t)) x (subst1_single j t0 t1 x H3) (subst1_single (S (plus i j)) u t3 x H4))))) (subst0_subst0_back t1 t3 u2 j H0 t0 u i H2)))) u1 H1))))))) t2 H))))). -(* COMMENTS -Initial nodes: 487 -END *) theorem subst1_trans: \forall (t2: T).(\forall (t1: T).(\forall (v: T).(\forall (i: nat).((subst1 @@ -100,9 +94,6 @@ t3)).(\lambda (t4: T).(\lambda (H1: (subst1 i v t3 t4)).(subst1_ind i v t3 (\lambda (t: T).(subst1 i v t1 t)) (subst1_single i v t1 t3 H0) (\lambda (t0: T).(\lambda (H2: (subst0 i v t3 t0)).(subst1_single i v t1 t0 (subst0_trans t3 t1 v i H0 t0 H2)))) t4 H1))))) t2 H))))). -(* COMMENTS -Initial nodes: 165 -END *) theorem subst1_confluence_neq: \forall (t0: T).(\forall (t1: T).(\forall (u1: T).(\forall (i1: @@ -132,9 +123,6 @@ i2 u2 t2 t)) (\lambda (t: T).(subst1 i1 u1 t4 t))) (\lambda (x: T).(\lambda (subst1_single i2 u2 t2 x H5) (subst1_single i1 u1 t4 x H4))))) (subst0_confluence_neq t0 t4 u2 i2 H3 t2 u1 i1 H0 (sym_not_eq nat i1 i2 H2))))) t3 H1)))))))) t1 H))))). -(* COMMENTS -Initial nodes: 455 -END *) theorem subst1_confluence_eq: \forall (t0: T).(\forall (t1: T).(\forall (u: T).(\forall (i: nat).((subst1 @@ -171,9 +159,6 @@ t2) (subst1_single i u t4 t2 H3))) (\lambda (H3: (subst0 i u t2 t4)).(ex_intro2 T (\lambda (t: T).(subst1 i u t2 t)) (\lambda (t: T).(subst1 i u t4 t)) t4 (subst1_single i u t2 t4 H3) (subst1_refl i u t4))) (subst0_confluence_eq t0 t4 u i H2 t2 H0)))) t3 H1))))) t1 H))))). -(* COMMENTS -Initial nodes: 729 -END *) theorem subst1_confluence_lift: \forall (t0: T).(\forall (t1: T).(\forall (u: T).(\forall (i: nat).((subst1 @@ -208,7 +193,4 @@ nat (plus (S O) i) (\lambda (n: nat).(lt i n)) (le_n (plus (S O) i)) (plus i (eq_ind T t4 (\lambda (t: T).(subst0 i u t0 t)) H6 (lift (S O) i t3) H7) in (sym_eq T t3 t1 (subst0_confluence_lift t0 t3 u i H8 t1 H4)))))) y0 H5))) H3))))))) y H0))) H))))). -(* COMMENTS -Initial nodes: 735 -END *)