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

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').