# HG changeset patch
# User huffman
# Date 1323774643 -3600
# Node ID 518a245a1ab6411cd371e242bee84757fc22e2a5
# Parent  4158f35a5c6ff998d191c45cfb316a54eb990ef0
type signature for bin_sign

diff -r 4158f35a5c6f -r 518a245a1ab6 src/HOL/Word/Bit_Representation.thy
--- a/src/HOL/Word/Bit_Representation.thy	Tue Dec 13 12:05:47 2011 +0100
+++ b/src/HOL/Word/Bit_Representation.thy	Tue Dec 13 12:10:43 2011 +0100
@@ -296,7 +296,7 @@
 
 subsection {* Truncating binary integers *}
 
-definition
+definition bin_sign :: "int \<Rightarrow> int" where
   bin_sign_def: "bin_sign k = (if k \<ge> 0 then 0 else - 1)"
 
 lemma bin_sign_simps [simp]: