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 st_rt_init : forall s0 : Site, (st config_init s0 > 0)%Z -> rt config_init s0 = true.