# HG changeset patch
# User wenzelm
# Date 1725459712 -7200
# Node ID 34906b3db920dd9d820ce546d9cee67183e598fb
# Parent  b41c19523a2eeb9d615424e5c88e246052799201
clarified signature (see also 8bef51521f21);

diff -r b41c19523a2e -r 34906b3db920 src/Pure/Isar/proof_display.ML
--- a/src/Pure/Isar/proof_display.ML	Wed Sep 04 13:55:57 2024 +0200
+++ b/src/Pure/Isar/proof_display.ML	Wed Sep 04 16:21:52 2024 +0200
@@ -7,12 +7,13 @@
 signature PROOF_DISPLAY =
 sig
   val pp_context: Proof.context -> Pretty.T
-  val pp_thm: (unit -> theory) -> thm -> Pretty.T
-  val pp_typ: (unit -> theory) -> typ -> Pretty.T
-  val pp_term: (unit -> theory) -> term -> Pretty.T
-  val pp_ctyp: (unit -> theory) -> ctyp -> Pretty.T
-  val pp_cterm: (unit -> theory) -> cterm -> Pretty.T
-  val pp_ztyp: (unit -> theory) -> ztyp -> Pretty.T
+  val guess_context: unit -> Proof.context
+  val pp_thm: thm -> Pretty.T
+  val pp_typ: typ -> Pretty.T
+  val pp_term: term -> Pretty.T
+  val pp_ctyp: ctyp -> Pretty.T
+  val pp_cterm: cterm -> Pretty.T
+  val pp_ztyp: ztyp -> Pretty.T
   val pretty_theory: bool -> Proof.context -> Pretty.T
   val pretty_definitions: bool -> Proof.context -> Pretty.T
   val pretty_theorems_diff: bool -> theory list -> Proof.context -> Pretty.T list
@@ -45,10 +46,10 @@
     Pretty.quote (Pretty.big_list "proof context:" (Proof_Context.pretty_context ctxt))
   else Pretty.str "<context>");
 
-fun default_context mk_thy =
+fun guess_context () =
   let
     fun global_context () =
-      Config.put_global Name_Space.names_long true (mk_thy ());
+      Config.put_global Name_Space.names_long true (Theory.get_pure ());
   in
     (case Context.get_generic_context () of
       SOME (Context.Proof ctxt) => ctxt
@@ -58,16 +59,15 @@
     | NONE => Syntax.init_pretty_global (global_context ()))
   end;
 
-fun pp_thm mk_thy th =
-  Thm.pretty_thm_raw (default_context mk_thy) {quote = true, show_hyps = false} th;
+fun pp_thm th = Thm.pretty_thm_raw (guess_context ()) {quote = true, show_hyps = false} th;
+
+fun pp_typ T = Pretty.quote (Syntax.pretty_typ (guess_context ()) T);
+fun pp_term t = Pretty.quote (Syntax.pretty_term (guess_context ()) t);
 
-fun pp_typ mk_thy T = Pretty.quote (Syntax.pretty_typ (default_context mk_thy) T);
-fun pp_term mk_thy t = Pretty.quote (Syntax.pretty_term (default_context mk_thy) t);
+val pp_ctyp = pp_typ o Thm.typ_of;
+val pp_cterm = pp_term o Thm.term_of;
 
-fun pp_ctyp mk_thy cT = pp_typ mk_thy (Thm.typ_of cT);
-fun pp_cterm mk_thy ct = pp_term mk_thy (Thm.term_of ct);
-
-fun pp_ztyp mk_thy T = Pretty.quote (Syntax.pretty_typ (default_context mk_thy) (ZTerm.typ_of T));
+fun pp_ztyp T = Pretty.quote (Syntax.pretty_typ (guess_context ()) (ZTerm.typ_of T));
 
 
 
diff -r b41c19523a2e -r 34906b3db920 src/Pure/ML/ml_pp.ML
--- a/src/Pure/ML/ml_pp.ML	Wed Sep 04 13:55:57 2024 +0200
+++ b/src/Pure/ML/ml_pp.ML	Wed Sep 04 16:21:52 2024 +0200
@@ -26,23 +26,23 @@
 
 val _ =
   ML_system_pp (fn depth => fn _ =>
-    ML_Pretty.to_polyml o Pretty.to_ML depth o Proof_Display.pp_thm Theory.get_pure);
+    ML_Pretty.to_polyml o Pretty.to_ML depth o Proof_Display.pp_thm);
 
 val _ =
   ML_system_pp (fn depth => fn _ =>
-    ML_Pretty.to_polyml o Pretty.to_ML depth o Proof_Display.pp_cterm Theory.get_pure);
+    ML_Pretty.to_polyml o Pretty.to_ML depth o Proof_Display.pp_cterm);
 
 val _ =
   ML_system_pp (fn depth => fn _ =>
-    ML_Pretty.to_polyml o Pretty.to_ML depth o Proof_Display.pp_ctyp Theory.get_pure);
+    ML_Pretty.to_polyml o Pretty.to_ML depth o Proof_Display.pp_ctyp);
 
 val _ =
   ML_system_pp (fn depth => fn _ =>
-    ML_Pretty.to_polyml o Pretty.to_ML depth o Proof_Display.pp_typ Theory.get_pure);
+    ML_Pretty.to_polyml o Pretty.to_ML depth o Proof_Display.pp_typ);
 
 val _ =
   ML_system_pp (fn depth => fn _ =>
-    ML_Pretty.to_polyml o Pretty.to_ML depth o Proof_Display.pp_ztyp Theory.get_pure);
+    ML_Pretty.to_polyml o Pretty.to_ML depth o Proof_Display.pp_ztyp);
 
 
 local