Local Open Scope pred.

Lemma tc_val_sem_cast':
forall {cs: compspecs} t2 e2 rho Delta,
@typecheck_environ Delta rho ->
@denote_tc_assert cs (@typecheck_expr cs Delta e2) rho
&&  @denote_tc_assert cs (@isCastResultType cs (typeof e2) t2  e2) rho
|-- !! @tc_val t2 (force_val (sem_cast (typeof e2) t2 (eval_expr e2 rho))).