equal
deleted
inserted
replaced
59 |
59 |
60 |
60 |
61 (* common print operations *) |
61 (* common print operations *) |
62 |
62 |
63 val _ = |
63 val _ = |
64 register "context" "main context" |
64 register "context" "context of local theory target" |
65 (Pretty.string_of o Pretty.chunks o Toplevel.pretty_state_context); |
65 (Pretty.string_of o Pretty.chunks o Toplevel.pretty_context); |
66 |
66 |
67 val _ = |
67 val _ = |
68 register "cases" "cases of proof context" |
68 register "cases" "cases of proof context" |
69 (Pretty.string_of o Pretty.chunks o Proof_Context.pretty_cases o Toplevel.context_of); |
69 (Pretty.string_of o Pretty.chunks o Proof_Context.pretty_cases o Toplevel.context_of); |
70 |
70 |