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