Remark eqm_mul_2p32:
  forall x y, Int.eqm x y -> eqm (x * two_p 32) (y * two_p 32).

Lemma decompose_shru_2: forall xh xl y, Int.zwordsize <= Int.unsigned y < zwordsize -> shru' (ofwords xh xl) y = ofwords Int.zero (Int.shru xh (Int.sub y Int.iwordsize)).