(* Note use of sha_splitandpad_blocks and sha_splitandpad_inc' (= concat the blocks) *)

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 =
HMAC_Concat.HMAC c p B sha_h sha_iv sha_splitandpad_inc fpad op ip k m.