let get_result cfg (kf, g, _, he, wenv) basename goals =
let start = Cil2cfg.cfg_start cfg in
let e_start = match CFG.succ_e g start with [e] -> e | _ -> assert false in
let obj = get_wp_edge he e_start in
let obj = W.close kf wenv obj in
W.add_goals basename goals obj