Definition time_init : nat := 0.Definition date_init : Date_table := fun _ : Site => 0.Definition send_init : Send_table := fun _ : Site => 0%Z.Definition rec_init : Rec_table := fun _ : Site => false.Definition bag_init : Bag_of_message := fun _ _ : Site => empty Message.Definition config_init : Config :=
  mkconfig time_init date_init send_init rec_init bag_init.

Lemma init_copy_diff_site : forall s1 s2 : Site, In_queue Message copy (bm config_init s1 s2) -> s1 <> s2.