src/HOL/Library/Code_Natural.thy
changeset 39272 0b61951d2682
parent 38968 e55deaa22fff
child 39781 2053638a2bf2
--- a/src/HOL/Library/Code_Natural.thy	Fri Sep 10 09:56:28 2010 +0200
+++ b/src/HOL/Library/Code_Natural.thy	Fri Sep 10 10:21:25 2010 +0200
@@ -130,7 +130,7 @@
   (Scala infixl 8 "/%")
 
 code_const "HOL.equal \<Colon> code_numeral \<Rightarrow> code_numeral \<Rightarrow> bool"
-  (Haskell infixl 4 "==")
+  (Haskell infix 4 "==")
   (Scala infixl 5 "==")
 
 code_const "op \<le> \<Colon> code_numeral \<Rightarrow> code_numeral \<Rightarrow> bool"