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 *)

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))}.