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=421a3a7f7e9d9777601b822960d50c8df161435f;hb=f21509c476b20e5446335c967b1e81f87ceb4f6c;hp=8bc613aa4a34903d4a29e7a8c120e19688fc1c84;hpb=39e80f80b26e18cf78f805e814ba2f2e8400c1f1;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 8bc613aa4..421a3a7f7 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
@@ -13,13 +13,13 @@
 (**************************************************************************)
 
 include "Basic_2/computation/acp_aaa.ma".
-include "Basic_2/computation/csn_cr.ma".
+include "Basic_2/computation/csn_lcpr_vector.ma".
 
 (* CONTEXT-SENSITIVE STRONGLY NORMALIZING TERMS *****************************)
 
-(* Main properties **********************************************************)
+(* Properties concerning atomic arity assignment ****************************)
 
-theorem 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.