Local Open Scope Z.
Local Open Scope logic.
Definition Body_final_if1 :=
(Ssequence
(Scall None
(Evar _memset (Tfunction
(Tcons (tptr tvoid)
(Tcons tint (Tcons tuint Tnil)))
(tptr tvoid) cc_default))
((Ebinop Oadd (Etempvar _p (tptr tuchar)) (Etempvar _n tuint)
(tptr tuchar)) :: (Econst_int (Int.repr 0) tint) ::
(Ebinop Osub
(Ebinop Omul (Econst_int (Int.repr 16) tint)
(Econst_int (Int.repr 4) tint) tint) (Etempvar _n tuint)
tuint) :: nil))
(Ssequence
(Sset _n (Econst_int (Int.repr 0) tint))
(Scall None
(Evar _sha256_block_data_order (Tfunction
(Tcons
(tptr t_struct_SHA256state_st)
(Tcons (tptr tvoid)
Tnil)) tvoid cc_default))
((Etempvar _c (tptr t_struct_SHA256state_st)) ::
(Etempvar _p (tptr tuchar)) :: nil)))).

Lemma Byte_repr_128:  Vubyte (Byte.repr 128) = Vint (Int.repr 128).