intros.
destruct e; auto. simpl.
repeat
match goal with
| [ |- context [match ?e with _ => _ end] ] => destruct e; auto
end.
admit.
Admitted.
(* Qed. (* :( *) *)

(* Specifications: *)
Lemma SIMPL_SET_sound : rtac_sound SIMPL_SET.
Lemma FORWARD_SET_sound: forall Delta Pre s, rtac_sound (FORWARD_SET tbl Delta Pre s).
Lemma FORWARD_LOAD_sound: forall Struct_env Delta Pre s, rtac_sound (FORWARD_LOAD tbl Struct_env Delta Pre s).
Lemma FORWARD_STORE_sound: forall Struct_env Delta Pre s, rtac_sound (FORWARD_STORE tbl Struct_env Delta Pre s).
Lemma SYMEXE_STEP_sound: forall Struct_env, rtac_sound (SYMEXE_STEP tbl Struct_env).
Theorem SYMEXE_sound : rtac_sound (SYMEXE_TAC_n n tbl).
End tbled.