let mk_index_access t ty i =
Wp_parameters.debug ~level:3 "M2.mk_index_access@.";
try
let m, p = get_addr_exp t in
Fol.Tdata (E2load (m, mk_index_shift p ty i))
with Calculus.InvalidModel _s ->
Fol.Tdata (E2proj (t, WpFol.Pidx i))