X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcpm_lfxs.ma;h=499a145bf9c58e6fa41f99a0addb66df6dfa1e2d;hp=e9785d6a31e6d1851b41eafcbcbc14a19c0d2356;hb=9323611e3819c1382b872a7ada00264991f36217;hpb=b0eb62e60a2fd73ba39c7a0df112f04131528602 diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_lfxs.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_lfxs.ma index e9785d6a3..499a145bf 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_lfxs.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpm_lfxs.ma @@ -14,17 +14,16 @@ include "basic_2/rt_transition/cpx_lfxs.ma". include "basic_2/rt_transition/cpm_cpx.ma". -include "basic_2/rt_transition/cpr_ext.ma". (* CONTEXT-SENSITIVE PARALLEL REDUCTION FOR TERMS ***************************) (* Properties with context-sensitive free variables *************************) -lemma cpm_frees_conf: ∀n,h,G. R_frees_confluent (cpm n h G). -/3 width=6 by cpm_fwd_cpx, cpx_frees_conf/ qed-. +lemma cpm_fle_comp: ∀n,h,G. R_fle_compatible (cpm n h G). +/3 width=6 by cpm_fwd_cpx, cpx_fle_comp/ qed-. -lemma lfpr_frees_conf: ∀h,G. lexs_frees_confluent (cpr_ext h G) cfull. -/5 width=9 by cpm_fwd_cpx, lfpx_frees_conf, lexs_co, cext2_co/ qed-. +lemma lfpr_fle_comp: ∀h,G. lfxs_fle_compatible (cpm 0 h G). +/4 width=5 by cpm_fwd_cpx, lfpx_fle_comp, lfxs_co/ qed-. (* Properties with generic extension on referred entries ********************)