Remark rcop3_trans_xi :
 forall s0 : Site,
 xi (rec_copy3_trans c0 s1 s2) s0 =
 (if eq_site_dec s0 s2 then  (xi c0 s0 + 1)%Z else  xi c0 s0).Remark rcop3_trans_yi :
 forall s0 : Site,
 yi (rec_copy3_trans c0 s1 s2) s0 =
 (if eq_site_dec s0 s2 then  (yi c0 s0 + 1)%Z else yi c0 s0).

(* Specifications: *)
Lemma rcop3_trans_sigma_xi : sigma_xi (rec_copy3_trans c0 s1 s2) = (sigma_xi c0 + 1)%Z.
Lemma rcop3_trans_sigma_yi : sigma_yi (rec_copy3_trans c0 s1 s2) = (sigma_yi c0 + 1)%Z.
Lemma rcop3_trans_D : (rt c0 s0 = false -> D_queue (bm c0 s0 owner)) -> rt (rec_copy3_trans c0 s1 s2) s0 = false -> D_queue (bm (rec_copy3_trans c0 s1 s2) s0 owner).
Lemma rcop3_trans_alt : D_queue (bm c0 s2 owner) -> alternate (bm c0 s0 owner) -> alternate (bm (rec_copy3_trans c0 s1 s2) s0 owner).