proposition: Lemma rinc_trans_st : forall s0 : Site, st (rec_inc_trans c0 s1 s2) s0 = (if eq_site_dec s0 owner then (st c0 s0 + 1)%Z else st c0 s0).
proof: Proof. intro; simpl in |- *; case (eq_site_dec s0 owner); intro. rewrite e; apply S_inc_send_table. apply no_inc_send_table; auto. Qed.
imports: init table_act mess_act