Commit 01fab6cc authored by David Hauzar's avatar David Hauzar

Add the argument of Call_provers.Unknown giving the reason of answer Unknown.

parent d4c3cfbf
......@@ -1285,7 +1285,7 @@ let why3tac ?(timelimit=timelimit) s gl =
match res.pr_answer with
| Valid -> admit_as_an_axiom gl
| Invalid -> error "Invalid"
| Unknown s -> error ("Don't know: " ^ s)
| Call_provers.Unknown (s, _) -> error ("Don't know: " ^ s)
| Call_provers.Failure s -> error ("Failure: " ^ s)
| Call_provers.Timeout -> error "Timeout"
| OutOfMemory -> error "Out Of Memory"
......
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