src/Pure/Tools/print_operation.ML
changeset 56893 62d237cdc341
parent 56887 1ca814da47ae
child 57415 e721124f1b1e
equal deleted inserted replaced
56892:1c7552b05466 56893:62d237cdc341
    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