equal
deleted
inserted
replaced
19 include BASIC_DISPLAY |
19 include BASIC_DISPLAY |
20 val pretty_thm_raw: Proof.context -> {quote: bool, show_hyps: bool} -> thm -> Pretty.T |
20 val pretty_thm_raw: Proof.context -> {quote: bool, show_hyps: bool} -> thm -> Pretty.T |
21 val pretty_thm: Proof.context -> thm -> Pretty.T |
21 val pretty_thm: Proof.context -> thm -> Pretty.T |
22 val pretty_thm_item: Proof.context -> thm -> Pretty.T |
22 val pretty_thm_item: Proof.context -> thm -> Pretty.T |
23 val pretty_thm_global: theory -> thm -> Pretty.T |
23 val pretty_thm_global: theory -> thm -> Pretty.T |
24 val pretty_thm_without_context: thm -> Pretty.T |
|
25 val string_of_thm: Proof.context -> thm -> string |
24 val string_of_thm: Proof.context -> thm -> string |
26 val string_of_thm_global: theory -> thm -> string |
25 val string_of_thm_global: theory -> thm -> string |
27 val string_of_thm_without_context: thm -> string |
|
28 val pretty_full_theory: bool -> theory -> Pretty.T list |
26 val pretty_full_theory: bool -> theory -> Pretty.T list |
29 end; |
27 end; |
30 |
28 |
31 structure Display: DISPLAY = |
29 structure Display: DISPLAY = |
32 struct |
30 struct |
80 fun pretty_thm_item ctxt th = Pretty.item [pretty_thm ctxt th]; |
78 fun pretty_thm_item ctxt th = Pretty.item [pretty_thm ctxt th]; |
81 |
79 |
82 fun pretty_thm_global thy = |
80 fun pretty_thm_global thy = |
83 pretty_thm_raw (Syntax.init_pretty_global thy) {quote = false, show_hyps = false}; |
81 pretty_thm_raw (Syntax.init_pretty_global thy) {quote = false, show_hyps = false}; |
84 |
82 |
85 fun pretty_thm_without_context th = pretty_thm_global (Thm.theory_of_thm th) th; |
|
86 |
|
87 val string_of_thm = Pretty.string_of oo pretty_thm; |
83 val string_of_thm = Pretty.string_of oo pretty_thm; |
88 val string_of_thm_global = Pretty.string_of oo pretty_thm_global; |
84 val string_of_thm_global = Pretty.string_of oo pretty_thm_global; |
89 val string_of_thm_without_context = Pretty.string_of o pretty_thm_without_context; |
|
90 |
85 |
91 |
86 |
92 |
87 |
93 (** print theory **) |
88 (** print theory **) |
94 |
89 |