X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Funwind%2Fnap.ma;h=bfa89a784f13694ab444f1852ead7c4233743e9c;hb=77479649510792efe4d9cbff508e118360862594;hp=502765a0acd865ea1a55a72530f6af43a27ddc48;hpb=9b4e20442ec5a4028cfe2b6fe836c94acdb033b8;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/unwind/nap.ma b/matita/matita/contribs/lambdadelta/delayed_updating/unwind/nap.ma index 502765a0a..bfa89a784 100644 --- a/matita/matita/contribs/lambdadelta/delayed_updating/unwind/nap.ma +++ b/matita/matita/contribs/lambdadelta/delayed_updating/unwind/nap.ma @@ -13,14 +13,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):