X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Flfpr_lfpr.ma;h=8be2aa6415bf01f9c6a385f9dfc5648626fb9f41;hb=47a745462a714af9d65cea7b61af56524bd98fa1;hp=3db8912af9be58b54270779a54fc3a08db9fd0f4;hpb=9323611e3819c1382b872a7ada00264991f36217;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lfpr_lfpr.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lfpr_lfpr.ma index 3db8912af..8be2aa641 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lfpr_lfpr.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/lfpr_lfpr.ma @@ -12,9 +12,8 @@ (* *) (**************************************************************************) -include "basic_2/static/lfxs_lfxs.ma". include "basic_2/rt_transition/cpm_lsubr.ma". -include "basic_2/rt_transition/cpm_lfxs.ma". +include "basic_2/rt_transition/cpm_fsle.ma". include "basic_2/rt_transition/cpr.ma". include "basic_2/rt_transition/cpr_drops.ma". include "basic_2/rt_transition/lfpr_drops.ma". @@ -380,7 +379,7 @@ qed-. (* Main properties **********************************************************) theorem lfpr_conf: ∀h,G,T. confluent … (lfpr h G T). -/3 width=6 by cpr_conf_lfpr, lfpr_fle_comp, lfxs_conf/ qed-. +/3 width=6 by cpr_conf_lfpr, lfpr_fsle_comp, lfxs_conf/ qed-. theorem lfpr_bind: ∀h,G,L1,L2,V1. ⦃G, L1⦄ ⊢ ➡[h, V1] L2 → ∀I,V2,T. ⦃G, L1.ⓑ{I}V1⦄ ⊢ ➡[h, T] L2.ⓑ{I}V2 →