Remark eq_same_bits:
forall i x y, x = y -> Int.testbit x i = Int.testbit y i.

Lemma iagree_shr:
forall x y m n,
iagree x y (Int.or (Int.shl m n) (Int.repr Int.min_signed)) ->
iagree (Int.shr x n) (Int.shr y n) m.