Section HeapPointsToLemmas.
Implicit Types (x : ptr) (h : heap).
(***********************)
(* Some derived lemmas *)
(***********************)

Lemma updi_iinv x xs1 xs2 h1 h2 :
size xs1 = size xs2 -> valid (updi x xs1 \+ h1) ->
updi x xs1 \+ h1 = updi x xs2 \+ h2 -> xs1 = xs2 /\ h1 = h2.