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.