Module PAD := HMAC_Pad HF I.
Definition h_v (iv:Bvector EQ.c) (blk:Bvector EQ.b): Bvector EQ.c :=
of_list_length _
(EQ.h_length _ _ (VectorToList_length _ iv) (VectorToList_length _ blk)).

Lemma h_eq : forall (block_v : Bvector EQ.b) (block_l : Blist)
(HVL: block_l = Vector.to_list block_v)
ivA ivB (IV: ivA = Vector.to_list ivB),
EQ.h ivA block_l = Vector.to_list (h_v ivB block_v).