
diff -r 25af24e1f37b -r 180f1b3508ed src/HOL/Isar_Examples/Expr_Compiler.thy
--- a/src/HOL/Isar_Examples/Expr_Compiler.thy	Tue Sep 09 17:51:07 2014 +0200
+++ b/src/HOL/Isar_Examples/Expr_Compiler.thy	Tue Sep 09 20:51:36 2014 +0200
@@ -31,7 +31,7 @@
   consisting of variables, constants, and binary operations on
   expressions. *}
 
-datatype ('adr, 'val) expr =
+datatype_new ('adr, 'val) expr =
     Variable 'adr
   | Constant 'val
   | Binop "'val binop" "('adr, 'val) expr" "('adr, 'val) expr"
@@ -51,7 +51,7 @@
 text {* Next we model a simple stack machine, with three
   instructions. *}
 
-datatype ('adr, 'val) instr =
+datatype_new ('adr, 'val) instr =
     Const 'val
   | Load 'adr
   | Apply "'val binop"




