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))