law modes64_ecb_blocks

bend-osdev-cipher-core@0.1.0.0 · LAWS.bend:79

import Base
import bend-osdev-cipher-core@0.1.0.0/cipher_core.bend as L
import bend-osdev-cipher-core@0.1.0.0/modes64.bend as X

79# The 64-bit modes over any cipher: decryption after encryption on blocks is
80# the structural forms' (X.m64.ecb, X.m64.cbc.enc, X.m64.cbc.dec), over
81# which a cipher's own round trip proves the mode's by induction; and on
82# bytes, for the bytes of a list of blocks under the bytes of an IV, it is
83# the block layer's
84law modes64_ecb_blocks:
85  for ~K: Data
86  for ~enc: K -> L.LcBlock64 -> L.LcBlock64
87  for ~dec: K -> L.LcBlock64 -> L.LcBlock64
88  for +k: K
89  for +bs: List<&2, L.LcBlock64>
90  {X.m64.ecb(~K, ~dec, k, X.m64.ecb(~K, ~enc, k, bs)) == X.Lc64.ecb_decrypt_blocks(~K, ~dec, k, X.Lc64.ecb_encrypt_blocks(~K, ~enc, k, bs)) : List<&2, L.LcBlock64>}