Ltac comput val :=
  let x := fresh in set val as x in *; vm_compute in x; subst x.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 var_info_translated: forall b v, Genv.find_var_info ge b = Some v -> exists tv, Genv.find_var_info tge b = Some tv /\ transf_globvar transl_globvar v = OK tv.