changeset 75085 | ccc3a72210e6 |
parent 74592 | 3c587b7c3d5c |
child 75087 | f3fcc7c5a0db |
--- a/src/HOL/Library/Word.thy Thu Feb 17 19:40:30 2022 +0100 +++ b/src/HOL/Library/Word.thy Thu Feb 17 19:42:15 2022 +0000 @@ -1850,7 +1850,7 @@ moreover from Suc.prems have \<open>even k \<longleftrightarrow> even l\<close> by (auto simp add: take_bit_Suc elim!: evenE oddE) arith+ ultimately show ?case - by (simp only: map_Suc_upt upt_conv_Cons flip: list.map_comp) simp + by (simp only: map_Suc_upt upt_conv_Cons flip: list.map_comp) (simp add: bit_0) qed lemma