proper theory context for global props;
authorwenzelm
Sat, 17 Aug 2019 17:45:04 +0200
changeset 70567 f4d111b802a1
parent 70566 fb3d06d7dd05
child 70568 6e055d313f73
proper theory context for global props;
src/Pure/Thy/thm_deps.ML
--- a/src/Pure/Thy/thm_deps.ML	Sat Aug 17 17:28:08 2019 +0200
+++ b/src/Pure/Thy/thm_deps.ML	Sat Aug 17 17:45:04 2019 +0200
@@ -27,9 +27,11 @@
 
 fun pretty_thm_oracles ctxt thms =
   let
+    val thy = Proof_Context.theory_of ctxt;
     fun prt_oracle (name, NONE) = [Thm.pretty_oracle ctxt name]
       | prt_oracle (name, SOME prop) =
-          [Thm.pretty_oracle ctxt name, Pretty.str ":", Pretty.brk 1, Syntax.pretty_term ctxt prop];
+          [Thm.pretty_oracle ctxt name, Pretty.str ":", Pretty.brk 1,
+            Syntax.pretty_term_global thy prop];
   in Pretty.big_list "oracles:" (map (Pretty.item o prt_oracle) (all_oracles thms)) end;