--- a/src/HOL/String.thy Wed Mar 30 11:32:51 2011 +0200
+++ b/src/HOL/String.thy Wed Mar 30 11:32:52 2011 +0200
@@ -74,7 +74,7 @@
subsection {* Strings *}
-types string = "char list"
+type_synonym string = "char list"
syntax
"_String" :: "xstr => string" ("_")