Section Core.
(* The following definition ties together worlds and states *)
Definition hooks_consistent (c : context) (h : hooks) : Prop :=
forall z lc ls t, ((z, lc), (ls, t)) \in dom h ->
(lc \in dom c) && (ls \in dom c).
Definition hook_complete w := hooks_consistent (getc w) (geth w).

Lemma locE' d n x y :
valid (dstate d) ->
getLocal n {| dstate := upd n x (dstate d);
dsoup := y |} = x.