src/HOL/TPTP/sledgehammer_tactics.ML
changeset 54141 f57f8e7a879f
parent 54126 6675cdc0d1ae
child 55198 7a538e58b64e
equal deleted inserted replaced
54140:564b8adb0952 54141:f57f8e7a879f
    40       |> relevant_facts ctxt params name
    40       |> relevant_facts ctxt params name
    41              (the_default default_max_facts max_facts) fact_override hyp_ts
    41              (the_default default_max_facts max_facts) fact_override hyp_ts
    42              concl_t
    42              concl_t
    43       |> hd |> snd
    43       |> hd |> snd
    44     val problem =
    44     val problem =
    45       {state = Proof.init ctxt, goal = goal, subgoal = i, subgoal_count = n,
    45       {comment = "", state = Proof.init ctxt, goal = goal, subgoal = i, subgoal_count = n,
    46        factss = [("", facts)]}
    46        factss = [("", facts)]}
    47   in
    47   in
    48     (case prover params (K (K (K ""))) problem of
    48     (case prover params (K (K (K ""))) problem of
    49       {outcome = NONE, used_facts, ...} => used_facts |> map fst |> SOME
    49       {outcome = NONE, used_facts, ...} => used_facts |> map fst |> SOME
    50     | _ => NONE)
    50     | _ => NONE)