proposition: 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).
proof: Proof. intro; unfold xi in |- *. rewrite rcop3_trans_ctrl_copy. rewrite case_ineq. rewrite rcop3_trans_ctrl_dec. rewrite rcop3_trans_rt. case (eq_site_dec s0 s2); intro. omega. trivial. trivial. trivial. auto. trivial. Qed.
imports: init table_act mess_act