let mk_field_access s f =
Wp_parameters.debug ~level:3 "M2.mk_field_access@.";
try
let m, ps = get_addr_exp s in
Fol.Tdata (E2load (m, mk_field_shift ps f))
with Calculus.InvalidModel _s ->
Fol.Tdata (E2proj (s, WpFol.Pfield f))