equal
deleted
inserted
replaced
37 (if Config.get ctxt Proof_Context.debug then |
37 (if Config.get ctxt Proof_Context.debug then |
38 Pretty.quote (Pretty.big_list "proof context:" (Proof_Context.pretty_context ctxt)) |
38 Pretty.quote (Pretty.big_list "proof context:" (Proof_Context.pretty_context ctxt)) |
39 else Pretty.str "<context>"); |
39 else Pretty.str "<context>"); |
40 |
40 |
41 fun default_context mk_thy = |
41 fun default_context mk_thy = |
42 (case Context.thread_data () of |
42 (case Context.get_generic_context () of |
43 SOME (Context.Proof ctxt) => ctxt |
43 SOME (Context.Proof ctxt) => ctxt |
44 | SOME (Context.Theory thy) => |
44 | SOME (Context.Theory thy) => |
45 (case try Syntax.init_pretty_global thy of |
45 (case try Syntax.init_pretty_global thy of |
46 SOME ctxt => ctxt |
46 SOME ctxt => ctxt |
47 | NONE => Syntax.init_pretty_global (mk_thy ())) |
47 | NONE => Syntax.init_pretty_global (mk_thy ())) |