equal
deleted
inserted
replaced
178 (if is_proof_method_multi_goal meth andalso n <> 1 then "[1]" else "") |
178 (if is_proof_method_multi_goal meth andalso n <> 1 then "[1]" else "") |
179 end |
179 end |
180 |
180 |
181 fun try_command_line banner play command = |
181 fun try_command_line banner play command = |
182 let val s = string_of_play_outcome play in |
182 let val s = string_of_play_outcome play in |
183 banner ^ ": " ^ Active.sendback_markup [Markup.padding_command] command ^ |
183 banner ^ ": " ^ Active.sendback_markup_command command ^ |
184 (s |> s <> "" ? enclose " (" ")") ^ "." |
184 (s |> s <> "" ? enclose " (" ")") ^ "." |
185 end |
185 end |
186 |
186 |
187 fun one_line_proof_text ctxt num_chained |
187 fun one_line_proof_text ctxt num_chained |
188 ((used_facts, (meth, play)), banner, subgoal, subgoal_count) = |
188 ((used_facts, (meth, play)), banner, subgoal, subgoal_count) = |