diff -r 9c81298fa4e1 -r 8a09dfeb2cec src/HOL/HOL.thy
--- a/src/HOL/HOL.thy	Tue Apr 19 14:52:22 2011 +0200
+++ b/src/HOL/HOL.thy	Wed Apr 20 07:44:23 2011 +0200
@@ -1915,18 +1915,22 @@
   (Haskell "Bool")
   (Scala "Boolean")
 
-code_const True and False and Not and HOL.conj and HOL.disj and If
+code_const True and False and Not and HOL.conj and HOL.disj and HOL.implies and If 
   (SML "true" and "false" and "not"
     and infixl 1 "andalso" and infixl 0 "orelse"
+    and "!(if (_)/ then (_)/ else true)"
     and "!(if (_)/ then (_)/ else (_))")
   (OCaml "true" and "false" and "not"
     and infixl 3 "&&" and infixl 2 "||"
+    and "!(if (_)/ then (_)/ else true)"
     and "!(if (_)/ then (_)/ else (_))")
   (Haskell "True" and "False" and "not"
     and infixr 3 "&&" and infixr 2 "||"
+    and "!(if (_)/ then (_)/ else True)"
     and "!(if (_)/ then (_)/ else (_))")
   (Scala "true" and "false" and "'! _"
     and infixl 3 "&&" and infixl 1 "||"
+    and "!(if ((_))/ (_)/ else true)"
     and "!(if ((_))/ (_)/ else (_))")
 
 code_reserved SML