changeset 14876 | 477c414000f8 |
parent 14828 | 15d12761ba54 |
child 14901 | c7a8a8eb7fc8 |
--- a/src/Pure/Isar/proof_context.ML Sat Jun 05 13:07:49 2004 +0200 +++ b/src/Pure/Isar/proof_context.ML Sat Jun 05 13:08:53 2004 +0200 @@ -392,7 +392,7 @@ fun pretty_thm ctxt thm = if ! Display.show_hyps then - Display.pretty_thm_aux (pretty_sort ctxt, pretty_term ctxt) false thm + Display.pretty_thm_aux (pp ctxt) false thm else pretty_term ctxt (Thm.prop_of thm); fun pretty_thms ctxt [th] = pretty_thm ctxt th