diff -r 4562584d9d66 -r b8390cd56b8f src/HOL/Library/Code_Message.thy
--- a/src/HOL/Library/Code_Message.thy	Wed Sep 24 19:39:25 2008 +0200
+++ b/src/HOL/Library/Code_Message.thy	Thu Sep 25 09:28:03 2008 +0200
@@ -50,7 +50,7 @@
 code_instance message_string :: eq
   (Haskell -)
 
-code_const "op = \<Colon> message_string \<Rightarrow> message_string \<Rightarrow> bool"
+code_const "eq_class.eq \<Colon> message_string \<Rightarrow> message_string \<Rightarrow> bool"
   (SML "!((_ : string) = _)")
   (OCaml "!((_ : string) = _)")
   (Haskell infixl 4 "==")