# HG changeset patch
# User haftmann
# Date 1700594356 0
# Node ID 74440d820ba57ee1f74a6e5aa3cec8df4714178c
# Parent  3befd4d1e6f2e994e828aba8ed2fc4f366a9b366
more correct type annotation

diff -r 3befd4d1e6f2 -r 74440d820ba5 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>