X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fjsx_csx.ma;h=c11a6bfc9e8e47a71c607cfc6c69bf21959be22d;hb=3c7b4071a9ac096b02334c1d47468776b948e2de;hp=adeaa3f882be30565e34efa719b754c6c7dd9e91;hpb=c7b50fec51b9a25d5bc536f44e54179fd53efb44;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx_csx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx_csx.ma
index adeaa3f88..c11a6bfc9 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx_csx.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx_csx.ma
@@ -16,22 +16,22 @@ include "basic_2/rt_computation/rsx_csx.ma".
 include "basic_2/rt_computation/jsx_drops.ma".
 include "basic_2/rt_computation/jsx_lsubr.ma".
 
-(* COMPATIBILITY OF STRONG NORMALIZATION FOR UNBOUND RT-TRANSITION **********)
+(* COMPATIBILITY OF STRONG NORMALIZATION FOR EXTENDED RT-TRANSITION *********)
 
 (* Properties with strongly rt-normalizing terms ****************************)
 
-lemma jsx_csx_conf (h) (G):
-      ∀L1,L2. G ⊢ L1 ⊒[h] L2 →
-      ∀T. ⦃G,L1⦄ ⊢ ⬈*[h] 𝐒⦃T⦄ → ⦃G,L2⦄ ⊢ ⬈*[h] 𝐒⦃T⦄.
+lemma jsx_csx_conf (G):
+      ∀L1,L2. G ⊢ L1 ⊒ L2 →
+      ∀T. ❪G,L1❫ ⊢ ⬈*𝐒 T → ❪G,L2❫ ⊢ ⬈*𝐒 T.
 /3 width=5 by jsx_fwd_lsubr, csx_lsubr_conf/ qed-.
 
 (* Properties with strongly rt-normalizing referred local environments ******)
 
 (* Note: Try by induction on the 2nd premise by generalizing V with f *)
-lemma rsx_jsx_trans (h) (G):
-      ∀L1,V. G ⊢ ⬈*[h,V] 𝐒⦃L1⦄ →
-      ∀L2. G ⊢ L1 ⊒[h] L2 → G ⊢ ⬈*[h,V] 𝐒⦃L2⦄.
-#h #G #L1 #V @(fqup_wf_ind_eq (Ⓕ) … G L1 V) -G -L1 -V
+lemma rsx_jsx_trans (G):
+      ∀L1,V. G ⊢ ⬈*𝐒[V] L1 →
+      ∀L2. G ⊢ L1 ⊒ L2 → G ⊢ ⬈*𝐒[V] L2.
+#G #L1 #V @(fqup_wf_ind_eq (Ⓕ) … G L1 V) -G -L1 -V
 #G0 #L0 #V0 #IH #G #L1 * *
 [ //
 | #i #HG #HL #HV #H #L2 #HL12 destruct