fact: Definition Y : OracleComp (list (Bvector (HMAC_spec.b c p))) (Bvector c) (list (Bvector (HMAC_spec.b c p)) * list (Bvector (HMAC_spec.b c p))) := [x, _] <--$2 OC_Run _ _ _ Z (fun _ d => r <--$ OC_Query _ d; $ ret ((app_fpad fpad r), tt)) tt; $ ret x.
imports: FCF HMAC_spec PRF NMAC_to_HMAC hF GHMAC_PRF