equal
deleted
inserted
replaced
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*) |