Remark false_reset_rec_table :
 forall (r0 : Rec_table) (s0 : Site), Reset_rec_table r0 s0 s0 = false.

Lemma no_reset_rec_table : forall (r0 : Rec_table) (s0 s1 : Site), s0 <> s1 -> Int (Reset_rec_table r0 s0 s1) = Int (r0 s1).