let prove log w = require_wp log >>= fun _ -> require_model log w >>= fun _ -> require_env log w >>= fun _ -> coqc false log w (script_for w) >>= Task.call (fun r -> if r=0 then Valid else Unknown)