Module HMAC_is_PRF (HF:HP.HASH_FUNCTION) (EQ: EQUIV_Inst HF) (PARS:HMAC_is_PRF_Parameters HF EQ).
Definition isPRF {D R Key:Set} (RndKey:Comp Key) (RndR: Comp R) (f: Key -> D -> R)
(ED:EqDec D) (ER:EqDec R) advantage adversary :=
PRF_Advantage RndKey RndR f _ _ adversary <= advantage.

(* Parameter P : Blist -> Prop. Parameter HP: forall m, P m -> NPeano.divide 8 (length m).  Parameter splitAndPad_1to1: forall b1 b2 (B:EQ.splitAndPad_v b1 = EQ.splitAndPad_v b2) (L1: NPeano.divide 8 (length b1)) (L2: NPeano.divide 8 (length b2)), b1 = b2. *)
Lemma wrappedSAP_1_1_local (msg1 msg2 : HMAC_Abstract.Message PARS.P):
HMAC_Abstract.wrappedSAP _ _ EQ.splitAndPad_v msg1 = HMAC_Abstract.wrappedSAP _ _ EQ.splitAndPad_v msg2 -> msg1 = msg2.