src/HOL/datatype.ML
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))