1.1 --- a/src/HOL/Induct/Com.thy	Fri Jul 24 13:03:20 1998 +0200
     1.2 +++ b/src/HOL/Induct/Com.thy	Fri Jul 24 13:19:38 1998 +0200
     1.3 @@ -6,7 +6,7 @@
     1.4  Example of Mutual Induction via Iteratived Inductive Definitions: Commands
     1.5  *)
     1.6  
     1.7 -Com = Arith + Inductive +
     1.8 +Com = Datatype +
     1.9  
    1.10  types loc
    1.11        state = "loc => nat"