diff -r 7c6a970f0808 -r de0f4a63baa5 src/HOL/Induct/Com.thy
--- a/src/HOL/Induct/Com.thy	Sat Dec 01 18:51:46 2001 +0100
+++ b/src/HOL/Induct/Com.thy	Sat Dec 01 18:52:32 2001 +0100
@@ -12,7 +12,7 @@
       state = "loc => nat"
       n2n2n = "nat => nat => nat"
 
-arities loc :: term
+arities loc :: type
 
 datatype
   exp = N nat