# HG changeset patch
# User wenzelm
# Date 893843116 -7200
# Node ID c66a428468874048b224d307e49f05b93a1d89c3
# Parent  b5999638979e1dc2549bc30a14df1f61659a4297
Theory.require;
adapted to new PureThy.add_defs_i, PureThy.add_axioms;

diff -r b5999638979e -r c66a42846887 src/HOL/datatype.ML
--- a/src/HOL/datatype.ML	Wed Apr 29 11:44:30 1998 +0200
+++ b/src/HOL/datatype.ML	Wed Apr 29 11:45:16 1998 +0200
@@ -209,7 +209,7 @@
 in
   fun add_datatype (typevars, tname, cons_list') thy = 
     let
-      val dummy = require_thy thy "Arith" "datatype definitions";
+      val dummy = Theory.require thy "Arith" "datatype definitions";
       
       fun typid(dtRek(_,id)) = id
         | typid(dtVar s) = implode (tl (explode s))
@@ -506,14 +506,14 @@
           val defpairT as (_, _ $ Const(_,T) $ _ ) = inferT_axm sg defpair;
           val varT = Type.varifyT T;
           val ftyp = the (Sign.const_type sg (Sign.intern_const sg fname));
-        in PureThy.add_store_defs_i [defpairT] thy end;
+        in PureThy.add_defs_i [(defpairT, [])] thy end;
 
     in
       (thy |> Theory.add_types types
            |> Theory.add_arities arities
            |> Theory.add_consts consts
            |> Theory.add_trrules xrules
-           |> PureThy.add_store_axioms rules,
+           |> PureThy.add_axioms (map Attribute.none rules),
        add_primrec, size_eqns, (split_eqn,split_eqn_prem))
     end