Local Open Scope pred.
Local Open Scope nat_scope.
Section extensions.
Context {CS: compspecs} {Espec : OracleKind}.

Lemma tc_test_eq1:
forall b i v m,
(denote_tc_test_eq (Vptr b i) v) (m_phi m) ->
Mem.weak_valid_pointer (m_dry m) b (Ptrofs.unsigned i) = true.