proposition: Lemma copy_trans_ctrl_dec : forall s' : Site, ctrl_dec s0 s' (bm (copy_trans c0 s1 s2)) = ctrl_dec s0 s' (bm c0).
proof: Proof. intros; unfold ctrl_dec in |- *; simpl in |- *. apply diff_post_card_mess. left; discriminate. Qed.
imports: init table_act mess_act