]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/delayed_updating/substitution/lift_structure_depth.ma
update in delayed_updating
[helm.git] / matita / matita / contribs / lambdadelta / delayed_updating / substitution / lift_structure_depth.ma
index ee42bfb2437ba841ce544d243d5596a471a44fb4..228e132bfb70216cc6f18f2bbce74d578a5707a4 100644 (file)
@@ -23,11 +23,10 @@ include "ground/arith/nat_pred_succ.ma".
 (* Basic constructions with structure and depth ****************************)
 
 lemma lift_rmap_structure (p) (f):
-      (⫯*[â\86\93â\9d\98\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.