X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fapps_2%2Ffunctional%2Fflifts_basic.ma;h=5c50fb1af74a17fe5745b0f02ce822d7e95724b1;hp=f3e6c31ddf06fb6bc345dc409d5b1d442eb5d971;hb=ea918ec7701db4458c5ca25885e80abc6fed1be7;hpb=053be41a8db6aa0ca7cc06fb569ec284a9bcc5ef

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 f3e6c31dd..5c50fb1af 100644
--- a/matita/matita/contribs/lambdadelta/apps_2/functional/flifts_basic.ma
+++ b/matita/matita/contribs/lambdadelta/apps_2/functional/flifts_basic.ma
@@ -12,11 +12,21 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "ground_2/relocation/rtmap_basic.ma".
+include "ground_2/relocation/nstream_basic.ma".
 include "apps_2/functional/flifts.ma".
 include "apps_2/notation/functional/uparrow_3.ma".
 
-(* GENERIC FUNCTIONAL RELOCATION ********************************************)
+(* BASIC FUNCTIONAL RELOCATION **********************************************)
 
 interpretation "basic functional relocation (term)"
    'UpArrow d h T = (flifts (basic d h) T).
+
+(* Basic properties *********************************************************)
+
+lemma flifts_basic_lref_ge (i) (d) (h): d ≤ i → ↑[d,h](#i) = #(h+i).
+#i #d #h #Hdi
+/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).
+// qed.