update in delayed_updating

[helm.git] / matita / matita / contribs / lambdadelta / delayed_updating / substitution / lift_structure_depth.ma

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_structure_depth.ma b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_structure_depth.ma
index ee42bfb2437ba841ce544d243d5596a471a44fb4..a85caab1c18442efb716b514df665952e4c048dd 100644 (file)
--- a/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_structure_depth.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_structure_depth.ma
@@ -15,7 +15,6 @@
 include "delayed_updating/substitution/lift.ma".
 include "delayed_updating/syntax/path_structure.ma".
 include "delayed_updating/syntax/path_depth.ma".
-include "ground/relocation/tr_pushs.ma".
 include "ground/arith/nat_pred_succ.ma".
 
 (* LIFT FOR PATH ***********************************************************)
@@ -23,11 +22,10 @@ include "ground/arith/nat_pred_succ.ma".
 (* Basic constructions with structure and depth ****************************)
 
 lemma lift_rmap_structure (p) (f):
-      (⫯*[â\86\93â\9d\98pâ\9d\98]f) = â\86\91[â\8a\97p]f.
+      (⫯*[❘p❘]f) = ↑[⊗p]f.
 #p elim p -p //
 * [ #n ] #p #IH #f //
-[ <lift_rmap_L_sn <IH -IH >tr_pushs_swap //
-| <lift_rmap_A_sn //
+[ <lift_rmap_A_sn //
 | <lift_rmap_S_sn //
 ]
 qed.