--- a/src/HOL/Tools/SMT/smt_solver.ML Fri Sep 12 21:58:41 2025 +0200
+++ b/src/HOL/Tools/SMT/smt_solver.ML Fri Sep 12 22:42:03 2025 +0200
@@ -318,10 +318,9 @@
SMT_Failure.SMT (fail as SMT_Failure.Counterexample _) =>
(SMT_Config.verbose_msg ctxt (str_of ctxt) fail; NONE)
| SMT_Failure.SMT (fail as SMT_Failure.Time_Out) =>
- (SMT_Config.verbose_msg ctxt (K ("SMT: Solver " ^ quote (SMT_Config.solver_of ctxt) ^ ": " ^
+ error ("SMT: Solver " ^ quote (SMT_Config.solver_of ctxt) ^ ": " ^
SMT_Failure.string_of_failure fail ^ " (setting the " ^
- "configuration option " ^ quote (Config.name_of SMT_Config.timeout) ^ " might help)")) ();
- NONE)
+ "configuration option " ^ quote (Config.name_of SMT_Config.timeout) ^ " might help)")
| SMT_Failure.SMT fail => error (str_of ctxt fail)
fun resolve ctxt (SOME thm) = resolve_tac ctxt [thm] 1