X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Ffunctional%2Fflifts_basic.ma;h=d4c856b0ac859674a443247ac3168a384f62cbc0;hb=68b4f2490c12139c03760b39895619e63b0f38c9;hp=5c50fb1af74a17fe5745b0f02ce822d7e95724b1;hpb=ea918ec7701db4458c5ca25885e80abc6fed1be7;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/apps_2/functional/flifts_basic.ma b/matita/matita/contribs/lambdadelta/apps_2/functional/flifts_basic.ma index 5c50fb1af..d4c856b0a 100644 --- a/matita/matita/contribs/lambdadelta/apps_2/functional/flifts_basic.ma +++ b/matita/matita/contribs/lambdadelta/apps_2/functional/flifts_basic.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "ground_2/relocation/nstream_basic.ma". +include "ground/relocation/nstream_basic.ma". include "apps_2/functional/flifts.ma". include "apps_2/notation/functional/uparrow_3.ma". @@ -28,5 +28,5 @@ lemma flifts_basic_lref_ge (i) (d) (h): d ≤ i → ↑[d,h](#i) = #(h+i). /4 width=1 by apply_basic_ge, (* 2x *) eq_f/ qed-. -lemma flifts_basic_bind (p) (I) (V) (T) (d) (h): ↑[d,h](ⓑ{p,I}V.T) = ⓑ{p,I}(↑[d,h]V).(↑[↑d,h]T). +lemma flifts_basic_bind (p) (I) (V) (T) (d) (h): ↑[d,h](ⓑ[p,I]V.T) = ⓑ[p,I](↑[d,h]V).(↑[↑d,h]T). // qed.