src/Pure/Isar/typedecl.ML
changeset 51685 385ef6706252
parent 47005 421760a1efe7
child 56294 85911b8a6868
--- 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