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

Lemma l1 d: lock_coh d -> valid (dstate d).