X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Fcomputation%2Fcsn_tstc_vector.ma;h=205642fac210cb13bfcf95d8de7081302b716343;hb=cb38da6095e3af84131a3ebf47a9f252f34a804c;hp=5660846151ccccf34091579dec50f40f283ee317;hpb=5ac2dc4e01aca542ddd13c02b304c646d8df9799;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/computation/csn_tstc_vector.ma b/matita/matita/contribs/lambda_delta/basic_2/computation/csn_tstc_vector.ma index 566084615..205642fac 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/computation/csn_tstc_vector.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/computation/csn_tstc_vector.ma @@ -90,7 +90,7 @@ qed. (* Basic_1: was: sn3_appls_cast *) lemma csn_applv_tau: ∀L,W. L ⊢ ⬇* W → ∀Vs,T. L ⊢ ⬇* ⒶVs. T → - L ⊢ ⬇* ⒶVs. ⓣW. T. + L ⊢ ⬇* ⒶVs. ⓝW. T. #L #W #HW #Vs elim Vs -Vs /2 width=1/ -HW #V #Vs #IHV #T #H1T lapply (csn_fwd_pair_sn … H1T) #HV