let subst_res_var res_lv new_res_lv post =
let prop_in_data_addr do_exp d = match d with
| E2addr v when v.Cil_types.lv_id = res_lv.lv_id ->
Fol.Tdata (E2addr new_res_lv)
| _ -> prop_in_data do_exp d
in
let fol_res_lv = WpFol.lv_to_fol_var res_lv in
let called_res = mk_lvar new_res_lv in
Fol.subst_in_pred prop_in_data_addr fol_res_lv called_res post