proposition: Lemma rcop3_trans_sigma_ctrl : sigma_ctrl s0 (bm (rec_copy3_trans c0 s1 s2)) = sigma_ctrl s0 (bm c0).
proof: Proof. intros; unfold sigma_ctrl in |- *. rewrite rcop3_trans_sigma_copy. rewrite rcop3_trans_sigma_dec. rewrite rcop3_trans_sigma_inc. case (eq_site_dec s0 s1); intro; omega. Qed.
imports: init table_act mess_act