--- a/src/HOL/IMP/Procs.thy Thu Sep 11 18:54:36 2014 +0200
+++ b/src/HOL/IMP/Procs.thy Thu Sep 11 18:54:36 2014 +0200
@@ -6,7 +6,7 @@
type_synonym pname = string
-datatype
+datatype_new
com = SKIP
| Assign vname aexp ("_ ::= _" [1000, 61] 61)
| Seq com com ("_;;/ _" [60, 61] 60)