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