src/HOL/datatype.ML
changeset 3197 16b840e02899
parent 3111 00fb015d27aa
child 3265 8358e19d0d4c
--- a/src/HOL/datatype.ML	Thu May 15 12:54:02 1997 +0200
+++ b/src/HOL/datatype.ML	Thu May 15 12:54:30 1997 +0200
@@ -139,7 +139,7 @@
   fun add_datatype (typevars, tname, cons_list') thy = 
     let
       val dummy = if length cons_list' < dtK then ()
-                  else require_thy thy "Nat" "datatype";
+                  else require_thy thy "Nat" "datatype definitions";
       
       fun typid(dtRek(_,id)) = id
         | typid(dtVar s) = implode (tl (explode s))