X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Freducibility%2Fltpr_ltpss.ma;h=34221e4c54ea103ef4d30eb373f2112c685f4b8a;hb=78d4844bcccb3deb58a3179151c3045298782b18;hp=ecc2d74436512a00a42223240488e713253a1257;hpb=9d2ded02c4252d3db0a9f5249d5b5d0f84f48d04;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/reducibility/ltpr_ltpss.ma b/matita/matita/contribs/lambda_delta/basic_2/reducibility/ltpr_ltpss.ma index ecc2d7443..34221e4c5 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/reducibility/ltpr_ltpss.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/reducibility/ltpr_ltpss.ma @@ -18,8 +18,8 @@ include "basic_2/reducibility/tpr_tpss.ma". (* Properties concerning parallel unfold on local environments **************) -lemma ltpr_ltpss_conf: ∀L1,K1,d,e. L1 [d, e] ▶* K1 → ∀L2. L1 ➡ L2 → - ∃∃K2. L2 [d, e] ▶* K2 & K1 ➡ K2. +lemma ltpr_ltpss_conf: ∀L1,K1,d,e. L1 ▶* [d, e] K1 → ∀L2. L1 ➡ L2 → + ∃∃K2. L2 ▶* [d, e] K2 & K1 ➡ K2. #L1 #K1 #d #e #H elim H -L1 -K1 -d -e [ /2 width=3/ | #L1 #I #V1 #X #H