Local Open Scope Z.
Local Open Scope logic.
(* Lemma overridePost_derives: forall D F F' G G' ek vl, D && F |-- F'  -> D && G ek vl |-- G' ek vl -> D && overridePost F G ek vl |-- overridePost F' G' ek vl.  Lemma function_body_ret_assert_derives: forall F F' sf t ek vl, F |-- F' -> frame_ret_assert (function_body_ret_assert t F) sf ek vl |-- frame_ret_assert (function_body_ret_assert t F') sf ek vl. *)

Lemma body_SHA256_Update: semax_body Vprog Gtot f_SHA256_Update SHA256_Update_spec.