merged
authordesharna
Mon, 03 Jan 2022 13:29:05 +0100
changeset 74968 507203e30db4
parent 74967 3f55c5feca58 (diff)
parent 74966 8a378e99d9a8 (current diff)
child 74969 fa0020b47868
child 74970 afd8da649d75
merged
--- a/src/HOL/Tools/Mirabelle/mirabelle_sledgehammer.ML	Wed Dec 29 08:07:51 2021 +0100
+++ b/src/HOL/Tools/Mirabelle/mirabelle_sledgehammer.ML	Mon Jan 03 13:29:05 2022 +0100
@@ -353,8 +353,7 @@
       | _ => "")
   in
     change_data (inc_sh_time_isa cpu_time);
-    Sledgehammer.short_string_of_sledgehammer_outcome sledgehamer_outcome ^ " " ^
-      triv_str ^ outcome_msg ^ msg
+    (sledgehamer_outcome, triv_str ^ outcome_msg ^ msg)
   end
 
 end
@@ -472,7 +471,7 @@
             val trivial =
               check_trivial andalso Try0.try0 (SOME try_timeout) ([], [], [], []) pre
               handle Timeout.TIMEOUT _ => false
-            val log1 =
+            val (outcome, log1) =
               run_sledgehammer change_data params output_dir e_selection_heuristic term_order
                 force_sos keep proof_method_from_msg theory_index trivial meth named_thms pos pre
             val log2 =
@@ -481,7 +480,11 @@
                 !meth ^ " (sledgehammer): " ^ run_proof_method change_data trivial false name meth
                   thms timeout pos pre
               | NONE => "")
-          in log1 ^ "\n" ^ log2 end
+          in
+            log1 ^ "\n" ^ log2
+            |> Symbol.trim_blanks
+            |> prefix_lines (Sledgehammer.short_string_of_sledgehammer_outcome outcome ^ " ")
+          end
       end
 
     fun finalize () = log_data (Synchronized.value data)