Notation msgs i k := (dsoup (getStatelet i k)).
Hypothesis T : this \in nodes.
Definition greet_prog1 := greet2 l1 T.
Definition greet_prog2 := greet2 l2 T.
Definition greeter_spec3 n1 n2 to :=
DHT [this, V]
(fun i =>
[/\ loc i l1 = counter :-> n1,
loc i l2 = counter :-> n2 &
to \in nodes],
fun r m =>
[/\ loc m l1 = counter :-> n1.+2,
loc m l2 = counter :-> n2.+2 &
r = n1 + n2 + 2]).

(* Specifications: *)
Lemma hook_complete_unit (c : context) : hook_complete (c, Unit).
Next Obligation. exact Unit. Defined.