diff -r f700ca53e3ae -r ccc3a72210e6 src/HOL/Library/Word.thy
--- 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