X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Fdrops_sex.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Fdrops_sex.ma;h=129f950eb5cbf44dd036cf191775eb7c2e2689d1;hb=c7b50fec51b9a25d5bc536f44e54179fd53efb44;hp=5fe9c362ea218cfb09319a366f619e2abc5040ed;hpb=adb9ba187619cea977d1d22971eba27eb437cd6a;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_sex.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_sex.ma index 5fe9c362e..129f950eb 100644 --- a/matita/matita/contribs/lambdadelta/static_2/relocation/drops_sex.ma +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops_sex.ma @@ -34,7 +34,7 @@ lemma sex_co_dropable_sn: ∀RN,RP. co_dropable_sn (sex RN RP). lapply (drops_fwd_isid … HLK … Hf) -HLK #H0 destruct lapply (liftsb_fwd_isid … HJI1 … Hf) -HJI1 #H0 destruct elim (coafter_inv_pxx … Hf2) -Hf2 [1,3:* |*: // ] #g1 #g2 #Hg2 #H1 #H2 destruct - [ elim (sex_inv_push1 … H) | elim (sex_inv_next1 … H) ] -H #I2 #L2 #HL12 #HI12 #H destruct + [ elim (sex_inv_push1 … H) | elim (sex_inv_next1 … H) ] -H #I2 #L2 #HL12 #HI12 #H destruct elim (IH … HL12 … Hg2) -g2 -IH /2 width=1 by isuni_isid/ #K2 #HK12 #HLK2 lapply (drops_fwd_isid … HLK2 … Hf) -HLK2 #H0 destruct /4 width=3 by drops_refl, sex_next, sex_push, isid_push, ex2_intro/