equal
deleted
inserted
replaced
473 is_built_in_const relevance_fudge relevance_override |
473 is_built_in_const relevance_fudge relevance_override |
474 chained_ths hyp_ts concl_t |
474 chained_ths hyp_ts concl_t |
475 val problem = |
475 val problem = |
476 {state = st', goal = goal, subgoal = i, |
476 {state = st', goal = goal, subgoal = i, |
477 subgoal_count = Sledgehammer_Util.subgoal_count st, |
477 subgoal_count = Sledgehammer_Util.subgoal_count st, |
478 facts = facts |> map Sledgehammer_Provers.Untranslated_Fact, |
478 facts = facts |> map Sledgehammer_Provers.Untranslated_Fact} |
479 smt_filter = NONE} |
|
480 in prover params (K (K (K ""))) problem end)) () |
479 in prover params (K (K (K ""))) problem end)) () |
481 handle TimeLimit.TimeOut => failed ATP_Proof.TimedOut |
480 handle TimeLimit.TimeOut => failed ATP_Proof.TimedOut |
482 | Fail "inappropriate" => failed ATP_Proof.Inappropriate |
481 | Fail "inappropriate" => failed ATP_Proof.Inappropriate |
483 val time_prover = run_time |> Time.toMilliseconds |
482 val time_prover = run_time |> Time.toMilliseconds |
484 val msg = message (preplay ()) ^ message_tail |
483 val msg = message (preplay ()) ^ message_tail |