Definition state_coh d :=
forall n, n \in nodes -> local_coh n (getLocal n d).
Definition resource_coh d :=
let: dl := dstate d in
let: ds := dsoup d in
[/\ soup_coh ds
, dom dl =i nodes
, valid dl
& state_coh d].

(* Specifications: *)
Lemma l1 d: resource_coh d -> valid (dstate d).
Lemma coh_dom_upd this d s :
this \in nodes -> ResourceCoh d -> dom (upd this s (dstate d)) =i nodes.