(* We could also consider an alpha-renaming axiom, although this may be unnecessary. *)

Lemma ex_field_at_exclusive : forall (cs : compspecs) (sh : Share.t) (t : type) (fld : list gfield) (p : val),
sepalg.nonidentity sh ->
0 < sizeof (nested_field_type t fld) -> exclusive_mpred (EX v : _, field_at sh t fld v p).