Commit ff662df6 authored by Francois Bobot's avatar Francois Bobot

Correction of the last commit for whytac

parent dd3aac24
......@@ -896,8 +896,8 @@ let whytac s gl =
let cp, drv = get_prover s in
let command = cp.command in
if debug then Format.printf "@[%a@]@\n---@." Pretty.print_task !task;
if debug then Format.printf "@[%a@]@\n---@." (Prover.print_task drv) !task;
let res = Prover.prove_task ~debug ~command ~timelimit drv !task () in
if debug then Format.printf "@[%a@]@\n---@." (Driver.print_task drv) !task;
let res = Driver.prove_task ~debug ~command ~timelimit drv !task () in
match res.pr_answer with
| Valid -> Tactics.admit_as_an_axiom gl
| Invalid -> error "Invalid"
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment