X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fi_dynamic%2Fntas_ntas.ma;h=b4dd13d695646b6118bfff2aedee5b4fdfba5b35;hp=67e7464cabd82f43d6a238ac6d2fe58001e18dd9;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hpb=3b7b8afcb429a60d716d5226a5b6ab0d003228b1 diff --git a/matita/matita/contribs/lambdadelta/basic_2/i_dynamic/ntas_ntas.ma b/matita/matita/contribs/lambdadelta/basic_2/i_dynamic/ntas_ntas.ma index 67e7464ca..b4dd13d69 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/i_dynamic/ntas_ntas.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/i_dynamic/ntas_ntas.ma @@ -19,8 +19,8 @@ include "basic_2/i_dynamic/ntas_preserve.ma". (* Main properties **********************************************************) theorem ntas_trans (h) (a) (G) (L) (T0): - ∀n1,T1. ⦃G,L⦄ ⊢ T1 :*[h,a,n1] T0 → - ∀n2,T2. ⦃G,L⦄ ⊢ T0 :*[h,a,n2] T2 → ⦃G,L⦄ ⊢ T1 :*[h,a,n1+n2] T2. + ∀n1,T1. ❪G,L❫ ⊢ T1 :*[h,a,n1] T0 → + ∀n2,T2. ❪G,L❫ ⊢ T0 :*[h,a,n2] T2 → ❪G,L❫ ⊢ T1 :*[h,a,n1+n2] T2. #h #a #G #L #T0 #n1 #T1 * #X1 #HT0 #HT1 #H01 #H11 #n2 #T2 * #X2 #HT2 #_ #H22 #H02 elim (cnv_cpms_conf … HT0 … H01 … H02) -T0