X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2A%2Fmultiple%2Fdrops_drops.ma;h=dbe215329196c0f8cc2b727d97caf47072f614fa;hb=2f6f2b7c01d47d23f61dd48d767bcb37aecdcfea;hp=f984e37e9f7a48b45469ada969f76c2a7c8aa841;hpb=1fd63df4c77f5c24024769432ea8492748b4ac79;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2A/multiple/drops_drops.ma b/matita/matita/contribs/lambdadelta/basic_2A/multiple/drops_drops.ma index f984e37e9..dbe215329 100644 --- a/matita/matita/contribs/lambdadelta/basic_2A/multiple/drops_drops.ma +++ b/matita/matita/contribs/lambdadelta/basic_2A/multiple/drops_drops.ma @@ -12,14 +12,13 @@ (* *) (**************************************************************************) -include "ground_2/relocation/mr2_append.ma". +include "ground/relocation/mr2_append.ma". include "basic_2A/multiple/drops_drop.ma". (* ITERATED LOCAL ENVIRONMENT SLICING ***************************************) (* Main properties **********************************************************) -(* Basic_1: was: drop1_trans *) theorem drops_trans: ∀L,L2,s,cs2. ⬇*[s, cs2] L ≡ L2 → ∀L1,cs1. ⬇*[s, cs1] L1 ≡ L → ⬇*[s, cs2 @@ cs1] L1 ≡ L2. #L #L2 #s #cs2 #H elim H -L -L2 -cs2 /3 width=3 by drops_cons/