update in delayed_updating

[helm.git] / matita / matita / contribs / lambdadelta / delayed_updating / unwind / nap.ma

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/unwind/nap.ma b/matita/matita/contribs/lambdadelta/delayed_updating/unwind/nap.ma
index 502765a0acd865ea1a55a72530f6af43a27ddc48..985b3ae26e292b0be8b77d0db3f7fa7d555e4010 100644 (file)
--- a/matita/matita/contribs/lambdadelta/delayed_updating/unwind/nap.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/unwind/nap.ma
@@ -1,6 +1,5 @@
 include "ground/relocation/tr_uni_pap.ma".
 include "ground/relocation/tr_compose_pap.ma".
-include "ground/relocation/tr_pap_pn.ma".
 include "ground/notation/functions/applysucc_2.ma".
 include "ground/arith/nat_lt.ma".
 include "ground/arith/nat_plus_rplus.ma".
@@ -13,14 +12,14 @@ lemma nlt_npsucc_bi (n1) (n2):
 qed.
 
 definition tr_nap (f) (l:nat): nat ≝
-           ↓(f@❨↑l❩).
+           ↓(f＠⧣❨↑l❩).
 
 interpretation
   "functional non-negative application (total relocation maps)"
   'ApplySucc f l = (tr_nap f l).
 
 lemma tr_nap_unfold (f) (l):
-      ↓(f@❨↑l❩) = f@↑❨l❩.
+      ↓(f＠⧣❨↑l❩) = f@↑❨l❩.
 // qed.
 
 lemma tr_compose_nap (f2) (f1) (l):