X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fstatic%2Flsuba_aaa.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fstatic%2Flsuba_aaa.ma;h=13ace886f6e4f88c9965d2002989662c36c64478;hb=8ec019202bff90959cf1a7158b309e7f83fa222e;hp=5f9c886c29d47f5655412a28a54298910698aae0;hpb=33d0a7a9029859be79b25b5a495e0f30dab11f37;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsuba_aaa.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsuba_aaa.ma index 5f9c886c2..13ace886f 100644 --- a/matita/matita/contribs/lambdadelta/static_2/static/lsuba_aaa.ma +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsuba_aaa.ma @@ -19,8 +19,8 @@ include "static_2/static/lsuba.ma". (* Properties with atomic arity assignment **********************************) -lemma lsuba_aaa_conf: ∀G,L1,V,A. ❪G,L1❫ ⊢ V ⁝ A → - ∀L2. G ⊢ L1 ⫃⁝ L2 → ❪G,L2❫ ⊢ V ⁝ A. +lemma lsuba_aaa_conf: ∀G,L1,V,A. ❨G,L1❩ ⊢ V ⁝ A → + ∀L2. G ⊢ L1 ⫃⁝ L2 → ❨G,L2❩ ⊢ V ⁝ A. #G #L1 #V #A #H elim H -G -L1 -V -A [ // | #I #G #L1 #V #A #HA #IH #L2 #H @@ -36,8 +36,8 @@ 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. +lemma lsuba_aaa_trans: ∀G,L2,V,A. ❨G,L2❩ ⊢ V ⁝ A → + ∀L1. G ⊢ L1 ⫃⁝ L2 → ❨G,L1❩ ⊢ V ⁝ A. #G #L2 #V #A #H elim H -G -L2 -V -A [ // | #I #G #L2 #V #A #HA #IH #L1 #H