(* THIS FILE CONTAINS Lemmas that DO NOT depend on CompCert or Verifiable C, and that are used in the proof of the C program but are not used in the proof of functional_prog.v. *)
Require Export sha.common_lemmas.
Require Psatz.
Global Opaque CBLOCKz LBLOCKz.
Hint Rewrite Zlength_intlist_to_bytelist : sublist.
Hint Rewrite Zlength_intlist_to_bytelist : Zlength.

Lemma big_endian_integer4:
forall c0 c1 c2 c3,
big_endian_integer (c0::c1::c2::c3::nil) =
Int.or (Int.shl (Int.repr (Byte.unsigned c0)) (Int.repr 24))
(Int.or (Int.shl (Int.repr (Byte.unsigned c1)) (Int.repr 16))
(Int.or (Int.shl (Int.repr (Byte.unsigned c2)) (Int.repr 8))
(Int.repr (Byte.unsigned c3)))).