Section GreeterPrograms.
Variable l : Label.
Variable nodes : seq nid.
Definition gp := GreeterProtocol nodes l.
(* Simplest world with one protocol *)
(* TODO: simplify this using canonicals *)
Definition W : world := (l \\-> gp, Unit).
Variable this : nid.

Lemma grEq : (getProtocol W l) = gp.