X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Frelocation%2Ffr2_nat_nat.ma;h=b4033e80c6440fc6f0478c5d8299d6e128e90601;hb=12dc655b7f5321b33b93a310d53e23e60e090caa;hp=744becdada3f64dbfd45d87b0e602dcd1599e8d1;hpb=dd41efaab7f147d5673cc30a27d36375f9b52c9d;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 744becdad..b4033e80c 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/fr2_nat_nat.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/fr2_nat_nat.ma
@@ -22,10 +22,10 @@ include "ground/relocation/fr2_nat.ma".
 theorem fr2_nat_mono (f) (l):
         ∀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 //
+[ #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-.