Section ClientGenericSendTransitions.
Definition HClient this to := (this \in clients /\ to == server).
Variable the_tag : nat.
Variable prec : nid -> seq nat -> Prop.
Hypothesis prec_safe :
forall this to m,
HClient this to ->
prec to m ->
msg_from_client (TMsg the_tag m).
Notation coh := ResourceCoh.
Definition client_step (this to : nid) (d : dstatelet)
(msg : seq nat)
(pf : client_send_safe this to d msg) :=
Some Heap.empty.

Lemma client_step_def this to d msg :
client_send_safe this to d msg <->
exists b pf, @client_step this to d msg pf = Some b.