Definition cast_no_val_change (from: type)(to:type) : bool :=
match from, to with
| Tint _ _ _, Tint I32 _ _ => true
| Tpointer _ _, Tpointer _ _ => 
    eqb_type from to || 
    negb (eqb_type from int_or_ptr_type) && 
    negb (eqb_type to int_or_ptr_type)
| Tfloat F64 _ , Tfloat F64 _ => true
| Tfloat F32 _ , Tfloat F32 _ => true
| _, _ => false
end.

Lemma tc_val_sem_cast: forall {CS: compspecs} t2 e2 rho phi Delta, typecheck_environ Delta rho -> denote_tc_assert (typecheck_expr Delta e2) rho phi -> denote_tc_assert (isCastResultType (typeof e2) t2 e2) rho phi -> tc_val t2 (force_val (sem_cast (typeof e2) t2 (eval_expr e2 rho))).