equal
deleted
inserted
replaced
391 relevance_fudge relevance_override chained_ths hyp_ts concl_t |
391 relevance_fudge relevance_override chained_ths hyp_ts concl_t |
392 val problem = |
392 val problem = |
393 {state = st', goal = goal, subgoal = i, |
393 {state = st', goal = goal, subgoal = i, |
394 subgoal_count = Sledgehammer_Util.subgoal_count st, |
394 subgoal_count = Sledgehammer_Util.subgoal_count st, |
395 facts = facts |> map Sledgehammer_Provers.Untranslated_Fact, |
395 facts = facts |> map Sledgehammer_Provers.Untranslated_Fact, |
396 smt_head = NONE} |
396 smt_filter = NONE} |
397 in prover params (K "") problem end)) () |
397 in prover params (K "") problem end)) () |
398 handle TimeLimit.TimeOut => |
398 handle TimeLimit.TimeOut => |
399 ({outcome = SOME ATP_Proof.TimedOut, message = "", used_facts = [], |
399 ({outcome = SOME ATP_Proof.TimedOut, message = "", used_facts = [], |
400 run_time_in_msecs = NONE}, ~1) |
400 run_time_in_msecs = NONE}, ~1) |
401 val time_prover = run_time_in_msecs |> the_default ~1 |
401 val time_prover = run_time_in_msecs |> the_default ~1 |