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 Coh0 (w : world) (s : state) :
w = Unit -> s = Unit -> Coh w s.