src/HOL/Tools/try0.ML
changeset 53052 a0db255af8c5
parent 52970 3e0fe71f3ce1
child 54248 c7af3d651658
equal deleted inserted replaced
53051:1474d251b562 53052:a0db255af8c5
   135         val message =
   135         val message =
   136           (case mode of
   136           (case mode of
   137              Auto_Try => "Auto Try0 found a proof"
   137              Auto_Try => "Auto Try0 found a proof"
   138            | Try => "Try0 found a proof"
   138            | Try => "Try0 found a proof"
   139            | Normal => "Try this") ^ ": " ^
   139            | Normal => "Try this") ^ ": " ^
   140           Active.sendback_markup (if mode = Auto_Try then [Markup.padding_command] else [])
   140           Active.sendback_markup [Markup.padding_command]
   141               ((if nprems_of (#goal (Proof.goal st)) = 1 then "by"
   141               ((if nprems_of (#goal (Proof.goal st)) = 1 then "by"
   142                 else "apply") ^ " " ^ (s |> need_parens ? enclose "(" ")")) ^
   142                 else "apply") ^ " " ^ (s |> need_parens ? enclose "(" ")")) ^
   143           "\n(" ^ space_implode "; " (map time_string xs) ^ ")."
   143           "\n(" ^ space_implode "; " (map time_string xs) ^ ")."
   144       in
   144       in
   145         (true, (s, st |> (if mode = Auto_Try then
   145         (true, (s, st |> (if mode = Auto_Try then