X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_computation%2Fcpms_aaa.ma;h=f4cc579aabcc11b9273201775c6ef5d7b9349853;hp=41d1340805b23398a4d448c448224fce0cd020cc;hb=f308429a0fde273605a2330efc63268b4ac36c99;hpb=87f57ddc367303c33e19c83cd8989cd561f3185b diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms_aaa.ma index 41d134080..f4cc579aa 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms_aaa.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/cpms_aaa.ma @@ -26,7 +26,7 @@ lemma cpms_aaa_conf (n) (h): ∀G,L. Conf3 … (aaa G L) (cpms h G L n). /3 width=5 by cpms_fwd_cpxs, cpxs_aaa_conf/ qed-. lemma cpms_total_aaa (h) (G) (L) (n) (A): - ∀T. ⦃G, L⦄ ⊢ T ⁝ A → ∃U. ⦃G,L⦄ ⊢ T ➡*[n,h] U. + ∀T. ⦃G,L⦄ ⊢ T ⁝ A → ∃U. ⦃G,L⦄ ⊢ T ➡*[n,h] U. #h #G #L #n elim n -n [ /2 width=3 by ex_intro/ | #n #IH #A #T1 #HT1