src/HOL/Tools/inductive.ML
changeset 56025 d74fed45fa8b
parent 55997 9dc5ce83202c
child 56052 4873054cd1fc
--- a/src/HOL/Tools/inductive.ML	Mon Mar 10 10:13:47 2014 +0100
+++ b/src/HOL/Tools/inductive.ML	Mon Mar 10 13:55:03 2014 +0100
@@ -230,7 +230,7 @@
     [Pretty.block
       (Pretty.breaks
         (Pretty.str "(co)inductives:" ::
-          map (Pretty.mark_str o #1) (Name_Space.extern_table ctxt (space, infos)))),
+          map (Pretty.mark_str o #1) (Name_Space.extern_table' ctxt space infos))),
      Pretty.big_list "monotonicity rules:" (map (Display.pretty_thm_item ctxt) monos)]
   end |> Pretty.chunks |> Pretty.writeln;