X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Frelocation%2Fdrops.ma;h=d67deff757ef601824d8c9587d1a5a14d9ff97b9;hb=0bcf2dc1a27e38cb6cd3d44eb838d652926841e0;hp=a0ec3349b9eec016a77acb46d1e2f5b1d4d63781;hpb=25c634037771dff0138e5e8e3d4378183ff49b86;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/static_2/relocation/drops.ma b/matita/matita/contribs/lambdadelta/static_2/relocation/drops.ma index a0ec3349b..d67deff75 100644 --- a/matita/matita/contribs/lambdadelta/static_2/relocation/drops.ma +++ b/matita/matita/contribs/lambdadelta/static_2/relocation/drops.ma @@ -12,9 +12,9 @@ (* *) (**************************************************************************) -include "ground_2/xoa/ex_1_2.ma". -include "ground_2/xoa/ex_4_3.ma". -include "ground_2/relocation/rtmap_coafter.ma". +include "ground/xoa/ex_1_2.ma". +include "ground/xoa/ex_4_3.ma". +include "ground/relocation/rtmap_coafter.ma". include "static_2/notation/relations/rdropstar_4.ma". include "static_2/notation/relations/rdrop_3.ma". include "static_2/relocation/seq.ma". @@ -217,7 +217,7 @@ fact drops_fwd_drop2_aux: ∀b,f2,X,Y. ⇩*[b,f2] X ≘ Y → ∀I,K. Y = K.ⓘ[ | #f2 #I #L1 #L2 #_ #IHL #J #K #H elim (IHL … H) -IHL /3 width=7 by after_next, ex3_2_intro, drops_drop/ | #f2 #I1 #I2 #L1 #L2 #HL #_ #_ #J #K #H destruct - lapply (after_isid_dx 𝐈𝐝 … f2) /3 width=9 by after_push, ex3_2_intro, drops_drop/ + lapply (after_isid_dx 𝐢 … f2) /3 width=9 by after_push, ex3_2_intro, drops_drop/ ] qed-.