update in ground

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

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 1dd3cd9a6fe005a6af9c291fff7ac56da69487df..b4033e80c6440fc6f0478c5d8299d6e128e90601 100644 (file)
--- a/matita/matita/contribs/lambdadelta/ground/relocation/fr2_nat_nat.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/fr2_nat_nat.ma
@@ -14,18 +14,18 @@
 
 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):
-        â\88\80l1. @â\9dªl, fâ\9d« â\89\98 l1 â\86\92 â\88\80l2. @â\9dªl, fâ\9d« ≘ l2 → l1 = l2.
+        â\88\80l1. @â\9d¨l, fâ\9d© â\89\98 l1 â\86\92 â\88\80l2. @â\9d¨l, fâ\9d© ≘ l2 → l1 = l2.
 #f #l #l1 #H elim H -f -l -l1
-[ #l #x #H <(fr2_nat_inv_nil … H) -x //
+[ #l #x #H <(fr2_nat_inv_empty … H) -x //
 | #f #d #h #l #l1 #Hld #_ #IH #x #H
-  lapply (fr2_nat_inv_cons_lt … H Hld) -H -Hld /2 width=1 by/
+  lapply (fr2_nat_inv_lcons_lt … H Hld) -H -Hld /2 width=1 by/
 | #f #d #h #l #l1 #Hdl #_ #IH #x #H
-  lapply (fr2_nat_inv_cons_ge … H Hdl) -H -Hdl /2 width=1 by/
+  lapply (fr2_nat_inv_lcons_ge … H Hdl) -H -Hdl /2 width=1 by/
 ]
 qed-.