src/HOL/ZF/HOLZF.thy
changeset 32989 c28279b29ff1
parent 32960 69916a850301
parent 32988 d1d4d7a08a66
child 33057 764547b68538
--- a/src/HOL/ZF/HOLZF.thy	Sun Oct 18 00:10:20 2009 +0200
+++ b/src/HOL/ZF/HOLZF.thy	Sun Oct 18 12:07:56 2009 +0200
@@ -626,7 +626,7 @@
 
 lemma nat2Nat_Nat2nat[simp]: "Elem n Nat \<Longrightarrow> nat2Nat (Nat2nat n) = n"
   apply (simp add: Nat2nat_def)
-  apply (rule_tac f_inv_f)
+  apply (rule_tac f_inv_onto_f)
   apply (auto simp add: image_def Nat_def Sep)
   done