X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Fcomputation%2Fcsn_cpr_vector.ma;h=70c00eb119860b56ae60585e3419fffb1195f50e;hb=eae50cc815292d335df1c488a00b39ef98fa5870;hp=375d645f2773506df022a616565e626cace56a41;hpb=7cf0b6c720e4d7fa05dd25ec0ad0478c0802ba67;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/computation/csn_cpr_vector.ma b/matita/matita/contribs/lambda_delta/basic_2/computation/csn_cpr_vector.ma index 375d645f2..70c00eb11 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/computation/csn_cpr_vector.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/computation/csn_cpr_vector.ma @@ -17,7 +17,7 @@ include "basic_2/computation/csn_vector.ma". (* Advanced forward lemmas **************************************************) -lemma csn_fwd_applv: ∀L,T,Vs. L ⊢ ⬇* Ⓐ Vs. T → L ⊢ ⬇* Vs ∧ L ⊢ ⬇* T. +lemma csn_fwd_applv: ∀L,T,Vs. L ⊢ ⬊* Ⓐ Vs. T → L ⊢ ⬊* Vs ∧ L ⊢ ⬊* T. #L #T #Vs elim Vs -Vs /2 width=1/ #V #Vs #IHVs #HVs lapply (csn_fwd_pair_sn … HVs) #HV