Section REC_COP1_EFFECT.
(* invariants *)
Variable c0 : Config.
Variable s1 s2 : Site.

Lemma rcop1_trans_st_rt :
forall s0 : Site,
((st c0 s0 > 0)%Z -> rt c0 s0 = true) ->
(st (rec_copy1_trans c0 s1 s2) s0 > 0)%Z ->
rt (rec_copy1_trans c0 s1 s2) s0 = true.