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))