src/HOL/HOLCF/Up.thy

--- a/src/HOL/HOLCF/Up.thy	Tue Sep 09 17:51:07 2014 +0200
+++ b/src/HOL/HOLCF/Up.thy	Tue Sep 09 20:51:36 2014 +0200
@@ -13,7 +13,7 @@
 
 subsection {* Definition of new type for lifting *}
 
-datatype 'a u = Ibottom | Iup 'a
+datatype_new 'a u = Ibottom | Iup 'a
 
 type_notation (xsymbols)
   u  ("(_\<^sub>\<bottom>)" [1000] 999)