src/HOL/Tools/inductive.ML
changeset 56052 4873054cd1fc
parent 56025 d74fed45fa8b
child 56245 84fc7dfa3cd4
--- a/src/HOL/Tools/inductive.ML	Tue Mar 11 13:58:22 2014 +0100
+++ b/src/HOL/Tools/inductive.ML	Tue Mar 11 14:28:39 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.markup_entries ctxt space (Symtab.dest infos)))),
      Pretty.big_list "monotonicity rules:" (map (Display.pretty_thm_item ctxt) monos)]
   end |> Pretty.chunks |> Pretty.writeln;