Section ANC_RT.
(* ou l'on prouve que tout antecedent de la relation parent possede un drapeau rt actif. pour cela on montre l'implication compteur positif -> drapeau actif, puis on utilise le lemme two *)
Variable c0 : Config.
Hypothesis Hlegal : legal c0.

(* Specifications: *)
Lemma st_rt :
forall s0 : Site, s0 <> owner -> (st c0 s0 > 0)%Z -> rt c0 s0 = true.
Lemma parent_rt : forall s0 s1 : Site, parent c0 s1 s0 -> rt c0 s1 = true.
Lemma ancestor_rt : forall s1 s2 : Site, ancestor c0 s2 s1 -> rt c0 s2 = true.
End ANC_RT.