X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcpmre_aaa.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcpmre_aaa.ma;h=f96423c3fc99fc4b8c2be9ec7add524e5426d445;hb=8ec019202bff90959cf1a7158b309e7f83fa222e;hp=8639ec1a37f70f4d9696dd1e31ba7fa88da10f7a;hpb=33d0a7a9029859be79b25b5a495e0f30dab11f37;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpmre_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpmre_aaa.ma index 8639ec1a3..f96423c3f 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpmre_aaa.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpmre_aaa.ma @@ -22,7 +22,7 @@ include "basic_2/rt_computation/cprre_cpms.ma". (* Properties with atomic atomic arity assignment on terms ******************) lemma cpmre_total_aaa (h) (n) (A) (G) (L): - ∀T1. ❪G,L❫ ⊢ T1 ⁝ A → ∃T2. ❪G,L❫ ⊢ T1 ➡*𝐍[h,n] T2. + ∀T1. ❨G,L❩ ⊢ T1 ⁝ A → ∃T2. ❨G,L❩ ⊢ T1 ➡*𝐍[h,n] T2. #h #n #A #G #L #T1 #HT1 elim (cpms_total_aaa h … n … HT1) #T0 #HT10 elim (cprre_total_csx h G L T0)