Definition sha_splitandpad_blocks (msg : Blist) : list Blist :=
  toBlocks (sha_splitandpad_inc msg).

Theorem HMAC_list_concat_explicit : forall (k m : Blist) (op ip : Blist), length k = b -> length op = b -> length ip = b -> HMAC_List.HMAC c p sha_h sha_iv sha_splitandpad_blocks fpad op ip k m = (* Note use of sha_splitandpad_blocks and sha_splitandpad_inc' (= concat the blocks) *) HMAC_Concat.HMAC c p B sha_h sha_iv sha_splitandpad_inc fpad op ip k m.