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).

Lemma hcomp l : hook_complete (mkWorld l).