src/Tools/solve_direct.ML
changeset 52643 34c29356930e
parent 52641 c56b6fa636e8
child 52645 e8c1c5612677
equal deleted inserted replaced
52642:84eb792224a8 52643:34c29356930e
    83         (someN,
    83         (someN,
    84           state |>
    84           state |>
    85             (if mode = Auto_Try then
    85             (if mode = Auto_Try then
    86                Proof.goal_message
    86                Proof.goal_message
    87                  (fn () =>
    87                  (fn () =>
    88                    Pretty.chunks
    88                    Pretty.markup Markup.information (message results))
    89                     [Pretty.str "", Pretty.markup Markup.intensify (message results)])
       
    90              else
    89              else
    91                tap (fn _ =>
    90                tap (fn _ =>
    92                  Output.urgent_message (Pretty.string_of (Pretty.chunks (message results))))))
    91                  Output.urgent_message (Pretty.string_of (Pretty.chunks (message results))))))
    93     | SOME NONE =>
    92     | SOME NONE =>
    94         (if mode = Normal then Output.urgent_message "No proof found."
    93         (if mode = Normal then Output.urgent_message "No proof found."