Definition pn_send_trans :=
  SendTrans pn_safe_coh pn_safe_in pn_safe_def pn_step_coh.(* Prep-Yes transition *)
Program Definition pn_send_yes_trans :=
  @pn_gen_send_trans prep_yes _ PGotRequest true.(* Prep-No transition *)
Program Definition pn_send_no_trans :=
  @pn_gen_send_trans prep_no _ PGotRequest false.(* Commit-Ack transition *)
Program Definition pn_commit_ack_trans :=
  @pn_gen_send_trans commit_ack _ PCommitted true.(* Abort-Ack transition *)
Program Definition pn_abort_ack_trans :=
  @pn_gen_send_trans abort_ack _ PAborted false.

(* Specifications: *)
Lemma rp_step_coh : r_step_coh_t rp_wf rp_tag rp_step.