X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fstatic%2Flsuba_aaa.ma;h=65b4fd7832d3d403c0d364e45d5b13fac6947c80;hb=f282b35b958c9602fb1f47e5677b5805a046ac76;hp=8818ae48c0de4343ccd882afdc211cfa0e8dacc9;hpb=cb5ca7ea4e826e9331eabeaea44353caab00071e;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_aaa.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_aaa.ma index 8818ae48c..65b4fd783 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_aaa.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_aaa.ma @@ -20,7 +20,7 @@ include "basic_2/static/lsuba_ldrop.ma". (* Properties concerning atomic arity assignment ****************************) lemma lsuba_aaa_conf: ∀G,L1,V,A. ⦃G, L1⦄ ⊢ V ⁝ A → - ∀L2. G ⊢ L1 ⁝⊑ L2 → ⦃G, L2⦄ ⊢ V ⁝ A. + ∀L2. G ⊢ L1 ⁝⫃ L2 → ⦃G, L2⦄ ⊢ V ⁝ A. #G #L1 #V #A #H elim H -G -L1 -V -A [ // | #I #G #L1 #K1 #V #A #i #HLK1 #HV #IHV #L2 #HL12 @@ -38,7 +38,7 @@ lemma lsuba_aaa_conf: ∀G,L1,V,A. ⦃G, L1⦄ ⊢ V ⁝ A → qed-. lemma lsuba_aaa_trans: ∀G,L2,V,A. ⦃G, L2⦄ ⊢ V ⁝ A → - ∀L1. G ⊢ L1 ⁝⊑ L2 → ⦃G, L1⦄ ⊢ V ⁝ A. + ∀L1. G ⊢ L1 ⁝⫃ L2 → ⦃G, L1⦄ ⊢ V ⁝ A. #G #L2 #V #A #H elim H -G -L2 -V -A [ // | #I #G #L2 #K2 #V #A #i #HLK2 #H1V #IHV #L1 #HL12