End ST_EFFECT.
Section RT_EFFECT.

(* Specifications: *)
Lemma true_set_rec_table :
forall (r0 : Rec_table) (s0 : Site), Set_rec_table r0 s0 s0 = true.
Lemma S_set_rec_table :
forall (r0 : Rec_table) (s0 : Site),
r0 s0 = false -> Int (Set_rec_table r0 s0 s0) = (Int (r0 s0) + 1)%Z.
Lemma inch_set_rec_table :
forall (r0 : Rec_table) (s0 s1 : Site),
s0 <> s1 -> Set_rec_table r0 s0 s1 = r0 s1.
Lemma no_set_rec_table :
forall (r0 : Rec_table) (s0 s1 : Site),
s0 <> s1 -> Int (Set_rec_table r0 s0 s1) = Int (r0 s1).