proposition: Remark rdec_trans_xi : forall s0 : Site, xi (rec_dec_trans c0 s1 s2) s0 = (if eq_site_dec owner s2 then if eq_site_dec s0 s1 then (xi c0 s0 - 1)%Z else xi c0 s0 else xi c0 s0).
proof: Proof. intro; unfold xi in |- *. rewrite rdec_trans_ctrl_copy. rewrite rdec_trans_ctrl_dec. simpl in |- *; case (eq_site_dec owner s2); intro. case (eq_site_dec s0 s1); intro. omega. trivial. trivial. trivial. trivial. Qed.
imports: init table_act mess_act