X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Freduction%2Fcpr.ma;h=3c0514a3c7a876b4ca2c0f1a305b54d837e3f621;hb=32bdf7f107be22a121fab8225c5fae4eb6b33633;hp=28b040bf8dd9f5f63736d2868063e7b0e1a4f74d;hpb=8ed01fd6a38bea715ceb449bb7b72a46bad87851;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/reduction/cpr.ma b/matita/matita/contribs/lambdadelta/basic_2/reduction/cpr.ma index 28b040bf8..3c0514a3c 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/reduction/cpr.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/reduction/cpr.ma @@ -16,7 +16,7 @@ include "basic_2/notation/relations/pred_4.ma". include "basic_2/grammar/genv.ma". include "basic_2/grammar/cl_shift.ma". include "basic_2/relocation/ldrop_append.ma". -include "basic_2/substitution/lsubr.ma". +include "basic_2/relocation/lsubr.ma". (* CONTEXT-SENSITIVE PARALLEL REDUCTION FOR TERMS ***************************) @@ -286,7 +286,7 @@ lemma cpr_fwd_bind1_minus: ∀I,G,L,V1,T1,T. ⦃G, L⦄ ⊢ -ⓑ{I}V1.T1 ➡ T #I #G #L #V1 #T1 #T #H #b elim (cpr_inv_bind1 … H) -H * [ #V2 #T2 #HV12 #HT12 #H destruct /3 width=4/ -| #T2 #_ #_ #H destruct +| #T2 #_ #_ #H destruct ] qed-.