X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Frpx_drops.ma;h=5e37a7213de391f62354f5ac231fc9e1c262ea9a;hp=ae9319282a50898c99146529f8c8a711c777e169;hb=3c7b4071a9ac096b02334c1d47468776b948e2de;hpb=2f6f2b7c01d47d23f61dd48d767bcb37aecdcfea

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_drops.ma
index ae9319282..5e37a7213 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_drops.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/rpx_drops.ma
@@ -16,23 +16,23 @@ include "static_2/static/rex_drops.ma".
 include "basic_2/rt_transition/cpx_drops.ma".
 include "basic_2/rt_transition/rpx.ma".
 
-(* UNBOUND PARALLEL RT-TRANSITION FOR REFERRED LOCAL ENVIRONMENTS ***********)
+(* EXTENDED PARALLEL RT-TRANSITION FOR REFERRED LOCAL ENVIRONMENTS **********)
 
 (* Properties with generic slicing for local environments *******************)
 
-lemma rpx_lifts_sn (h) (G): f_dedropable_sn (cpx h G).
+lemma rpx_lifts_sn (G): f_dedropable_sn (cpx G).
 /3 width=6 by rex_liftable_dedropable_sn, cpx_lifts_sn/ qed-.
 
 (* Inversion lemmas with generic slicing for local environments *************)
 
-lemma rpx_inv_lifts_sn (h) (G): f_dropable_sn (cpx h G).
+lemma rpx_inv_lifts_sn (G): f_dropable_sn (cpx G).
 /2 width=5 by rex_dropable_sn/ qed-.
 
-lemma rpx_inv_lifts_dx (h) (G): f_dropable_dx (cpx h G).
+lemma rpx_inv_lifts_dx (G): f_dropable_dx (cpx G).
 /2 width=5 by rex_dropable_dx/ qed-.
 
-lemma rpx_inv_lifts_bi (h) (G):
-                       ∀L1,L2,U. ❪G,L1❫ ⊢ ⬈[h,U] L2 → ∀b,f. 𝐔❪f❫ →
-                       ∀K1,K2. ⇩*[b,f] L1 ≘ K1 → ⇩*[b,f] L2 ≘ K2 →
-                       ∀T. ⇧*[f]T ≘ U → ❪G,K1❫ ⊢ ⬈[h,T] K2.
+lemma rpx_inv_lifts_bi (G):
+      ∀L1,L2,U. ❪G,L1❫ ⊢ ⬈[U] L2 → ∀b,f. 𝐔❪f❫ →
+      ∀K1,K2. ⇩*[b,f] L1 ≘ K1 → ⇩*[b,f] L2 ≘ K2 →
+      ∀T. ⇧*[f]T ≘ U → ❪G,K1❫ ⊢ ⬈[T] K2.
 /2 width=10 by rex_inv_lifts_bi/ qed-.