diff -r 3301c0d8b560 -r d8dc8fdc46fc src/HOL/Tools/Sledgehammer/sledgehammer_prover.ML
--- a/src/HOL/Tools/Sledgehammer/sledgehammer_prover.ML	Tue Sep 28 10:38:36 2021 +0200
+++ b/src/HOL/Tools/Sledgehammer/sledgehammer_prover.ML	Tue Sep 28 10:47:18 2021 +0200
@@ -189,9 +189,8 @@
 
     val smt_methodss =
       if smt_proofs then
-        [SMT_Method SMT_Z3 ::
-         map (fn strategy => SMT_Method (SMT_Verit strategy))
-           (Verit_Proof.all_veriT_stgies (Context.Proof ctxt))]
+        [map (SMT_Method o SMT_Verit) (Verit_Proof.all_veriT_stgies (Context.Proof ctxt)),
+         [SMT_Method SMT_Z3]]
       else
         []
   in