author | haftmann |
Tue, 21 Nov 2023 19:19:16 +0000 | |
changeset 79016 | 74440d820ba5 |
parent 79015 | 3befd4d1e6f2 |
child 79017 | 127ba61b2630 |
--- a/src/HOL/Code_Numeral.thy Tue Nov 21 23:35:22 2023 +0100 +++ b/src/HOL/Code_Numeral.thy Tue Nov 21 19:19:16 2023 +0000 @@ -1123,7 +1123,7 @@ lemma [code]: \<open>bit m n \<longleftrightarrow> odd (drop_bit n m)\<close> - \<open>mask n = 2 ^ n - (1 :: integer)\<close> + \<open>mask n = 2 ^ n - (1 :: natural)\<close> \<open>set_bit n m = m OR push_bit n 1\<close> \<open>flip_bit n m = m XOR push_bit n 1\<close> \<open>push_bit n m = m * 2 ^ n\<close>