let mk_field_access e f = Fol.Tdata (E1proj (e, WpFol.Pfield f))