X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Flpx_reqx.ma;h=36c97f983e3f83cf90b27fd4616a87c5a4702f68;hp=ad623b08b5f7063a0e94085dea367c1807b52b76;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hpb=3b7b8afcb429a60d716d5226a5b6ab0d003228b1 diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_reqx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_reqx.ma index ad623b08b..36c97f983 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_reqx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lpx_reqx.ma @@ -21,9 +21,9 @@ include "basic_2/rt_transition/rpx_lpx.ma". (* Properties with sort-irrelevant equivalence for local environments *******) (* Basic_2A1: uses: lleq_lpx_trans *) -lemma reqx_lpx_trans (h) (G): ∀L2,K2. ⦃G,L2⦄ ⊢ ⬈[h] K2 → +lemma reqx_lpx_trans (h) (G): ∀L2,K2. ❪G,L2❫ ⊢ ⬈[h] K2 → ∀L1. ∀T:term. L1 ≛[T] L2 → - ∃∃K1. ⦃G,L1⦄ ⊢ ⬈[h] K1 & K1 ≛[T] K2. + ∃∃K1. ❪G,L1❫ ⊢ ⬈[h] K1 & K1 ≛[T] K2. #h #G #L2 #K2 #HLK2 #L1 #T #HL12 lapply (lpx_rpx … T HLK2) -HLK2 #HLK2 elim (reqx_rpx_trans … HLK2 … HL12) -L2 #K #H #HK2