src/HOL/Tools/inductive.ML
changeset 42358 b47d41d9f4b5
parent 41792 ff3cb0c418b7
child 42361 23f352990944
     1.1 --- a/src/HOL/Tools/inductive.ML	Sat Apr 16 12:46:18 2011 +0200
     1.2 +++ b/src/HOL/Tools/inductive.ML	Sat Apr 16 13:48:45 2011 +0200
     1.3 @@ -151,7 +151,7 @@
     1.4      val (tab, monos) = get_inductives ctxt;
     1.5      val space = Consts.space_of (ProofContext.consts_of ctxt);
     1.6    in
     1.7 -    [Pretty.strs ("(co)inductives:" :: map #1 (Name_Space.extern_table (space, tab))),
     1.8 +    [Pretty.strs ("(co)inductives:" :: map #1 (Name_Space.extern_table ctxt (space, tab))),
     1.9       Pretty.big_list "monotonicity rules:" (map (Display.pretty_thm ctxt) monos)]
    1.10      |> Pretty.chunks |> Pretty.writeln
    1.11    end;