Section COPY_EFFECT.
(* invariants *)
Variable c0 : Config.
Variable s1 s2 : Site.
Hypothesis diff_s1_s2 : s1 <> s2.

Lemma copy_trans_st_rt :
forall s0 : Site,
s0 <> owner ->
access s1 (rt c0) ->
((st c0 s0 > 0)%Z -> rt c0 s0 = true) ->
(st (copy_trans c0 s1 s2) s0 > 0)%Z -> rt (copy_trans c0 s1 s2) s0 = true.