Remark int64_shru'_div_two_p:
  forall x y, Int64.shru' x y = Int64.repr (Int64.unsigned x / two_p (Int.unsigned y)).

Lemma eval_divs_mul: forall le x y p M, divs_mul_params (Int.signed y) = Some(p, M) -> nth_error le O = Some (Vint x) -> eval_expr ge sp e m le (divs_mul p M) (Vint (Int.divs x y)).