Opaque tc_andp.
(** Equivalence of CompCert eval_expr and our function eval_expr on programs that typecheck **)

(* Specifications: *)
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.
Lemma cop2_sem_cast :
forall t1 t2 v m,
(classify_cast t1 t2 = classify_cast size_t tbool ->
denote_tc_test_eq v (Vint Int.zero) (m_phi m) )->
t1 <> int_or_ptr_type ->
t2 <> int_or_ptr_type ->
tc_val t1 v ->
Cop.sem_cast v t1 t2 (m_dry m) = sem_cast t1 t2 v.