more correct type annotation
authorhaftmann
Tue, 21 Nov 2023 19:19:16 +0000
changeset 79016 74440d820ba5
parent 79015 3befd4d1e6f2
child 79017 127ba61b2630
more correct type annotation
src/HOL/Code_Numeral.thy
--- 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>