(* This server node *)
Definition sv : nid := 1.
Definition cl : nid := 2.

(* Specifications: *)
(* It's a server in protocol cal1 *)
Lemma  Hs1 : sv \in cs1. Proof. by []. Qed.
(* It's a client in protocol cal2 *)
Lemma  Hc2 : sv \in cls2. Proof. by []. Qed.
Lemma Hc1 : cl \in cls1. Proof. by []. Qed.
Definition sd := 3.
(* Delegate server *)
Lemma Hs2 : sd \in cs2. Proof. by []. Qed.
Notation loc i k := (getLocal sv (getStatelet i k)).