let check log w = require_wp log >>= fun _ -> require_model log w >>= fun _ -> require_env log w >>= fun _ -> coqc true log w None >>= Task.call (fun r -> if r=0 then Valid else Invalid)