src/HOL/Mirabelle/Tools/mirabelle_sledgehammer.ML
changeset 43211 77c432fe28ff
parent 43205 23b81469499f
child 43212 050a03afe024
equal deleted inserted replaced
43210:7384b771805d 43211:77c432fe28ff
   540             Method.insert_tac thms THEN'
   540             Method.insert_tac thms THEN'
   541             Sledgehammer_Tactics.sledgehammer_as_unsound_oracle_tac ctxt)
   541             Sledgehammer_Tactics.sledgehammer_as_unsound_oracle_tac ctxt)
   542        else if !reconstructor = "smt" then
   542        else if !reconstructor = "smt" then
   543          SMT_Solver.smt_tac
   543          SMT_Solver.smt_tac
   544        else if full orelse !reconstructor = "metisFT" then
   544        else if full orelse !reconstructor = "metisFT" then
   545          Metis_Tactics.old_metisFT_tac
   545          Metis_Tactics.new_metisFT_tac
   546        else
   546        else
   547          Metis_Tactics.old_metis_tac) ctxt thms
   547          Metis_Tactics.new_metis_tac []) ctxt thms
   548     fun apply_reconstructor thms =
   548     fun apply_reconstructor thms =
   549       Mirabelle.can_apply timeout (do_reconstructor thms) st
   549       Mirabelle.can_apply timeout (do_reconstructor thms) st
   550 
   550 
   551     fun with_time (false, t) = "failed (" ^ string_of_int t ^ ")"
   551     fun with_time (false, t) = "failed (" ^ string_of_int t ^ ")"
   552       | with_time (true, t) = (change_data id (inc_reconstructor_success m);
   552       | with_time (true, t) = (change_data id (inc_reconstructor_success m);