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

Lemma rcop1_trans_diff_site :
forall s3 s4 : Site,
(In_queue Message copy (bm c0 s3 s4) -> s3 <> s4) ->
In_queue Message copy (bm (rec_copy1_trans c0 s1 s2) s3 s4) -> s3 <> s4.