X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Flpx_fsle.ma;h=77868539ba836cb836917cdf86c4f3c721335897;hb=d7ff8dcf71f18a17fbf66696f0293cd411c1dbca;hp=ed31446250d2530f7181bd3d257ab8b1c95dd224;hpb=5b5dca0c118dfbe3ba8f0514ef07549544eb7810;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_fsle.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_fsle.ma
index ed3144625..77868539b 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_fsle.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_fsle.ma
@@ -14,15 +14,17 @@
 
 include "basic_2/rt_transition/rpx_lpx.ma".
 
-(* UNBOUND PARALLEL RT-TRANSITION FOR FULL LOCAL ENVIRONMENTS ***************)
+(* EXTENDED PARALLEL RT-TRANSITION FOR FULL LOCAL ENVIRONMENTS **************)
 
 (* Forward lemmas with free variables inclusion for restricted closures *****)
 
 (* Basic_2A1: uses: lpx_cpx_frees_trans *)
-lemma lpx_cpx_conf_fsge (h) (G): ∀L0,T0,T1. ⦃G,L0⦄ ⊢ T0 ⬈[h] T1 →
-                                 ∀L2. ⦃G,L0⦄ ⊢ ⬈[h] L2 → ⦃L2,T1⦄ ⊆ ⦃L0,T0⦄.
+lemma lpx_cpx_conf_fsge (G):
+      ∀L0,T0,T1. ❨G,L0❩ ⊢ T0 ⬈ T1 →
+      ∀L2. ❨G,L0❩ ⊢ ⬈ L2 → ❨L2,T1❩ ⊆ ❨L0,T0❩.
 /3 width=4 by rpx_cpx_conf_fsge, lpx_rpx/ qed-.
 
 (* Basic_2A1: uses: lpx_frees_trans *)
-lemma lpx_fsge_comp (h) (G): ∀L0,L2,T0. ⦃G,L0⦄ ⊢ ⬈[h] L2 → ⦃L2,T0⦄ ⊆ ⦃L0,T0⦄.
+lemma lpx_fsge_comp (G):
+      ∀L0,L2,T0. ❨G,L0❩ ⊢ ⬈ L2 → ❨L2,T0❩ ⊆ ❨L0,T0❩.
 /2 width=4 by lpx_cpx_conf_fsge/ qed-.