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