src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML
changeset 43021 5910dd009d0e
parent 43020 abb5d1f907e4
child 43051 d7075adac3bd
equal deleted inserted replaced
43020:abb5d1f907e4 43021:5910dd009d0e
   325   let
   325   let
   326     fun default_prover_name () =
   326     fun default_prover_name () =
   327       hd (#provers (Sledgehammer_Isar.default_params ctxt []))
   327       hd (#provers (Sledgehammer_Isar.default_params ctxt []))
   328       handle Empty => error "No ATP available."
   328       handle Empty => error "No ATP available."
   329     fun get_prover name =
   329     fun get_prover name =
   330       (name, Sledgehammer_Run.get_minimizing_prover ctxt false name)
   330       (name, Sledgehammer_Run.get_minimizing_prover ctxt
       
   331                 Sledgehammer_Provers.Normal name)
   331   in
   332   in
   332     (case AList.lookup (op =) args proverK of
   333     (case AList.lookup (op =) args proverK of
   333       SOME name => get_prover name
   334       SOME name => get_prover name
   334     | NONE => get_prover (default_prover_name ()))
   335     | NONE => get_prover (default_prover_name ()))
   335   end
   336   end