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

Lemma copy_trans_st :
forall s0 : Site,
st (copy_trans c0 s1 s2) s0 =
(if eq_site_dec s0 s1 then  (st c0 s0 + 1)%Z else  st c0 s0).