src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML
changeset 58061 3d060f43accb
parent 58028 e4250d370657
child 58473 d919cde25691
equal deleted inserted replaced
58060:835b5443b978 58061:3d060f43accb
   357     val i = 1
   357     val i = 1
   358     fun set_file_name (SOME dir) =
   358     fun set_file_name (SOME dir) =
   359         Config.put Sledgehammer_Prover_ATP.atp_dest_dir dir
   359         Config.put Sledgehammer_Prover_ATP.atp_dest_dir dir
   360         #> Config.put Sledgehammer_Prover_ATP.atp_problem_prefix
   360         #> Config.put Sledgehammer_Prover_ATP.atp_problem_prefix
   361           ("prob_" ^ str0 (Position.line_of pos) ^ "__")
   361           ("prob_" ^ str0 (Position.line_of pos) ^ "__")
   362         #> Config.put SMT2_Config.debug_files
   362         #> Config.put SMT_Config.debug_files
   363           (dir ^ "/" ^ Name.desymbolize (SOME false) (ATP_Util.timestamp ()) ^ "_"
   363           (dir ^ "/" ^ Name.desymbolize (SOME false) (ATP_Util.timestamp ()) ^ "_"
   364           ^ serial_string ())
   364           ^ serial_string ())
   365       | set_file_name NONE = I
   365       | set_file_name NONE = I
   366     val st' =
   366     val st' =
   367       st
   367       st
   539         if !meth = "sledgehammer_tac" then
   539         if !meth = "sledgehammer_tac" then
   540           sledge_tac 0.2 ATP_Proof.vampireN "mono_native"
   540           sledge_tac 0.2 ATP_Proof.vampireN "mono_native"
   541           ORELSE' sledge_tac 0.2 ATP_Proof.eN "poly_guards??"
   541           ORELSE' sledge_tac 0.2 ATP_Proof.eN "poly_guards??"
   542           ORELSE' sledge_tac 0.2 ATP_Proof.spassN "mono_native"
   542           ORELSE' sledge_tac 0.2 ATP_Proof.spassN "mono_native"
   543           ORELSE' sledge_tac 0.2 ATP_Proof.z3_tptpN "poly_tags??"
   543           ORELSE' sledge_tac 0.2 ATP_Proof.z3_tptpN "poly_tags??"
   544           ORELSE' SMT2_Solver.smt2_tac ctxt thms
   544           ORELSE' SMT_Solver.smt_tac ctxt thms
   545         else if !meth = "smt" then
   545         else if !meth = "smt" then
   546           SMT2_Solver.smt2_tac ctxt thms
   546           SMT_Solver.smt_tac ctxt thms
   547         else if full then
   547         else if full then
   548           Metis_Tactic.metis_tac [ATP_Proof_Reconstruct.full_typesN]
   548           Metis_Tactic.metis_tac [ATP_Proof_Reconstruct.full_typesN]
   549             ATP_Proof_Reconstruct.default_metis_lam_trans ctxt thms
   549             ATP_Proof_Reconstruct.default_metis_lam_trans ctxt thms
   550         else if String.isPrefix "metis (" (!meth) then
   550         else if String.isPrefix "metis (" (!meth) then
   551           let
   551           let