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

Lemma rdec_trans_st :
st (rec_dec_trans c0 s1 s2) s0 =
(if eq_site_dec s0 s2 then (st c0 s0 - 1)%Z else st c0 s0).