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