(*Definition iv_length := sha_iv_length.*)
Definition iv_v: Bvector c := iv_v. (*of_list_length _ iv_length.*)

(* Specifications: *)
Lemma iv_eq: HMAC_spec_pad.convert ir  = Vector.to_list iv_v.
Lemma sap'_InBlocks m: InBlocks b (sap' m).
apply concat_InBlocks. apply sha_splitandpad_blocks_512. Qed.