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=f3e6c31ddf06fb6bc345dc409d5b1d442eb5d971;hpb=cc6fcb70ca4f3cf01205ed722d75a2fdb2aaf779;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 f3e6c31dd..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,11 +12,21 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "ground_2/relocation/rtmap_basic.ma".
+include "ground/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.