let data_field ka ga f =
match ka with
| Kset _ ->
(* data_field_set env ga f *)
Wp_parameters.not_yet_implemented "field access over sets"
| _ ->
let obj = object_of f.ftype in
Loc (M.field (loc_of_data obj ga) f)