X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcpr_cpr.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcpr_cpr.ma;h=5b04a00f8ae00aa3169c684beedd9c7b472cda77;hb=05b047be6817f430c8c72fd9b0902df8bb9f579e;hp=0000000000000000000000000000000000000000;hpb=cce6d001d2c71a0a7f4b6d4bb136d105224b2cd1;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_cpr.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_cpr.ma new file mode 100644 index 000000000..5b04a00f8 --- /dev/null +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpr_cpr.ma @@ -0,0 +1,23 @@ +(**************************************************************************) +(* ___ *) +(* ||M|| *) +(* ||A|| A project by Andrea Asperti *) +(* ||T|| *) +(* ||I|| Developers: *) +(* ||T|| The HELM team. *) +(* ||A|| http://helm.cs.unibo.it *) +(* \ / *) +(* \ / This file is distributed under the terms of the *) +(* v GNU General Public License Version 2 *) +(* *) +(**************************************************************************) + +include "basic_2/rt_transition/lpr_lpr.ma". + +(* PARALLEL R-TRANSITION FOR FULL LOCAL ENVIRONMENTS ************************) + +(* Main properties **********************************************************) + +(* Basic_1: includes: pr0_confluence pr2_confluence *) +theorem cpr_conf (h) (G) (L): confluent … (cpm h G L 0). +/2 width=6 by cpr_conf_lpr/ qed-.