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

Lemma pred_reset_rec_table : forall (r0 : Rec_table) (s0 : Site), r0 s0 = true -> Int (Reset_rec_table r0 s0 s0) = (Int (r0 s0) - 1)%Z.