Require Export VST.msl.iter_sepcon.
Require Export VST.concurrency.semax_conc_pred.
Require Export VST.concurrency.semax_conc.
Require Export VST.floyd.proofauto.
Require Export VST.floyd.sublist.
(* general list lemmas *)
Notation vint z := (Vint (Int.repr z)).
Notation vptrofs z := (Vptrofs (Ptrofs.repr z)).

Corollary Znth_app1 : forall {A}{d: Inhabitant A} l1 (x : A) l2 i,
Zlength l1 = i -> Znth i (l1 ++ x :: l2) = x.