Section PARENT_CRESH.
(* ou l'on verifie que la relation parent est decidable, puis qu'elle est croissante avec l'estampille et de ce fait bien fondee *)

(* Specifications: *)
Lemma in_queue_parent_dec :
forall (c1 : Config) (s1 : Site),
{s2 : Site | In_queue Message (inc_dec s2) (bm c1 s1 owner)} +
{(forall s2 : Site, ~ In_queue Message (inc_dec s2) (bm c1 s1 owner))}.
Lemma parent_dec :
forall (c1 : Config) (s1 : Site),
{s2 : Site | parent c1 s2 s1} + {(forall s2 : Site, ~ parent c1 s2 s1)}.
Lemma parent_cr :
forall (c0 : Config) (s1 s2 : Site),
legal c0 -> parent c0 s1 s2 -> dt c0 s1 < dt c0 s2.
Lemma wf_parent : forall c0 : Config, legal c0 -> well_founded (parent c0).
End PARENT_CRESH.