changeset 79016 | 74440d820ba5 |
parent 79008 | 74a4776f7a22 |
child 79018 | 7449ff77029e |
--- 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>