proposition: Lemma rcop3_trans_st_rt : ((st c0 s0 > 0)%Z -> rt c0 s0 = true) -> (st (rec_copy3_trans c0 s1 s2) s0 > 0)%Z -> rt (rec_copy3_trans c0 s1 s2) s0 = true.
proof: Proof. simpl in |- *; intros; auto. case (eq_site_dec s0 s2); intro. rewrite e; apply true_set_rec_table. rewrite inch_set_rec_table; auto. Qed.
imports: init table_act mess_act