X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcsx_lfdeq.ma;h=69f78e094bca1308449ed62b684c511b12a869d2;hb=5c186c72f508da0849058afeecc6877cd9ed6303;hp=67e63613adeea062623ceb2b8234981b0a754d88;hpb=a09b60bd574adf1a7d3e423023009cb20c79d449;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_lfdeq.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_lfdeq.ma index 67e63613a..69f78e094 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_lfdeq.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_lfdeq.ma @@ -15,13 +15,13 @@ include "basic_2/rt_transition/cpx_lfdeq.ma". include "basic_2/rt_computation/csx_csx.ma". -(* STRONGLY NORMALIZING TERMS FOR UNCOUNTED PARALLEL RT-TRANSITION **********) +(* STRONGLY NORMALIZING TERMS FOR UNBOUND PARALLEL RT-TRANSITION ************) (* Properties with degree-based equivalence for local environments **********) (* Basic_2A1: uses: csx_lleq_conf *) lemma csx_lfdeq_conf: ∀h,o,G,L1,T. ⦃G, L1⦄ ⊢ ⬈*[h, o] 𝐒⦃T⦄ → - ∀L2. L1 ≡[h, o, T] L2 → ⦃G, L2⦄ ⊢ ⬈*[h, o] 𝐒⦃T⦄. + ∀L2. L1 ≛[h, o, T] L2 → ⦃G, L2⦄ ⊢ ⬈*[h, o] 𝐒⦃T⦄. #h #o #G #L1 #T #H @(csx_ind … H) -T #T1 #_ #IH #L2 #HL12 @csx_intro #T2 #HT12 #HnT12 @@ -30,6 +30,6 @@ elim (lfdeq_cpx_trans … HL12 … HT12) -HT12 qed-. (* Basic_2A1: uses: csx_lleq_conf *) -lemma csx_lfdeq_trans: ∀h,o,L1,L2,T. L1 ≡[h, o, T] L2 → +lemma csx_lfdeq_trans: ∀h,o,L1,L2,T. L1 ≛[h, o, T] L2 → ∀G. ⦃G, L2⦄ ⊢ ⬈*[h, o] 𝐒⦃T⦄ → ⦃G, L1⦄ ⊢ ⬈*[h, o] 𝐒⦃T⦄. /3 width=3 by csx_lfdeq_conf, lfdeq_sym/ qed-.