Definition rec_copy1_trans (c : Config) (s1 s2 : Site) :=
  mkconfig (S (time c)) (dt c) (st c) (rt c)
    (Post_message dec (Collect_message (bm c) s1 s2) s2 s1).

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.