src/HOL/Tools/Sledgehammer/sledgehammer_proof_methods.ML
changeset 63518 ae8fd6fe63a1
parent 62219 dbac573b27e7
child 63692 1bc4bc2c9fd1
equal deleted inserted replaced
63517:8ea738cffabe 63518:ae8fd6fe63a1
   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) =