X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Freducibility%2Flcpr_cpr.ma;h=3d833fc025d87776597f02dc4165fcf32598ef3e;hb=83fcc60ebb369516f291209925ffa42ba64e24f9;hp=7abe34742397f2c4fd017f43290f843c0516813d;hpb=eb918fc784eacd2094e3986ba321ef47690d9983;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/reducibility/lcpr_cpr.ma b/matita/matita/contribs/lambda_delta/basic_2/reducibility/lcpr_cpr.ma index 7abe34742..3d833fc02 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/reducibility/lcpr_cpr.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/reducibility/lcpr_cpr.ma @@ -12,9 +12,9 @@ (* *) (**************************************************************************) -include "Basic_2/unfold/ltpss_ltpss.ma". -include "Basic_2/reducibility/cpr.ma". -include "Basic_2/reducibility/lcpr.ma". +include "basic_2/unfold/ltpsss_ltpsss.ma". +include "basic_2/reducibility/cpr.ma". +include "basic_2/reducibility/lcpr.ma". (* CONTEXT-SENSITIVE PARALLEL REDUCTION ON LOCAL ENVIRONMENTS *************) @@ -23,5 +23,5 @@ include "Basic_2/reducibility/lcpr.ma". lemma lcpr_pair: ∀L1,L2. L1 ⊢ ➡ L2 → ∀V1,V2. L2 ⊢ V1 ➡ V2 → ∀I. L1. ⓑ{I} V1 ⊢ ➡ L2. ⓑ{I} V2. #L1 #L2 * #L #HL1 #HL2 #V1 #V2 * -<(ltpss_fwd_length … HL2) /4 width=5/ +<(ltpsss_fwd_length … HL2) /4 width=5/ qed.