- the milestone was not reported on the web page!

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / computation / csn_aaa.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/computation/csn_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/computation/csn_aaa.ma
index 67744a098a152cd8101ea18dfe6e37f566856b47..cd8d5a64b7ef7df7aeb11c29221b6734db04597f 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/computation/csn_aaa.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/computation/csn_aaa.ma
@@ -15,11 +15,11 @@
 include "basic_2/computation/acp_aaa.ma".
 include "basic_2/computation/csn_tstc_vector.ma".
 
-(* CONTEXT-SENSITIVE STRONGLY NORMALIZING TERMS *****************************)
+(* CONTEXT-SENSITIVE EXTENDED STRONGLY NORMALIZING TERMS ********************)
 
-(* Properties concerning atomic arity assignment ****************************)
+(* Main properties concerning atomic arity assignment ***********************)
 
-lemma csn_aaa: ∀L,T,A. L ⊢ T ⁝ A → L ⊢ ⬊* T.
-#L #T #A #H
-@(acp_aaa … csn_acp csn_acr … H)
-qed. 
+theorem csn_aaa: ∀h,g,L,T,A. L ⊢ T ⁝ A → ⦃h, L⦄ ⊢ ⬊*[g] T.
+#h #g #L #T #A #H
+@(acp_aaa … (csn_acp h g) (csn_acr h g) … H)
+qed.