X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Fpr_nat.ma;h=13154a1bb7249d1775c4c65771216de4f896d5c8;hb=77479649510792efe4d9cbff508e118360862594;hp=f61913c80adde38adfe6af0297327450701bd4ad;hpb=9b4e20442ec5a4028cfe2b6fe836c94acdb033b8;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/pr_nat.ma b/matita/matita/contribs/lambdadelta/ground/relocation/pr_nat.ma
index f61913c80..13154a1bb 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/pr_nat.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/pr_nat.ma
@@ -19,7 +19,7 @@ include "ground/relocation/pr_pat.ma".
 (* NON-NEGATIVE APPLICATION FOR PARTIAL RELOCATION MAPS *********************)
 
 definition pr_nat: relation3 pr_map nat nat ≝
-           λf,l1,l2. @❨↑l1,f❩ ≘ ↑l2.
+           λf,l1,l2. ＠⧣❨↑l1,f❩ ≘ ↑l2.
 
 interpretation
   "relational non-negative application (partial relocation maps)"
@@ -46,7 +46,7 @@ lemma pr_nat_next (f) (l1) (l2) (g) (k2):
 qed.
 
 lemma pr_nat_pred_bi (f) (i1) (i2):
-      @❨i1,f❩ ≘ i2 → @↑❨↓i1,f❩ ≘ ↓i2.
+      ＠⧣❨i1,f❩ ≘ i2 → @↑❨↓i1,f❩ ≘ ↓i2.
 #f #i1 #i2
 >(npsucc_pred i1) in ⊢ (%→?); >(npsucc_pred i2) in ⊢ (%→?);
 //