src/HOL/IMP/AExp.thy

--- a/src/HOL/IMP/AExp.thy	Tue Sep 09 17:51:07 2014 +0200
+++ b/src/HOL/IMP/AExp.thy	Tue Sep 09 20:51:36 2014 +0200
@@ -9,7 +9,7 @@
 type_synonym state = "vname \<Rightarrow> val"
 
 text_raw{*\snip{AExpaexpdef}{2}{1}{% *}
-datatype aexp = N int | V vname | Plus aexp aexp
+datatype_new aexp = N int | V vname | Plus aexp aexp
 text_raw{*}%endsnip*}
 
 text_raw{*\snip{AExpavaldef}{1}{2}{% *}