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.

Lemma eval_binop_relate: forall {CS: compspecs} Delta (ge: genv) te ve rho b e1 e2 t m (Hcenv: genv_cenv ge = @cenv_cs CS), rho = construct_rho (filter_genv ge) ve te -> typecheck_environ Delta rho -> ((denote_tc_assert (typecheck_expr Delta e1) rho) (m_phi m) -> Clight.eval_expr ge ve te (m_dry m) e1 (eval_expr e1 rho)) -> ((denote_tc_assert (typecheck_expr Delta e2) rho) (m_phi m) -> Clight.eval_expr ge ve te (m_dry m) e2 (eval_expr e2 rho)) -> (denote_tc_assert (typecheck_expr Delta (Ebinop b e1 e2 t)) rho) (m_phi m) -> Clight.eval_expr ge ve te (m_dry m) (Ebinop b e1 e2 t) (eval_expr (Ebinop b e1 e2 t) rho).