equal
deleted
inserted
replaced
19 fun metis ctxt = Metis_Tactic.metis_tac [] ATP_Problem_Generate.liftingN ctxt (thms @ facts); |
19 fun metis ctxt = Metis_Tactic.metis_tac [] ATP_Problem_Generate.liftingN ctxt (thms @ facts); |
20 in |
20 in |
21 (if Mirabelle.can_apply timeout metis pre then "succeeded" else "failed") |
21 (if Mirabelle.can_apply timeout metis pre then "succeeded" else "failed") |
22 |> not (null names) ? suffix (":\n" ^ commas names) |
22 |> not (null names) ? suffix (":\n" ^ commas names) |
23 end |
23 end |
24 in {run_action = run_action, finalize = K ""} end |
24 in ("", {run_action = run_action, finalize = K ""}) end |
25 |
25 |
26 val () = Mirabelle.register_action "metis" make_action |
26 val () = Mirabelle.register_action "metis" make_action |
27 |
27 |
28 end |
28 end |