(*longer proof now in HAMC_equivalence Lemma opad_ne_ipad : EQ.opad_v <> EQ.ipad_v. intros N. assert (Vector.to_list EQ.opad_v = Vector.to_list EQ.ipad_v). rewrite N; trivial. unfold EQ.opad_v, EQ.ipad_v in H. repeat rewrite of_length_proof_irrel in H. unfold HP.Opad, HP.Ipad in H. simpl in H. discriminate. Qed. *)
Module PARS256 <: HMAC_is_PRF_Parameters SHA256 EQ256.
Parameter P : Blist -> Prop.
Parameter HP: forall m, P m -> NPeano.Nat.divide 8 (length m).

Lemma IpadsEQ: PRFMod.M.ipad_v =  EQ.ipad_v.