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