(* All nodes are welcome to participate in the protocol *)
Definition nodes (d : dstatelet) : pred nid := mem fixed_nodes.Definition counter := ptr_nat 1.

(* Specifications: *)
Lemma l1 d: greeter_coh d -> valid (dstate d).
Lemma l2 d: greeter_coh d -> valid (dsoup d).
Lemma l3 d: greeter_coh d -> dom (dstate d) =i nodes d.