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