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

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