Require Export VST.veric.environ_lemmas.
Require Export VST.veric.expr_lemmas3.
(** Main soundness result for the typechecker **)
Ltac unfold_cop2_sem_cmp :=
unfold Clight_Cop2.sem_cmp, Clight_Cop2.sem_cmp_pl, Clight_Cop2.sem_cmp_lp, Clight_Cop2.sem_cmp_pp.
(*        (Hcenv: genv_cenv ge = @cenv_cs CS)*)
Definition some_pt_type := Tpointer Tvoid noattr.
Opaque tc_andp.
(** Equivalence of CompCert eval_expr and our function eval_expr on programs that typecheck **)

Lemma tc_test_eq0:
forall b i m,
(denote_tc_test_eq (Vptr b i) (Vint Int.zero)) (m_phi m) ->
Mem.weak_valid_pointer (m_dry m) b (Ptrofs.unsigned i) = true.