let mk_access_pointer e _t = 
    let rec access p = match p with
    | Fol.Tdata (E0addr v) -> Fol.Tvar (WpFol.lv_to_fol_var v)
    | Fol.Tdata (E0depl (e, ch)) -> 
        Fol.Tdata (E0proj (access e, ch))
    | _ -> abort ("indirect access to "^(Pretty_utils.sfprintf "%a" pp_exp0 e))
    in access e