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.

(* Specifications: *)
Lemma init_le_dt_time : forall s0 : Site, dt config_init s0 <= time config_init.
Lemma init_copy_diff_site : forall s1 s2 : Site, In_queue Message copy (bm config_init s1 s2) -> s1 <> s2.
Lemma st_rt_init : forall s0 : Site, (st config_init s0 > 0)%Z -> rt config_init s0 = true.