X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcpxs_lleq.ma;h=2765cf1bc596ccc11e96a759fedf5e33c7190a65;hb=f694e3336cbdabdeefd86f85d827edfd26bf3464;hp=be3e0f0b5f62263a03fc9f89cb6344ebeecc6610;hpb=b1c1894b6ee9a48c3b0bacd09be00938d8e20341;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_lleq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_lleq.ma index be3e0f0b5..2765cf1bc 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_lleq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpxs_lleq.ma @@ -19,21 +19,21 @@ include "basic_2/computation/cpxs.ma". (* Properties on lazy equivalence for local environments ********************) -lemma lleq_cpxs_trans: ∀h,o,G,L2,T1,T2. ⦃G, L2⦄ ⊢ T1 ➡*[h, o] T2 → - ∀L1. L1 ≡[T1, 0] L2 → ⦃G, L1⦄ ⊢ T1 ➡*[h, o] T2. +lemma lleq_cpxs_trans: ∀h,o,G,L2,T1,T2. ⦃G, L2⦄ ⊢ T1 ⬈*[h, o] T2 → + ∀L1. L1 ≡[T1, 0] L2 → ⦃G, L1⦄ ⊢ T1 ⬈*[h, o] T2. #h #o #G #L2 #T1 #T2 #H @(cpxs_ind_dx … H) -T1 /4 width=6 by cpx_lleq_conf_dx, lleq_cpx_trans, cpxs_strap2/ qed-. -lemma cpxs_lleq_conf: ∀h,o,G,L2,T1,T2. ⦃G, L2⦄ ⊢ T1 ➡*[h, o] T2 → - ∀L1. L2 ≡[T1, 0] L1 → ⦃G, L1⦄ ⊢ T1 ➡*[h, o] T2. +lemma cpxs_lleq_conf: ∀h,o,G,L2,T1,T2. ⦃G, L2⦄ ⊢ T1 ⬈*[h, o] T2 → + ∀L1. L2 ≡[T1, 0] L1 → ⦃G, L1⦄ ⊢ T1 ⬈*[h, o] T2. /3 width=3 by lleq_cpxs_trans, lleq_sym/ qed-. -lemma cpxs_lleq_conf_dx: ∀h,o,G,L2,T1,T2. ⦃G, L2⦄ ⊢ T1 ➡*[h, o] T2 → +lemma cpxs_lleq_conf_dx: ∀h,o,G,L2,T1,T2. ⦃G, L2⦄ ⊢ T1 ⬈*[h, o] T2 → ∀L1. L1 ≡[T1, 0] L2 → L1 ≡[T2, 0] L2. #h #o #G #L2 #T1 #T2 #H @(cpxs_ind … H) -T2 /3 width=6 by cpx_lleq_conf_dx/ qed-. -lemma cpxs_lleq_conf_sn: ∀h,o,G,L1,T1,T2. ⦃G, L1⦄ ⊢ T1 ➡*[h, o] T2 → +lemma cpxs_lleq_conf_sn: ∀h,o,G,L1,T1,T2. ⦃G, L1⦄ ⊢ T1 ⬈*[h, o] T2 → ∀L2. L1 ≡[T1, 0] L2 → L1 ≡[T2, 0] L2. /4 width=6 by cpxs_lleq_conf_dx, lleq_sym/ qed-.