Hint Resolve Zland_in_range.

(* Specifications: *)
Lemma and_mone':
forall x, Int.and x (Int.repr (-1)) = x.
Lemma Sigma_1_eq: forall f_,
Sigma_1 f_ =
(Int.xor
(Int.xor
(Int.or (Int.shl f_ (Int.repr 26))
(Int.shru (Int.and f_ (Int.repr (-1)))
(Int.sub (Int.repr 32) (Int.repr 26))))
(Int.or (Int.shl f_ (Int.repr 21))
(Int.shru (Int.and f_ (Int.repr (-1)))
(Int.sub (Int.repr 32) (Int.repr 21)))))
(Int.or (Int.shl f_ (Int.repr 7))
(Int.shru (Int.and f_ (Int.repr (-1)))
(Int.sub (Int.repr 32) (Int.repr 7))))).
Lemma  Sigma_0_eq: forall b_,
Sigma_0 b_ =
(Int.xor
(Int.xor
(Int.or (Int.shl b_ (Int.repr 30))
(Int.shru (Int.and b_ (Int.repr (-1)))
(Int.sub (Int.repr 32) (Int.repr 30))))
(Int.or (Int.shl b_ (Int.repr 19))
(Int.shru (Int.and b_ (Int.repr (-1)))
(Int.sub (Int.repr 32) (Int.repr 19)))))
(Int.or (Int.shl b_ (Int.repr 10))
(Int.shru (Int.and b_ (Int.repr (-1)))
(Int.sub (Int.repr 32) (Int.repr 10))))).
Lemma Ch_eq: forall f_ g_ h_,
Ch f_ g_ h_ =
(Int.xor (Int.and f_ g_) (Int.and (Int.not f_) h_)).
Lemma Maj_eq:
forall b c d,
Maj b c d =
(Int.xor (Int.xor (Int.and b c) (Int.and b d)) (Int.and c d)).
Lemma sigma_1_eq:
forall s, sigma_1 s =
Int.xor
(Int.xor
(Int.or (Int.shl s (Int.repr 15))
(Int.shru s (Int.sub (Int.repr 32) (Int.repr 15))))
(Int.or (Int.shl s (Int.repr 13))
(Int.shru s (Int.sub (Int.repr 32) (Int.repr 13)))))
(Int.shru s (Int.repr 10)).
Lemma sigma_0_eq:
forall s, sigma_0 s =
Int.xor
(Int.xor
(Int.or (Int.shl s (Int.repr 25))
(Int.shru s (Int.sub (Int.repr 32) (Int.repr 25))))
(Int.or (Int.shl s (Int.repr 14))
(Int.shru s (Int.sub (Int.repr 32) (Int.repr 14)))))
(Int.shru s (Int.repr 3)).
Lemma and_mod_15_lem:
forall (n: Z),
(0 <= Int.signed (Int.and (Int.repr n) (Int.repr 15)) < 16)%Z.