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