Skip to content
Snippets Groups Projects
Commit f5331b9f authored by Loïc Correnson's avatar Loïc Correnson Committed by Allan Blanchard
Browse files

[wp] fixed qed time for non-valid

parent 31e5cc58
No related branches found
No related tags found
No related merge requests found
...@@ -108,12 +108,11 @@ let consolidated = function ...@@ -108,12 +108,11 @@ let consolidated = function
results in results in
r.verdict, r.verdict,
(if cached then 1 else 0), (if cached then 1 else 0),
if p = Qed then if p = Qed then [Qed,pqed r]
[Qed,pqed r]
else else
pmerge if VCS.is_valid r
[Qed,psolver r] then pmerge [Qed,psolver r] [p,presult r]
(if VCS.is_valid r then [p,presult r] else []) else []
let results prs = let results prs =
let verdict, cached, provers = consolidated prs in let verdict, cached, provers = consolidated prs in
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment