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_step_coh : s_step_coh_t coh req cs_step.