Definition server_send_trans :=
  SendTrans server_send_safe_coh server_send_safe_in server_step_def server_step_coh.Program Definition server_send_grant_trans : send_trans LockCoh :=
  @server_send_trans grant_tag server_send_grant_prec _.

Lemma rs_step_coh : r_step_coh_t server_recv_wf the_tag rs_step.