]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/rt_computation/csx_lfdeq.ma
renaming
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / csx_lfdeq.ma
index 67e63613adeea062623ceb2b8234981b0a754d88..69f78e094bca1308449ed62b684c511b12a869d2 100644 (file)
 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⦄ →
-                      â\88\80L2. L1 â\89¡[h, o, T] L2 → ⦃G, L2⦄ ⊢ ⬈*[h, o] 𝐒⦃T⦄.
+                      â\88\80L2. L1 â\89\9b[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: â\88\80h,o,L1,L2,T. L1 â\89¡[h, o, T] L2 →
+lemma csx_lfdeq_trans: â\88\80h,o,L1,L2,T. L1 â\89\9b[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-.