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.