X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fstatic%2Flsuba_lsuba.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fstatic%2Flsuba_lsuba.ma;h=e14012c45d8f95f413af5d04cfa708f03d7f03f0;hb=f282b35b958c9602fb1f47e5677b5805a046ac76;hp=eb7ae1386e663b6dc64c002d73f3fd0ce879bfb3;hpb=cb5ca7ea4e826e9331eabeaea44353caab00071e;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_lsuba.ma b/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_lsuba.ma index eb7ae1386..e14012c45 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_lsuba.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/static/lsuba_lsuba.ma @@ -18,7 +18,7 @@ include "basic_2/static/lsuba_aaa.ma". (* Main properties **********************************************************) -theorem lsuba_trans: ∀G,L1,L. G ⊢ L1 ⁝⊑ L → ∀L2. G ⊢ L ⁝⊑ L2 → G ⊢ L1 ⁝⊑ L2. +theorem lsuba_trans: ∀G,L1,L. G ⊢ L1 ⁝⫃ L → ∀L2. G ⊢ L ⁝⫃ L2 → G ⊢ L1 ⁝⫃ L2. #G #L1 #L #H elim H -L1 -L [ #X #H >(lsuba_inv_atom1 … H) -H // | #I #L1 #L #Y #HL1 #IHL1 #X #H