(************************************************************)
Definition coord_msg tag (from to : nid) : bool :=
[&& from == cn, to \in pts & tagFromCoordinator tag].
Definition participant_msg tag (from to : nid) : bool :=
[&& from \in pts, to == cn & tagFromParticipant tag].
Definition internal_msg (tag : nat) (from to : nid) : bool :=
coord_msg tag from to || participant_msg tag from to.

Lemma internal_msg_to_cn tag from :
internal_msg tag from cn ->
participant_msg tag from cn.