src/HOL/Tools/inductive.ML
changeset 51584 98029ceda8ce
parent 51580 64ef8260dc60
child 51658 21c10672633b
--- a/src/HOL/Tools/inductive.ML	Sat Mar 30 12:13:39 2013 +0100
+++ b/src/HOL/Tools/inductive.ML	Sat Mar 30 13:40:19 2013 +0100
@@ -224,8 +224,7 @@
       (Pretty.breaks
         (Pretty.str "(co)inductives:" ::
           map (Pretty.mark_str o #1) (Name_Space.extern_table ctxt (space, infos)))),
-     Pretty.big_list "monotonicity rules:"
-      (map (Pretty.item o single o Display.pretty_thm ctxt) monos)]
+     Pretty.big_list "monotonicity rules:" (map (Display.pretty_thm_item ctxt) monos)]
   end |> Pretty.chunks |> Pretty.writeln;