src/HOL/Tools/inductive.ML
changeset 51580 64ef8260dc60
parent 51551 88d1d19fb74f
child 51584 98029ceda8ce
     1.1 --- a/src/HOL/Tools/inductive.ML	Fri Mar 29 22:13:02 2013 +0100
     1.2 +++ b/src/HOL/Tools/inductive.ML	Fri Mar 29 22:14:27 2013 +0100
     1.3 @@ -224,7 +224,8 @@
     1.4        (Pretty.breaks
     1.5          (Pretty.str "(co)inductives:" ::
     1.6            map (Pretty.mark_str o #1) (Name_Space.extern_table ctxt (space, infos)))),
     1.7 -     Pretty.big_list "monotonicity rules:" (map (Display.pretty_thm ctxt) monos)]
     1.8 +     Pretty.big_list "monotonicity rules:"
     1.9 +      (map (Pretty.item o single o Display.pretty_thm ctxt) monos)]
    1.10    end |> Pretty.chunks |> Pretty.writeln;
    1.11  
    1.12