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