src/HOL/Tools/Sledgehammer/sledgehammer_isar.ML
changeset 75049 8ce2469920bf
parent 75047 7d2a5d1f09af
child 75051 1a8f6cb5efd6
equal deleted inserted replaced
75048:e926618f9474 75049:8ce2469920bf
   478                      in
   478                      in
   479                        ((used_facts', (meth, play_outcome)), banner, subgoal, subgoal_count)
   479                        ((used_facts', (meth, play_outcome)), banner, subgoal, subgoal_count)
   480                      end)
   480                      end)
   481                  else
   481                  else
   482                    one_line_params) ^
   482                    one_line_params) ^
   483               (if isar_proofs = SOME true then "\n(No Isar proof available.)" else "")
   483               (if isar_proofs = SOME true then "\n(No Isar proof available)" else "")
   484             | (_, num_steps) =>
   484             | (_, num_steps) =>
   485               let
   485               let
   486                 val msg =
   486                 val msg =
   487                   (if verbose then [string_of_int num_steps ^ " step" ^ plural_s num_steps]
   487                   (if verbose then [string_of_int num_steps ^ " step" ^ plural_s num_steps]
   488                    else []) @
   488                    else []) @