--- 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"