src/Pure/display.ML
changeset 39125 f45d332a90e3
parent 39050 600de0485859
child 39166 19efc2af3e6c
equal deleted inserted replaced
39124:9bac2f4cfd6e 39125:f45d332a90e3
     5 Printing of theorems, results etc.
     5 Printing of theorems, results etc.
     6 *)
     6 *)
     7 
     7 
     8 signature BASIC_DISPLAY =
     8 signature BASIC_DISPLAY =
     9 sig
     9 sig
    10   val goals_limit: int Unsynchronized.ref
       
    11   val show_consts_default: bool Unsynchronized.ref
    10   val show_consts_default: bool Unsynchronized.ref
    12   val show_consts: bool Config.T
    11   val show_consts: bool Config.T
    13   val show_hyps: bool Unsynchronized.ref
    12   val show_hyps: bool Unsynchronized.ref
    14   val show_tags: bool Unsynchronized.ref
    13   val show_tags: bool Unsynchronized.ref
    15 end;
    14 end;
    35 structure Display: DISPLAY =
    34 structure Display: DISPLAY =
    36 struct
    35 struct
    37 
    36 
    38 (** options **)
    37 (** options **)
    39 
    38 
    40 val goals_limit = Goal_Display.goals_limit;
       
    41 val show_consts_default = Goal_Display.show_consts_default;
    39 val show_consts_default = Goal_Display.show_consts_default;
    42 val show_consts = Goal_Display.show_consts;
    40 val show_consts = Goal_Display.show_consts;
    43 
    41 
    44 val show_hyps = Unsynchronized.ref false;    (*false: print meta-hypotheses as dots*)
    42 val show_hyps = Unsynchronized.ref false;    (*false: print meta-hypotheses as dots*)
    45 val show_tags = Unsynchronized.ref false;    (*false: suppress tags*)
    43 val show_tags = Unsynchronized.ref false;    (*false: suppress tags*)