X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Fcomputation%2Fcsn_aaa.ma;h=67744a098a152cd8101ea18dfe6e37f566856b47;hb=6c86c70b005e3f3efd375868b27f3cff84febfad;hp=421a3a7f7e9d9777601b822960d50c8df161435f;hpb=eb918fc784eacd2094e3986ba321ef47690d9983;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/computation/csn_aaa.ma b/matita/matita/contribs/lambda_delta/basic_2/computation/csn_aaa.ma index 421a3a7f7..67744a098 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/computation/csn_aaa.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/computation/csn_aaa.ma @@ -12,14 +12,14 @@ (* *) (**************************************************************************) -include "Basic_2/computation/acp_aaa.ma". -include "Basic_2/computation/csn_lcpr_vector.ma". +include "basic_2/computation/acp_aaa.ma". +include "basic_2/computation/csn_tstc_vector.ma". (* CONTEXT-SENSITIVE STRONGLY NORMALIZING TERMS *****************************) (* Properties concerning atomic arity assignment ****************************) -lemma csn_aaa: ∀L,T,A. L ⊢ T ÷ A → L ⊢ ⬇* T. +lemma csn_aaa: ∀L,T,A. L ⊢ T ⁝ A → L ⊢ ⬊* T. #L #T #A #H @(acp_aaa … csn_acp csn_acr … H) qed.