Definition server_send_trans :=
SendTrans ss_safe_coh ss_safe_in ss_safe_def ss_step_coh.
End ServerSendTransition.
(**************************)
(*** Client transitions ***)
(**************************)
Section ClientSendTransition.
Definition cs_safe (this to : nid)
(d : dstatelet) (msg : seq nat) :=
[/\ to \in cs, this \in cls, coh d & prec msg].

Lemma cs_safe_def this to d msg :
cs_safe this to d msg <->
exists b pf, @cs_step this to d msg pf = Some b.