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 **)
Ltac destruct_eqb_type :=
match goal with H: context [eqb_type ?t1 ?t2] |- _ =>
let J := fresh "J" in
destruct (eqb_type t1 t2) eqn:?J;
[apply eqb_type_true in J | apply eqb_type_false in J]
end.

Lemma classify_cast_eq:
forall t1 t2,
t1 <> int_or_ptr_type ->
t2 <> int_or_ptr_type ->
classify_cast t1 t2 = Cop.classify_cast t1 t2.