proposition: Lemma del_trans_rt : forall s1 : Site, Int (rt (delete_trans c0 s0) s1) = (if eq_site_dec s1 s0 then (Int (rt c0 s1) - 1)%Z else Int (rt c0 s1)).
proof: Proof. intro; case (eq_site_dec s1 s0); simpl in |- *; intros. rewrite e; apply pred_reset_rec_table; auto. apply no_reset_rec_table; auto. Qed.
imports: init table_act mess_act