]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambda_delta/basic_2/computation/csn_aaa.ma
Finalized copy sub-machine of the universal turing machine. Some new results
[helm.git] / matita / matita / contribs / lambda_delta / basic_2 / computation / csn_aaa.ma
index 421a3a7f7e9d9777601b822960d50c8df161435f..8b36e75ae57c9a1500d031151c34217dc7c356be 100644 (file)
 (*                                                                        *)
 (**************************************************************************)
 
-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.