- we introduced the pointer_step rc in the perspective of proving

[helm.git] / matita / matita / contribs / lambda_delta / apps_2 / functional / lift.ma

diff --git a/matita/matita/contribs/lambda_delta/apps_2/functional/lift.ma b/matita/matita/contribs/lambda_delta/apps_2/functional/lift.ma
index e2c802c5169fe28289d490177372e397c38cf1dc..bf05ea36a2765cbcd37e568bb8508380aebff48f 100644 (file)
--- a/matita/matita/contribs/lambda_delta/apps_2/functional/lift.ma
+++ b/matita/matita/contribs/lambda_delta/apps_2/functional/lift.ma
@@ -12,11 +12,10 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "ground_2/tri.ma".
 include "basic_2/substitution/lift.ma".
 include "apps_2/functional/notation.ma".
 
-(* RELOCATION ***************************************************************)
+(* FUNCTIONAL RELOCATION ****************************************************)
 
 let rec flift d e U on U ≝ match U with
 [ TAtom I     ⇒ match I with
@@ -25,8 +24,8 @@ let rec flift d e U on U ≝ match U with
   | GRef _ ⇒ U
   ]
 | TPair I V T ⇒ match I with
-  [ Bind2 I ⇒ ⓑ{I} (flift d e V). (flift (d+1) e T)
-  | Flat2 I ⇒ ⓕ{I} (flift d e V). (flift d e T)
+  [ Bind2 a I ⇒ ⓑ{a,I} (flift d e V). (flift (d+1) e T)
+  | Flat2 I   ⇒ ⓕ{I} (flift d e V). (flift d e T)
   ]
 ].
 
@@ -37,7 +36,7 @@ interpretation "functional relocation" 'Lift d e T = (flift d e T).
 theorem flift_lift: ∀T,d,e. ⇧[d, e] T ≡ ↑[d, e] T.
 #T elim T -T
 [ * #i #d #e //
-  elim (lt_or_eq_or_gt i d) #Hid normalize 
+  elim (lt_or_eq_or_gt i d) #Hid normalize
   [ >(tri_lt ?????? Hid) /2 width=1/
   | /2 width=1/
   | >(tri_gt ?????? Hid) /3 width=2/