From mathcomp.ssreflect
From mathcomp
From fcsl
From DiSeL
From DiSeL
Set Implicit Arguments.
Unset Strict Implicit.
Module LockProtocol.
Section LockProtocol.
Variable server : nid.
Variable clients : seq nid.
Hypothesis Hnin : server \notin clients.
Hypothesis Huniq : uniq clients.

(* Specifications: *)
Lemma client_not_server n : n \in clients -> (n == server) = false.
Definition nodes := [:: server] ++ clients.
Lemma client_nodes n : n \in clients -> n \in nodes.
Notation epoch := nat (only parsing).