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)