Qed.
Definition ipad_v: Bvector EQ.b := of_list_length _ IL.
Definition opad_v : Bvector EQ.b := of_list_length _ OL.

(* Specifications: *)
Lemma OPADX:bytes_bits_lists (Vector.to_list opad_v) (PAD.HM.sixtyfour opd).
apply bytes_bits_comp_ind.