equal
deleted
inserted
replaced
359 val string_of_arity = Pretty.string_of oo pretty_arity; |
359 val string_of_arity = Pretty.string_of oo pretty_arity; |
360 |
360 |
361 |
361 |
362 (* global pretty printing *) |
362 (* global pretty printing *) |
363 |
363 |
364 structure PrettyGlobal = Proof_Data(type T = bool fun init _ = false); |
364 val pretty_global = Config.bool (Config.declare "Syntax.pretty_global" (K (Config.Bool false))); |
365 val is_pretty_global = PrettyGlobal.get; |
365 fun is_pretty_global ctxt = Config.get ctxt pretty_global; |
366 val set_pretty_global = PrettyGlobal.put; |
366 val set_pretty_global = Config.put pretty_global; |
367 val init_pretty_global = set_pretty_global true o ProofContext.init_global; |
367 val init_pretty_global = set_pretty_global true o ProofContext.init_global; |
368 |
368 |
369 val pretty_term_global = pretty_term o init_pretty_global; |
369 val pretty_term_global = pretty_term o init_pretty_global; |
370 val pretty_typ_global = pretty_typ o init_pretty_global; |
370 val pretty_typ_global = pretty_typ o init_pretty_global; |
371 val pretty_sort_global = pretty_sort o init_pretty_global; |
371 val pretty_sort_global = pretty_sort o init_pretty_global; |