equal
deleted
inserted
replaced
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 |