proposition: Lemma del_trans_st_rt : forall s1 : Site, st c0 s1 = 0%Z -> rt c0 s1 = true -> ((st c0 s0 > 0)%Z -> rt c0 s0 = true) -> (st (delete_trans c0 s1) s0 > 0)%Z -> rt (delete_trans c0 s1) s0 = true.
proof: Proof. simpl in |- *; intros; auto. case (eq_site_dec s0 s1); intro. rewrite e in H2; absurd (st c0 s1 = 0%Z); omega. rewrite inch_reset_rec_table; auto. Qed.
imports: init table_act mess_act