src/HOL/Word/WordArith.thy
changeset 24368 4c2e80f30aeb
parent 24350 4d74f37c6367
child 24377 223622422d7b
--- a/src/HOL/Word/WordArith.thy	Mon Aug 20 23:00:17 2007 +0200
+++ b/src/HOL/Word/WordArith.thy	Mon Aug 20 23:35:51 2007 +0200
@@ -837,7 +837,7 @@
 lemma iszero_word_no [simp] : 
   "iszero (number_of bin :: 'a :: len word) = 
     iszero (number_of (bintrunc (len_of TYPE('a)) bin) :: int)"
-  apply (simp add: zero_bintrunc int_number_of)
+  apply (simp add: zero_bintrunc number_of_is_id)
   apply (unfold iszero_def Pls_def)
   apply (rule refl)
   done