Instance CompSpecs : compspecs.Definition Vprog : varspecs.Definition load_SC_spec := DECLARE _load_SC load_SC_spec.Definition store_SC_spec := DECLARE _store_SC store_SC_spec.Definition tnode := Tstruct _node noattr.

Lemma singleton_snap : forall (x : Z -> option Z) p v1 v2, x v1 = Some v2 -> view_shift (ghost_snap x p) (ghost_snap (singleton v1 v2) p).