Remark small_shift_amount_1:
forall i,
Int64.ltu i Int64.iwordsize = true ->
Int.ltu (Int64.loword i) Int64.iwordsize' = true
/\ Int64.unsigned i = Int.unsigned (Int64.loword i).
Remark small_shift_amount_2:
forall i,
Int64.ltu i (Int64.repr 32) = true ->
Int.ltu (Int64.loword i) Int.iwordsize = true.

Lemma transl_unop_correct:
forall op a tya c va v e le m,
transl_unop op a tya = OK c ->
sem_unary_operation op va tya = Some v ->
eval_expr ge e le m a va ->
eval_expr ge e le m c v.