equal
deleted
inserted
replaced
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) |