X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Frelocation%2Fdrops_drops.ma;h=0b3279de95214bf6caea3b889a5e0fd858bd758e;hb=384b04944ac31922ee41418b106b8e19a19ba9f0;hp=06a2eb84e10399a76eb88695661943561215bba6;hpb=83cf6c88d2d0bd2c8af86ab7f95bf94c1ae59bc9;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_drops.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_drops.ma index 06a2eb84e..0b3279de9 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_drops.ma @@ -31,7 +31,7 @@ theorem drops_conf: ∀b1,f1,L1,L. ⬇*[b1, f1] L1 ≡ L → #g #Hg #H destruct /3 width=3 by drops_inv_drop1/ | #f1 #I #K1 #K #V1 #V #_ #HV1 #IH #b2 #f #L2 #HL2 #f2 #Hf elim (after_inv_pxx … Hf) -Hf [1,3: * |*:// ] #g2 #g #Hf #H1 #H2 destruct - [ elim (drops_inv_skip1 … HL2) -HL2 /3 width=6 by drops_skip, lifts_div/ + [ elim (drops_inv_skip1 … HL2) -HL2 /3 width=6 by drops_skip, lifts_div3/ | /4 width=3 by drops_inv_drop1, drops_drop/ ] ]