src/Pure/Syntax/syntax.ML
changeset 39508 dfacdb01e1ec
parent 39507 839873937ddd
child 39510 d9f5f01faa1b
equal deleted inserted replaced
39507:839873937ddd 39508:dfacdb01e1ec
   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;