rewrite functional_prog.SHA_256'_eq; reflexivity.
Qed.

(* Specifications: *)
Lemma FOLD_HB_eq: forall l ls, length l = (c + p)%nat ->
Forall (fun x => length x = (c + p)%nat) ls ->
fold_left h (l :: ls) (Vector.to_list iv_v) =
hash_blocks_bits (HMAC_spec_concat.HMAC_Concat.b c p) B h
(Vector.to_list iv_v) (l ++ concat ls).
Lemma length_splitandpad_inner m:
Forall2
(fun (bv : Vector.t bool b) (bl : list bool) => bl = Vector.to_list bv)
(splitAndPad_v m) (splitandpad_blocks m).