update in delayed_updating

[helm.git] / matita / matita / contribs / lambdadelta / ground / relocation / nap.ma

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/nap.ma b/matita/matita/contribs/lambdadelta/ground/relocation/nap.ma
index 985b3ae26e292b0be8b77d0db3f7fa7d555e4010..ac32304ed352d6fd996c64900ead586effd36fe2 100644 (file)
--- a/matita/matita/contribs/lambdadelta/ground/relocation/nap.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/nap.ma
@@ -22,6 +22,10 @@ lemma tr_nap_unfold (f) (l):
       ↓(f＠⧣❨↑l❩) = f@↑❨l❩.
 // qed.
 
+lemma tr_pap_succ_nap (f) (l):
+      ↑(f@↑❨l❩) = f＠⧣❨↑l❩.
+// qed.
+
 lemma tr_compose_nap (f2) (f1) (l):
       f2@↑❨f1@↑❨l❩❩ = (f2∘f1)@↑❨l❩.
 #f2 #f1 #l