src/Pure/Isar/proof_display.ML
changeset 62889 99c7f31615c2
parent 62188 74c56f8b68e8
child 64596 51f8e259de50
equal deleted inserted replaced
62888:64f44d7279e5 62889:99c7f31615c2
    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 ()))