--- a/src/HOL/HOLCF/Discrete.thy Thu Sep 11 19:26:59 2014 +0200
+++ b/src/HOL/HOLCF/Discrete.thy Thu Sep 11 19:32:36 2014 +0200
@@ -8,7 +8,7 @@
imports Cont
begin
-datatype_new 'a discr = Discr "'a :: type"
+datatype 'a discr = Discr "'a :: type"
subsection {* Discrete cpo class instance *}