changeset 4970 | 8b65444edbb0 |
parent 4874 | c66a42846887 |
--- a/src/HOL/datatype.ML Wed May 27 12:19:35 1998 +0200 +++ b/src/HOL/datatype.ML Wed May 27 12:21:39 1998 +0200 @@ -209,7 +209,7 @@ in fun add_datatype (typevars, tname, cons_list') thy = let - val dummy = Theory.require thy "Arith" "datatype definitions"; + val dummy = Theory.requires thy "Arith" "datatype definitions"; fun typid(dtRek(_,id)) = id | typid(dtVar s) = implode (tl (explode s))