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 parent_dec :
forall (c1 : Config) (s1 : Site),
{s2 : Site | parent c1 s2 s1} + {(forall s2 : Site, ~ parent c1 s2 s1)}.