Definition update_abs (incr: list byte) (a: list byte) (a': list byte) :=
    a' = a ++ incr.

(* Specifications: *)
Lemma update_abs_eq: forall msg a a', (update_abs msg a a' <-> exists blocks, s256a_hashed a' = s256a_hashed a ++ blocks /\ s256a_data a ++ msg = intlist_to_bytelist blocks ++ s256a_data a').