equal
deleted
inserted
replaced
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 |