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