End DT_EFFECT.
Section ST_EFFECT.

(* Specifications: *)
Lemma S_inc_send_table :
forall (t0 : Send_table) (s0 : Site),
Inc_send_table t0 s0 s0 = (t0 s0 + 1)%Z.
Lemma no_inc_send_table :
forall (t0 : Send_table) (s0 s1 : Site),
s0 <> s1 -> Inc_send_table t0 s0 s1 = t0 s1.
Lemma pred_dec_send_table :
forall (t0 : Send_table) (s0 : Site),
Dec_send_table t0 s0 s0 = (t0 s0 - 1)%Z.
Lemma no_dec_send_table :
forall (t0 : Send_table) (s0 s1 : Site),
s0 <> s1 -> Dec_send_table t0 s0 s1 = t0 s1.