src/HOL/Tools/inductive.ML
changeset 50301 56b4c9afd7be
parent 50214 67fb9a168d10
child 50302 9149a07a6c67
     1.1 --- a/src/HOL/Tools/inductive.ML	Fri Nov 30 21:47:44 2012 +0100
     1.2 +++ b/src/HOL/Tools/inductive.ML	Fri Nov 30 22:38:06 2012 +0100
     1.3 @@ -220,10 +220,12 @@
     1.4      val {infos, monos, ...} = rep_data ctxt;
     1.5      val space = Consts.space_of (Proof_Context.consts_of ctxt);
     1.6    in
     1.7 -    [Pretty.strs ("(co)inductives:" :: map #1 (Name_Space.extern_table ctxt (space, infos))),
     1.8 +    [Pretty.block
     1.9 +      (Pretty.breaks
    1.10 +        (Pretty.str "(co)inductives:" ::
    1.11 +          map (Pretty.mark_str o #1) (Name_Space.extern_table ctxt (space, infos)))),
    1.12       Pretty.big_list "monotonicity rules:" (map (Display.pretty_thm ctxt) monos)]
    1.13 -    |> Pretty.chunks |> Pretty.writeln
    1.14 -  end;
    1.15 +  end |> Pretty.chunks |> Pretty.writeln;
    1.16  
    1.17  
    1.18  (* inductive info *)