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_elim {cs: compspecs} sh: forall t lo hi n (a: list (reptype t)) (al: list (reptype t)) p,
data_at sh (tarray t (hi - lo)) a (field_address0 (tarray t n) (ArraySubsc lo :: nil) p) *
array_with_hole sh t lo hi n al p |--
data_at sh (tarray t n) (splice_into_list lo hi a al) p.