(*Require Import VST.concurrency.permjoin.*)
Set Bullet Behavior "Strict Subproofs".
Local Open Scope Z_scope.

Lemma data_at_unfolding CS sh b ofs phi :
readable_share sh ->
app_pred (@data_at_ CS sh (Tarray (Tpointer Tvoid noattr) 4 noattr) (Vptr b ofs)) phi ->
forall loc,
adr_range (b, Ptrofs.intval ofs) 4%Z loc ->
exists p v,
phi @ loc =
YES sh p
(VAL v) NoneP.