Remark del_trans_xi : forall s0 : Site, xi (delete_trans c0 s1) s0 = xi c0 s0.Remark del_trans_yi : forall s0 : Site, yi (delete_trans c0 s1) s0 = yi c0 s0.

Lemma del_trans_D : (rt c0 s0 = false -> D_queue (bm c0 s0 owner)) -> rt (delete_trans c0 s1) s0 = false -> D_queue (bm (delete_trans c0 s1) s0 owner).