--- a/src/Pure/display.ML Mon Oct 20 10:48:22 1997 +0200
+++ b/src/Pure/display.ML Mon Oct 20 10:51:01 1997 +0200
@@ -107,8 +107,9 @@
val axioms = Symtab.dest new_axioms;
val oras = map fst (Symtab.dest oracles);
- fun prt_axm (a, t) = Pretty.block [Pretty.str (a ^ ":"), Pretty.brk 1,
- Pretty.quote (Sign.pretty_term sign t)];
+ fun prt_axm (a, t) = Pretty.block
+ [Pretty.str (Sign.cond_extern sign Theory.thmK a ^ ":"), Pretty.brk 1,
+ Pretty.quote (Sign.pretty_term sign t)];
in
Pretty.writeln (Pretty.big_list "additional axioms:" (map prt_axm axioms));
Pretty.writeln (Pretty.strs ("oracles:" :: oras))