let do_wp_proof server interactive prover g =
let already_valid (_,r) = r=Wpo.Valid in
if not (List.exists already_valid (Wpo.get_results g))
then begin
Task.spawn server
(Prover.prove ~callout:do_wpo_feedback g ~interactive prover)
end