Instance Inhabitant_share : Inhabitant share := Share.bot. (* TODO: remove this, it's already in sublist.v *)
Instance Inhabitant_mpred : Inhabitant mpred := @FF mpred Nveric. (* TODO: remove this, it's already in sublist.v *)

Lemma field_at_array_inbounds : forall {cs : compspecs} sh t z a i v p,
field_at sh (Tarray t z a) [ArraySubsc i] v p |-- !!(0 <= i < z).