proposition: Lemma rinc_trans_ctrl_copy : forall s0 s3 : Site, ctrl_copy s0 s3 (bm (rec_inc_trans c0 s1 s2)) = ctrl_copy s0 s3 (bm c0).
proof: Proof. intros; unfold ctrl_copy in |- *; simpl in |- *. rewrite diff_post_card_mess. apply diff_collect_card_mess. apply diff_or_elsewhere with (m := inc_dec s2); [ trivial | discriminate ]. left; discriminate. Qed.
imports: init table_act mess_act