X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcpt_cpm.ma;h=bf7dff5d9f84865033deb8d8b9ab65b51ec61ed3;hp=8358906acbd80729362e4943f03054616505ae53;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hpb=3b7b8afcb429a60d716d5226a5b6ab0d003228b1 diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpt_cpm.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpt_cpm.ma index 8358906ac..bf7dff5d9 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpt_cpm.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpt_cpm.ma @@ -20,7 +20,7 @@ include "basic_2/rt_transition/cpt_fqu.ma". (* Forward lemmas with t-bound rt-transition for terms **********************) lemma cpt_fwd_cpm (h) (n) (G) (L): - ∀T1,T2. ⦃G,L⦄ ⊢ T1 ⬆[h,n] T2 → ⦃G,L⦄ ⊢ T1 ➡[n,h] T2. + ∀T1,T2. ❪G,L❫ ⊢ T1 ⬆[h,n] T2 → ❪G,L❫ ⊢ T1 ➡[n,h] T2. #h #n #G #L #T1 #T2 #H @(cpt_ind … H) -n -G -L -T1 -T2 /3 width=3 by cpm_ee, cpm_cast, cpm_appl, cpm_bind, cpm_lref, cpm_ell, cpm_delta/