proposition: Lemma rcop3_trans_rt : Int (rt (rec_copy3_trans c0 s1 s2) s0) = (if eq_site_dec s0 s2 then (Int (rt c0 s0) + 1)%Z else Int (rt c0 s0)).
proof: Proof. case (eq_site_dec s0 s2); simpl in |- *; intros. rewrite e; apply S_set_rec_table; auto. apply no_set_rec_table; auto. Qed.
imports: init table_act mess_act