X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fstatic%2Flsubc_drops.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fstatic%2Flsubc_drops.ma;h=65edb1006d30ce6f23218a5a0098791c4bdc2606;hb=8ec019202bff90959cf1a7158b309e7f83fa222e;hp=26d627a9056f38382f3edde31bf7e3a109c973df;hpb=33d0a7a9029859be79b25b5a495e0f30dab11f37;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/static/lsubc_drops.ma b/matita/matita/contribs/lambdadelta/static_2/static/lsubc_drops.ma index 26d627a90..65edb1006 100644 --- a/matita/matita/contribs/lambdadelta/static_2/static/lsubc_drops.ma +++ b/matita/matita/contribs/lambdadelta/static_2/static/lsubc_drops.ma @@ -19,11 +19,11 @@ include "static_2/static/lsubc.ma". (* Properties with generic slicing ******************************************) -(* Note: the premise 𝐔❪f❫ cannot be removed *) +(* Note: the premise 𝐔❨f❩ cannot be removed *) (* Basic_1: includes: csubc_drop_conf_O *) (* Basic_2A1: includes: lsubc_drop_O1_trans *) lemma lsubc_drops_trans_isuni: ∀RP,G,L1,L2. G ⊢ L1 ⫃[RP] L2 → - ∀b,f,K2. 𝐔❪f❫ → ⇩*[b,f] L2 ≘ K2 → + ∀b,f,K2. 𝐔❨f❩ → ⇩*[b,f] L2 ≘ K2 → ∃∃K1. ⇩*[b,f] L1 ≘ K1 & G ⊢ K1 ⫃[RP] K2. #RP #G #L1 #L2 #H elim H -L1 -L2 [ /2 width=3 by ex2_intro/