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 Task.spawn server (Prover.prove ~callout:do_wpo_feedback g ~interactive prover)