update in functional

[helm.git] / matita / matita / contribs / lambdadelta / apps_2 / functional / flifts_basic.ma

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 f3e6c31ddf06fb6bc345dc409d5b1d442eb5d971..5c50fb1af74a17fe5745b0f02ce822d7e95724b1 100644 (file)
--- 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.