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)).
Definition ipd := Byte.repr 54.
Definition opd :=Byte.repr 92.
Definition IPAD:=bytesToBits (PAD.HM.sixtyfour ipd).
Definition OPAD:=bytesToBits (PAD.HM.sixtyfour opd).
unfold IPAD. rewrite bytesToBits_len, PAD.HM.length_SF, <- EQ.BS; trivial.
Qed.

Lemma OL: length OPAD = EQ.b.