Section CoordinatorGenericReceiveTransitions.
Notation coh := TPCCoh.
(* Send-prepare *)
Variable rc_tag : ttag.
Variable rc_wf : forall d, coh d -> nid -> nid -> TaggedMessage -> bool.
Definition rc_step : receive_step_t coh :=
fun this (from : nid) (m : seq nat) d (pf : coh d) (pt : this \in nodes) =>
if (this == cn)
then let s := getStC pf in
let l := @getStL this d pf pt in
mkLocal (cstep_recv s from rc_tag m l)
else getLocal this d.

Lemma rc_step_coh : r_step_coh_t rc_wf rc_tag rc_step.