X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fstatic%2Faaa_aaa.ma;h=4bf7888c093d531c0cfcc7a3f80b41cbcb4bd6fa;hb=29973426e0227ee48368d1c24dc0c17bf2baef77;hp=fce1c02e4940790e506e3b63a1680bcb0d589c39;hpb=f95f6cb21b86f3dad114b21f687aa5df36088064;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/static/aaa_aaa.ma index fce1c02e4..4bf7888c0 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/static/aaa_aaa.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/static/aaa_aaa.ma @@ -19,7 +19,7 @@ include "basic_2/static/aaa.ma". (* Main properties **********************************************************) -theorem aaa_mono: ∀L,T,A1. L ⊢ T ⁝ A1 → ∀A2. L ⊢ T ⁝ A2 → A1 = A2. +theorem aaa_mono: ∀L,T,A1. ⦃G, L⦄ ⊢ T ⁝ A1 → ∀A2. ⦃G, L⦄ ⊢ T ⁝ A2 → A1 = A2. #L #T #A1 #H elim H -L -T -A1 [ #L #k #A2 #H >(aaa_inv_sort … H) -H //