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