Remark no_ancestor_s2 : forall s : Site, ~ ancestor c0 s2 s.Remark rcop3_trans_parent :
 forall s3 s4 : Site,
 s1 <> s4 \/ s2 <> s3 ->
 parent (rec_copy3_trans c0 s1 s2) s4 s3 -> parent c0 s4 s3.Remark rcop3_trans_no_parent :
 forall s3 s4 : Site,
 s1 <> s4 \/ s2 <> s3 ->
 ~ parent c0 s4 s3 -> ~ parent (rec_copy3_trans c0 s1 s2) s4 s3.

Lemma rcop3_trans_parent_cr : forall s3 s4 : Site, (parent c0 s3 s4 -> dt c0 s3 < dt c0 s4) -> parent (rec_copy3_trans c0 s1 s2) s3 s4 -> dt (rec_copy3_trans c0 s1 s2) s3 < dt (rec_copy3_trans c0 s1 s2) s4.