Definition wrappedSAP_inner msg:
Forall2
  (fun bv bl => bl = Vector.to_list bv)
  (wrappedSAP msg) (splitandpad_blocks (Message2Blist msg)).

Theorem HMAC_abstract_list kv msg: HMAC_List.HMAC c p h iv splitandpad_blocks fpad (Vector.to_list opad_v) (Vector.to_list ipad_v) (Vector.to_list kv) (Message2Blist msg) = Vector.to_list (HMAC h_v iv_v wrappedSAP fpad_v opad_v ipad_v kv msg).