Remark rcop2_trans_parent :
 forall s3 s4 : Site, parent (rec_copy2_trans c0 s2) s4 s3 -> parent c0 s4 s3.

(* Specifications: *)
Lemma rcop2_trans_parent_cr : forall s3 s4 : Site, (parent c0 s3 s4 -> dt c0 s3 < dt c0 s4) -> parent (rec_copy2_trans c0 s2) s3 s4 -> dt (rec_copy2_trans c0 s2) s3 < dt (rec_copy2_trans c0 s2) s4.