equal
deleted
inserted
replaced
34 val name = hd provers |
34 val name = hd provers |
35 val prover = get_prover ctxt mode name |
35 val prover = get_prover ctxt mode name |
36 val default_max_facts = default_max_facts_of_prover ctxt name |
36 val default_max_facts = default_max_facts_of_prover ctxt name |
37 val (_, hyp_ts, concl_t) = ATP_Util.strip_subgoal goal i ctxt |
37 val (_, hyp_ts, concl_t) = ATP_Util.strip_subgoal goal i ctxt |
38 val ho_atp = exists (is_ho_atp ctxt) provers |
38 val ho_atp = exists (is_ho_atp ctxt) provers |
39 val reserved = reserved_isar_keyword_table () |
39 val keywords = Keyword.get_keywords () |
40 val css_table = clasimpset_rule_table_of ctxt |
40 val css_table = clasimpset_rule_table_of ctxt |
41 val facts = |
41 val facts = |
42 nearly_all_facts ctxt ho_atp fact_override reserved css_table chained hyp_ts concl_t |
42 nearly_all_facts ctxt ho_atp fact_override keywords css_table chained hyp_ts concl_t |
43 |> relevant_facts ctxt params name (the_default default_max_facts max_facts) fact_override |
43 |> relevant_facts ctxt params name (the_default default_max_facts max_facts) fact_override |
44 hyp_ts concl_t |
44 hyp_ts concl_t |
45 |> hd |> snd |
45 |> hd |> snd |
46 val problem = |
46 val problem = |
47 {comment = "", state = Proof.init ctxt, goal = goal, subgoal = i, subgoal_count = n, |
47 {comment = "", state = Proof.init ctxt, goal = goal, subgoal = i, subgoal_count = n, |