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=976060440851356132f238931953eedc40e5460f;hb=f7296f9cf2ee73465a374942c46b138f35c42ccb;hp=d5c4a4a8bb006e7a05bf9b06f51ed033ff83b10b;hpb=990f97071a9939d47be16b36f6045d3b23f218e0;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 d5c4a4a8b..976060440 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_fsle_comp, lfxs_conf/ qed-. +/3 width=6 by cpr_conf_lfpr, lfpr_fsge_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 →