X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Flfpr_lfpx.ma;h=47323a86d149d3a0b141e4be1ce0e016feff16e7;hb=8509994e58db23307b45081491d35d5f7ff6ea6f;hp=aea28258ead0e8b4f55fb26b9d599a86c1952c85;hpb=73052ec76ff5492989f9cbae2ebe0b770fcb985f;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lfpr_lfpx.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lfpr_lfpx.ma index aea28258e..47323a86d 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lfpr_lfpx.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lfpr_lfpx.ma @@ -20,9 +20,5 @@ include "basic_2/rt_transition/lfpr.ma". (* Fwd. lemmas with unc. rt-transition for local env.s on referred entries **) -lemma lfpx_frees_conf_fwd_lfpr: ∀h,G. lexs_frees_confluent (cpx h G) cfull → - lexs_frees_confluent (cpm 0 h G) cfull. -/4 width=7 by cpm_fwd_cpx, lexs_co/ qed-. - lemma lfpr_fwd_lfpx: ∀h,T,G,L1,L2. ⦃G, L1⦄ ⊢ ➡[h, T] L2 → ⦃G, L1⦄ ⊢ ⬈[h, T] L2. /3 width=3 by cpm_fwd_cpx, lfxs_co/ qed-.