End SingletonHole.
Definition splice_into_list {A} (lo hi: Z) (source target : list A) : list A :=
sublist 0 lo target
++ source
++ sublist hi (Zlength target) target.
Module SegmentHole.
Definition array_with_hole {cs: compspecs} sh (t: type) lo hi n (al': list (reptype t)) p :=
ALL v: list (reptype t),
(data_at sh (tarray t (hi - lo)) v (field_address0 (tarray t n) (ArraySubsc lo :: nil) p) -* data_at sh (tarray t n) (splice_into_list lo hi v al') p).

Lemma array_with_hole_intro {cs: compspecs} sh: forall t lo hi n (al: list (reptype t)) p,
0 <= lo <= hi ->
hi <= n ->
data_at sh (tarray t n) al p |--
data_at sh (tarray t (hi - lo)) (sublist lo hi al) (field_address0 (tarray t n) (ArraySubsc lo :: nil) p) *
array_with_hole sh t lo hi n al p.