Definition state_coh d :=
forall n, n \in nodes -> local_coh n (getLocal n d).
Definition lock_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: lock_coh d -> valid (dstate d).
Lemma coh_dom_upd this d s :
this \in nodes -> LockCoh d -> dom (upd this s (dstate d)) =i nodes.