X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frt_transition%2Fcpx_lsubr.ma;h=2e79ed6292db860fc076837c54f67dc1f1a62f47;hb=d7ff8dcf71f18a17fbf66696f0293cd411c1dbca;hp=42fd64fa1888d311a14c6611fa4fea377521cea2;hpb=3c7b4071a9ac096b02334c1d47468776b948e2de;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_lsubr.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_lsubr.ma index 42fd64fa1..2e79ed629 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_lsubr.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/rt_transition/cpx_lsubr.ma @@ -24,7 +24,7 @@ lemma lsubr_cpx_trans (G): lsub_trans … (cpx G) lsubr. qed-. lemma cpx_bind_unit (G) (L): - ∀V1,V2. ❪G,L❫ ⊢ V1 ⬈ V2 → - ∀J,T1,T2. ❪G,L.ⓤ[J]❫ ⊢ T1 ⬈ T2 → - ∀p,I. ❪G,L❫ ⊢ ⓑ[p,I]V1.T1 ⬈ ⓑ[p,I]V2.T2. + ∀V1,V2. ❨G,L❩ ⊢ V1 ⬈ V2 → + ∀J,T1,T2. ❨G,L.ⓤ[J]❩ ⊢ T1 ⬈ T2 → + ∀p,I. ❨G,L❩ ⊢ ⓑ[p,I]V1.T1 ⬈ ⓑ[p,I]V2.T2. /4 width=4 by lsubr_cpx_trans, cpx_bind, lsubr_unit/ qed.