(*Module HMAC_Pad.Declare Module HF:HP.HASH_FUNCTION.*)
Module HM:= HP.HMAC_FUN HF.

Lemma hash_block_equiv: forall (bits : Blist) (bytes : list byte) (regs : Blist) REGS, regs = bytesToBits (intlist_to_bytelist REGS) -> bits = bytesToBits bytes -> I.shah regs bits = bytesToBits (intlist_to_bytelist (I.hashblock REGS (bytelist_to_intlist bytes))).