End REC_DEC_ALT.
Section REC_DEC_RELAT.
(* relation parent *)
Variable c0 : Config.
Variable s1 s2 : Site.
Remark rdec_trans_parent :
forall s3 s4 : Site,
parent (rec_dec_trans c0 s1 s2) s4 s3 -> parent c0 s4 s3.

(* Specifications: *)
Lemma rdec_trans_parent_cr :
forall s3 s4 : Site,
(parent c0 s3 s4 -> dt c0 s3 < dt c0 s4) ->
parent (rec_dec_trans c0 s1 s2) s3 s4 ->
dt (rec_dec_trans c0 s1 s2) s3 < dt (rec_dec_trans c0 s1 s2) s4.