Section HeapPointsToLemmas.
Implicit Types (x : ptr) (h : heap).

Lemma hcancelT A1 A2 x (v1 : A1) (v2 : A2) h1 h2 :
valid (x :-> v1 \+ h1) ->
x :-> v1 \+ h1 = x :-> v2 \+ h2 -> A1 = A2.