X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Ffr2_nat_nat.ma;h=744becdada3f64dbfd45d87b0e602dcd1599e8d1;hb=742e21da086654af82f308027250d00b50d67f52;hp=1dd3cd9a6fe005a6af9c291fff7ac56da69487df;hpb=55c768d7e45babb300b5010463ba3196a68f1bbe;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/fr2_nat_nat.ma b/matita/matita/contribs/lambdadelta/ground/relocation/fr2_nat_nat.ma
index 1dd3cd9a6..744becdad 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/fr2_nat_nat.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/fr2_nat_nat.ma
@@ -14,13 +14,13 @@
 
 include "ground/relocation/fr2_nat.ma".
 
-(* NON-NEGATIVE APPLICATION FOR FINITE RELOCATION MAPS WITH PAIRS *******************************************)
+(* NON-NEGATIVE APPLICATION FOR FINITE RELOCATION MAPS WITH PAIRS ***********)
 
-(* Main properties **********************************************************)
+(* Main constructions *******************************************************)
 
 (*** at_mono *)
 theorem fr2_nat_mono (f) (l):
-        ∀l1. @❪l, f❫ ≘ l1 → ∀l2. @❪l, f❫ ≘ l2 → l1 = l2.
+        ∀l1. @❨l, f❩ ≘ l1 → ∀l2. @❨l, f❩ ≘ l2 → l1 = l2.
 #f #l #l1 #H elim H -f -l -l1
 [ #l #x #H <(fr2_nat_inv_nil … H) -x //
 | #f #d #h #l #l1 #Hld #_ #IH #x #H