From mathcomp.ssreflect
From mathcomp
From fcsl
From DiSeL
From DiSeL
From DiSeL
From DiSeL
Set Implicit Arguments.
Unset Strict Implicit.
(* Module TwoPhaseInductiveInv. *)
Section TwoPhaseInductiveInv.
Variable l : Label.
Variables (cn : nid) (pts : seq nid) (others : seq nid).
Hypothesis Hnin : cn \notin pts.
Hypothesis PtsNonEmpty : pts != [::].

(* Specifications: *)
Lemma pt_not_cn pt : pt \in pts -> pt != cn.
Definition tpc := TwoPhaseCommitProtocol others Hnin l.