Hint Resolve make_cast_int_correct make_cast_float_correct: cshm.

(* Specifications: *)
Lemma make_cast_correct:
forall e le m a b v ty1 ty2 v',
make_cast ty1 ty2 a = OK b ->
eval_expr ge e le m a v ->
sem_cast v ty1 ty2 = Some v' ->
eval_expr ge e le m b v'.