--- a/src/Pure/Isar/typedecl.ML Wed Apr 10 13:10:38 2013 +0200
+++ b/src/Pure/Isar/typedecl.ML Wed Apr 10 15:30:19 2013 +0200
@@ -29,7 +29,7 @@
fun object_logic_arity name thy =
(case Object_Logic.get_base_sort thy of
NONE => thy
- | SOME S => AxClass.axiomatize_arity (name, replicate (Sign.arity_number thy name) S, S) thy);
+ | SOME S => Axclass.axiomatize_arity (name, replicate (Sign.arity_number thy name) S, S) thy);
fun basic_decl decl (b, n, mx) lthy =
let val name = Local_Theory.full_name lthy b in