Section CalculatorApp.
Definition l1 := 1.
Definition l2 := 2.
Definition f args :=
match args with
| x::y::_ => Some (x + y)
| _ => None
end.
Definition prec (args : input) :=
if args is x::y::_ then true else false.
(* This server node *)
Definition sv : nid := 1.
Definition cl : nid := 2.

(* 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.