Definition root_parent :=
  root Site (dt c0) (parent c0) (parent_dec c0)
    (fun s1 s2 : Site => parent_cr c0 s1 s2 Hlegal).

Lemma root_no_in_queue_inc : forall y : Site, ~ In_queue Message (inc_dec y) (bm c0 (root_parent s0) owner).