]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/ground/relocation/fr2_nat_nat.ma
update in ground
[helm.git] / matita / matita / contribs / lambdadelta / ground / relocation / fr2_nat_nat.ma
index b4033e80c6440fc6f0478c5d8299d6e128e90601..c84990142f8c73b4661697b94c15d3b00168a327 100644 (file)
@@ -20,7 +20,7 @@ include "ground/relocation/fr2_nat.ma".
 
 (*** at_mono *)
 theorem fr2_nat_mono (f) (l):
-        â\88\80l1. @â\9d¨l, fâ\9d© â\89\98 l1 â\86\92 â\88\80l2. @❨l, f❩ ≘ l2 → l1 = l2.
+        â\88\80l1. @â\86\91â\9d¨l, fâ\9d© â\89\98 l1 â\86\92 â\88\80l2. @â\86\91❨l, f❩ ≘ l2 → l1 = l2.
 #f #l #l1 #H elim H -f -l -l1
 [ #l #x #H <(fr2_nat_inv_empty … H) -x //
 | #f #d #h #l #l1 #Hld #_ #IH #x #H