proposition: Remark rcop2_trans_xi : forall s1 : Site, xi (rec_copy2_trans c0 s2) s1 = xi c0 s1.
proof: Proof. intro; unfold xi in |- *. rewrite rcop2_trans_ctrl_copy. rewrite rcop2_trans_ctrl_dec. rewrite rcop2_trans_rt. rewrite case_eq; case (eq_site_dec s1 s2); intro. omega. trivial. trivial. trivial. trivial. Qed.
imports: init table_act mess_act