AxClass.define_class_i, AxClass.get_definition;
Sign.primitive_arity;

--- a/src/Pure/Tools/class_package.ML	Sun Apr 30 22:50:11 2006 +0200
+++ b/src/Pure/Tools/class_package.ML	Sun Apr 30 22:50:12 2006 +0200
@@ -343,8 +343,8 @@
 fun add_axclass_i (name, supsort) axs thy =
   let
     val (c, thy') = thy
-      |> AxClass.add_axclass_i (name, supsort) [] axs;
-    val {intro, axioms, ...} = AxClass.get_info thy' c;
+      |> AxClass.define_class_i (name, supsort) [] axs;
+    val {intro, axioms, ...} = AxClass.get_definition thy' c;
   in ((c, (intro, axioms)), thy') end;
 
 fun prove_interpretation_i (prfx, atts) expr insts tac thy =
@@ -535,7 +535,7 @@
       in () end;
     fun check_defs1 raw_defs c_req thy =
       let
-        val thy' = (Sign.add_arities_i [(tyco, asorts, sort)] o Theory.copy) thy
+        val thy' = (Sign.primitive_arity (tyco, asorts, sort) o Theory.copy) thy
       in (check_defs0 thy' raw_defs c_req; thy) end;
     fun mangle_alldef_name tyco sort =
       Thm.def_name ((space_implode "_" o map NameSpace.base) sort ^ "_" ^ NameSpace.base tyco);