diff -r 25af24e1f37b -r 180f1b3508ed src/HOL/Bali/Name.thy
--- a/src/HOL/Bali/Name.thy	Tue Sep 09 17:51:07 2014 +0200
+++ b/src/HOL/Bali/Name.thy	Tue Sep 09 20:51:36 2014 +0200
@@ -12,11 +12,11 @@
 typedecl vname  --{* variable or field name *}
 typedecl label  --{* label as destination of break or continue *}
 
-datatype ename        --{* expression name *} 
+datatype_new ename        --{* expression name *} 
         = VNam vname 
         | Res         --{* special name to model the return value of methods *}
 
-datatype lname        --{* names for local variables and the This pointer *}
+datatype_new lname        --{* names for local variables and the This pointer *}
         = EName ename 
         | This
 abbreviation VName   :: "vname \<Rightarrow> lname"
@@ -25,7 +25,7 @@
 abbreviation Result :: lname
       where "Result == EName Res"
 
-datatype xname          --{* names of standard exceptions *}
+datatype_new xname          --{* names of standard exceptions *}
         = Throwable
         | NullPointer | OutOfMemory | ClassCast   
         | NegArrSize  | IndOutBound | ArrStore
@@ -39,7 +39,7 @@
 done
 
 
-datatype tname  --{* type names for standard classes and other type names *}
+datatype_new tname  --{* type names for standard classes and other type names *}
         = Object'
         | SXcpt'   xname
         | TName   tnam