Section ServerGenericSendTransitions.
Definition HServ this to := (this == server /\ to \in clients).
Variable the_tag : nat.
Variable prec : server_state -> nid -> seq nid -> Prop.
Hypothesis prec_safe :
forall this to s m,
HServ this to ->
prec s to m ->
coh_msg (Msg (TMsg the_tag m) this to true) (current_epoch s).
Notation coh := LockCoh.
Definition server_send_safe (this n : nid)
(d : dstatelet) (msg : seq nat) :=
HServ this n /\
exists (C : coh d), prec (getSt_server C) n msg.

Lemma server_send_safe_coh this to d m : server_send_safe this to d m -> coh d.