LAWS.xcbc_accepts: law of bend-osdev-crypto@0.1.0.0
Import: import bend-osdev-crypto@0.1.0.0/LAWS.bend as LAWS
Lines 195-205 of bend-osdev-crypto@0.1.0.0/LAWS.bend: https://jend.leeeet.dev/read.txt?path=bend-osdev-crypto@0.1.0.0/LAWS.bend&start_line=195&end_line=205

import Base
import bend-osdev-bytes@0.1.0.0/bytes.bend as B
import bend-osdev-crypto@0.1.0.0/xcbc.bend as Xc

# XCBC-MAC over every block cipher (xcbc.bend) accepts what it computes
law xcbc_accepts:
  for ~K: Data
  for ~Blk: Data
  for ~bsize: Nat
  for ~enc: K -> Blk -> Blk
  for ~blk_of: B.Octets -> Maybe<&2, Blk>
  for ~blk_to: Blk -> B.Octets
  for +kk: Xc.CrXcbcKey<K>
  for +m: B.Octets
  {Xc.CrXcbc.verify(~K, ~Blk, ~bsize, ~enc, ~blk_of, ~blk_to, kk, m, Xc.CrXcbc.mac(~K, ~Blk, ~bsize, ~enc, ~blk_of, ~blk_to, kk, m)) == True{} : Bool}

Uses (8):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Bool
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Maybe
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-bytes@0.1.1.0/bytes.bend&name=Octets
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-crypto@0.1.0.0/LAWS.bend&name=mac_verify_tag_accepts
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-crypto@0.1.0.0/xcbc.bend&name=CrXcbc.mac
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-crypto@0.1.0.0/xcbc.bend&name=CrXcbc.verify
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-crypto@0.1.0.0/xcbc.bend&name=CrXcbcKey