src/HOL/Word/Bits_Int.thy
changeset 70170 56727602d0a5
parent 70169 8bb835f10a39
child 70172 c247bf924d25
--- a/src/HOL/Word/Bits_Int.thy	Tue Apr 16 19:50:03 2019 +0000
+++ b/src/HOL/Word/Bits_Int.thy	Tue Apr 16 19:50:05 2019 +0000
@@ -370,7 +370,7 @@
   have "2 * (bin mod 2 ^ n) + 1 = (2 * bin mod 2 ^ Suc n) + 1"
     by (simp add: mod_mult_mult1)
   also have "\<dots> = ((2 * bin mod 2 ^ Suc n) + 1) mod 2 ^ Suc n"
-    by (simp add: ac_simps p1mod22k')
+    by (simp add: ac_simps pos_zmod_mult_2)
   also have "\<dots> = (2 * bin + 1) mod 2 ^ Suc n"
     by (simp only: mod_simps)
   finally show ?thesis