Section REC_COP2_EFFECT.
(* invariants *)
Variable c0 : Config.
Variable s2 : Site.
Hypothesis rt_true : rt c0 s2 = false.

Lemma rcop2_trans_rt :
forall s0 : Site,
Int (rt (rec_copy2_trans c0 s2) s0) =
(if eq_site_dec s0 s2
then  (Int (rt c0 s0) + 1)%Z
else  Int (rt c0 s0)).