update in ground_2, static_2, basic_2, apps_2, alpha_1

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_transition / rpx_fsle.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fsle.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fsle.ma
index fd4ddc459e41cd81b4cd9ebe8f33fcb78937a4df..29c6a5cd3de00374b4b48d5f291c924ef426cf7c 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fsle.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_fsle.ma
@@ -22,12 +22,12 @@ include "basic_2/rt_transition/rpx_fqup.ma".
 
 (* Forward lemmas with free variables inclusion for restricted closures *****)
 
-(* Note: "â¦\83L2, T1â¦\84 â\8a\86 â¦\83L2, T0â¦\84" does not hold *)
-(* Note: Take L0 = K0.â\93\93(â\93\9dW.V), L2 = K0.â\93\93W, T0 = #0, T1 = â¬\86*[1]V *)
-(* Note: This invalidates rpxs_cpx_conf: "∀h,G. s_r_confluent1 … (cpx h G) (rpxs h G)" *)
-lemma rpx_cpx_conf_fsge (h) (G): â\88\80L0,T0,T1. â¦\83G, L0â¦\84 ⊢ T0 ⬈[h] T1 →
-                                 â\88\80L2. â¦\83G, L0â¦\84 â\8a¢â¬\88[h, T0] L2 â\86\92 â¦\83L2, T1â¦\84 â\8a\86 â¦\83L0, T0â¦\84.
-#h #G0 #L0 #T0 @(fqup_wf_ind_eq (â\92») … G0 L0 T0) -G0 -L0 -T0
+(* Note: "â\9dªL2, T1â\9d« â\8a\86 â\9dªL2, T0â\9d«" does not hold *)
+(* Note: Take L0 = K0.â\93\93(â\93\9dW.V), L2 = K0.â\93\93W, T0 = #0, T1 = â\87§*[1]V *)
+(* Note: This invalidates rpxs_cpx_conf: "∀h, G. s_r_confluent1 … (cpx h G) (rpxs h G)" *)
+lemma rpx_cpx_conf_fsge (h) (G): â\88\80L0,T0,T1. â\9dªG,L0â\9d« ⊢ T0 ⬈[h] T1 →
+                                 â\88\80L2. â\9dªG,L0â\9d« â\8a¢â¬\88[h,T0] L2 â\86\92 â\9dªL2,T1â\9d« â\8a\86 â\9dªL0,T0â\9d«.
+#h #G0 #L0 #T0 @(fqup_wf_ind_eq (â\93\89) … G0 L0 T0) -G0 -L0 -T0
 #G #L #T #IH #G0 #L0 * *
 [ #s #HG #HL #HT #X #HX #Y #HY destruct -IH
   elim (cpx_inv_sort1 … HX) -HX #H destruct
@@ -133,6 +133,6 @@ lemma cpx_rex_conf (R) (h) (G): s_r_confluent1 … (cpx h G) (rex R).
 lemma rpx_cpx_conf (h) (G): s_r_confluent1 … (cpx h G) (rpx h G).
 /2 width=5 by cpx_rex_conf/ qed-.
 
-lemma rpx_cpx_conf_fsge_dx (h) (G): â\88\80L0,T0,T1. â¦\83G, L0â¦\84 ⊢ T0 ⬈[h] T1 →
-                                    â\88\80L2. â¦\83G, L0â¦\84 â\8a¢â¬\88[h, T0] L2 â\86\92 â¦\83L2, T1â¦\84 â\8a\86 â¦\83L0, T1â¦\84.
+lemma rpx_cpx_conf_fsge_dx (h) (G): â\88\80L0,T0,T1. â\9dªG,L0â\9d« ⊢ T0 ⬈[h] T1 →
+                                    â\88\80L2. â\9dªG,L0â\9d« â\8a¢â¬\88[h,T0] L2 â\86\92 â\9dªL2,T1â\9d« â\8a\86 â\9dªL0,T1â\9d«.
 /3 width=5 by rpx_cpx_conf, rpx_fsge_comp/ qed-.