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;