include "basic_2/rt_computation/lfpxs_lpxs.ma".
include "basic_2/rt_computation/lfsx_lfpxs.ma".
-(* STRONGLY NORMALIZING LOCAL ENV.S FOR UNCOUNTED PARALLEL RT-TRANSITION ****)
+(* STRONGLY NORMALIZING LOCAL ENV.S FOR UNBOUND PARALLEL RT-TRANSITION ******)
-(* Properties with uncounted rt-computation *********************************)
+(* Properties with unbound rt-computation ***********************************)
lemma lfsx_intro_lpxs: ∀h,o,G,L1,T.
(∀L2. ⦃G, L1⦄ ⊢ ⬈*[h] L2 → (L1 ≛[h, o, T] L2 → ⊥) → G ⊢ ⬈*[h, o, T] 𝐒⦃L2⦄) →
∀L2. ⦃G, L1⦄ ⊢ ⬈*[h] L2 → G ⊢ ⬈*[h, o, T] 𝐒⦃L2⦄.
/3 width=3 by lfsx_lfpxs_trans, lfpxs_lpxs/ qed-.
-(* Eliminators with uncounted rt-computation ********************************)
+(* Eliminators with unbound rt-computation **********************************)
lemma lfsx_ind_lpxs: ∀h,o,G,T. ∀R:predicate lenv.
(∀L1. G ⊢ ⬈*[h, o, T] 𝐒⦃L1⦄ →