Notation loc i k := (getLocal sv (getStatelet i k)).Notation loc1 i := (loc i l1).Notation loc2 i := (loc i l2).(* Delegate computation to someone else *)
Definition delegate_f := compute_f l2 f prec cs2 cls2 _ Hc2 sd.Notation cal_ii := (ii l1 f prec cs1 cls1).Definition receive_msg :=
  with_inv cal_ii (blocking_receive_req l1 f prec cs1 cls1 _ Hs1).Definition send_ans to args ans :=
  with_inv cal_ii (send_answer l1 f prec cs1 cls1 _ Hs1 to args ans).

(* Specifications: *)
Lemma hook_complete_unit (c : context) : hook_complete (c, Unit).
Lemma hooks_consistent_unit (c : context) : hooks_consistent c Unit.
Lemma hcomp l : hook_complete (mkWorld l).