src/HOL/TPTP/sledgehammer_tactics.ML
changeset 58921 ffdafc99f67b
parent 57812 8dc9dc241973
child 58928 23d0ffd48006
equal deleted inserted replaced
58920:2f8168dc0eac 58921:ffdafc99f67b
    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,