update in ground_2, static_2, basic_2, apps_2, alpha_1

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / jsx_csx.ma

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 adeaa3f882be30565e34efa719b754c6c7dd9e91..6425206385ad6fcad98c84d12ec1ec5119ff1fc9 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx_csx.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/jsx_csx.ma
@@ -22,15 +22,15 @@ include "basic_2/rt_computation/jsx_lsubr.ma".
 
 lemma jsx_csx_conf (h) (G):
       ∀L1,L2. G ⊢ L1 ⊒[h] L2 →
-      â\88\80T. â¦\83G,L1â¦\84 â\8a¢ â¬\88*[h] ð\9d\90\92â¦\83Tâ¦\84 â\86\92 â¦\83G,L2â¦\84 â\8a¢ â¬\88*[h] ð\9d\90\92â¦\83Tâ¦\84.
+      â\88\80T. â\9dªG,L1â\9d« â\8a¢ â¬\88*[h] ð\9d\90\92â\9dªTâ\9d« â\86\92 â\9dªG,L2â\9d« â\8a¢ â¬\88*[h] ð\9d\90\92â\9dªTâ\9d«.
 /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):
-      â\88\80L1,V. G â\8a¢ â¬\88*[h,V] ð\9d\90\92â¦\83L1â¦\84 →
-      â\88\80L2. G â\8a¢ L1 â\8a\92[h] L2 â\86\92 G â\8a¢ â¬\88*[h,V] ð\9d\90\92â¦\83L2â¦\84.
+      â\88\80L1,V. G â\8a¢ â¬\88*[h,V] ð\9d\90\92â\9dªL1â\9d« →
+      â\88\80L2. G â\8a¢ L1 â\8a\92[h] L2 â\86\92 G â\8a¢ â¬\88*[h,V] ð\9d\90\92â\9dªL2â\9d«.
 #h #G #L1 #V @(fqup_wf_ind_eq (Ⓕ) … G L1 V) -G -L1 -V
 #G0 #L0 #V0 #IH #G #L1 * *
 [ //