fact: Definition A_GHMAC : OracleComp (list (Bvector b)) (Bvector c) bool := [b, _] <--$2 OC_Run _ _ _ A (fun _ q => ls <- splitAndPad q; r <--$ OC_Query _ ls; $ ret (r, tt)) tt; $ ret b.
imports: FCF HMAC_spec PRF NMAC_to_HMAC hF GHMAC_PRF