let why_file m with_bot do_dot l_cfg_annots =
  let obligs = build_obligs m with_bot do_dot l_cfg_annots in
    match obligs with 
      | None -> Wp_parameters.feedback "No proof obligations."None
      | Some obligs ->
          Wp_parameters.debug "proof obligations =@.@[<hov2>  %a@]@."
            (Cilutil.print_list Cilutil.newline Why_output.decl) obligs;
          let file = Why_output.build_why_file "wp" (prelude m) obligs in 
            Some file