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