diff -r 52e7c75acfe6 -r 8c782c25a11e src/HOL/Induct/Com.thy
--- a/src/HOL/Induct/Com.thy	Tue Jun 30 20:50:34 1998 +0200
+++ b/src/HOL/Induct/Com.thy	Tue Jun 30 20:51:15 1998 +0200
@@ -6,7 +6,7 @@
 Example of Mutual Induction via Iteratived Inductive Definitions: Commands
 *)
 
-Com = Arith +
+Com = Arith + Inductive +
 
 types loc
       state = "loc => nat"