Require Export VST.veric.environ_lemmas.
Ltac unfold_tc_denote :=
unfold denote_tc_nonzero in *;
unfold isptr in *;
unfold denote_tc_igt in *;
unfold denote_tc_Zle in *;
unfold denote_tc_Zge in *;
unfold denote_tc_samebase in *;
unfold denote_tc_nodivover in *;
unfold denote_tc_initialized in *.
Definition unOp_result_type op t :=
match op with
| Cop.Onotbool =>match t with
| Tint _ _ _ => Tint IBool Signed noattr
| Tlong _ _ => Tint IBool Signed noattr
| Tpointer _ _ => Tint I32 Signed noattr
| Tfloat _ _ => Tint IBool Signed noattr
| Tarray _ _ _ => Tint IBool Signed noattr
| Tfunction _ _ _ => Tint IBool Signed noattr
| _ => Tvoid
end
| Cop.Onotint => match t with
| Tint _ _ _ => Tint I32 Signed noattr
| Tlong _ _ => Tlong Signed noattr
| _ => Tvoid
end
| Cop.Oneg => match t with
| Tint _ _ _ => Tint I32 Signed noattr
| Tlong _ _ => Tlong Signed noattr
| Tfloat _ _ => t
| _ => Tvoid
end
| Cop.Oabsfloat => t
end.

Lemma typecheck_temp_sound:
forall {CS: compspecs} Delta rho m i t,
typecheck_environ Delta rho ->
denote_tc_assert (typecheck_expr Delta (Etempvar i t)) rho m ->
tc_val (typeof (Etempvar i t)) (eval_expr (Etempvar i t) rho).