LAWS.md4_length: law of bend-osdev-hashes@0.1.0.0
Import: import bend-osdev-hashes@0.1.0.0/LAWS.bend as LAWS
Lines 53-56 of bend-osdev-hashes@0.1.0.0/LAWS.bend: https://jend.leeeet.dev/read.txt?path=bend-osdev-hashes@0.1.0.0/LAWS.bend&start_line=53&end_line=56

import Base
import bend-osdev-bytes@0.1.0.0/bytes.bend as B
import bend-osdev-hashes@0.1.0.0/hashes.bend as Hs
import bend-osdev-hashes@0.1.0.0/md4.bend as M4

# MD4 (RFC 1320): the digest of every state has 16 bytes
law md4_length:
  for +s: Hs.HsMdState<Hs.HsW4>
  {B.Octets.len(M4.HsMd4.final(s)) == 16n : Nat}

Uses (13):
  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.1/bytes.bend&name=Octets.len
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-hashes@0.1.0.0/PROOF.bend&name=w4le_len
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-hashes@0.1.0.0/hashes.bend&name=HsMd.bits
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-hashes@0.1.0.0/hashes.bend&name=HsMd.count
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-hashes@0.1.0.0/hashes.bend&name=HsMd.cv
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-hashes@0.1.0.0/hashes.bend&name=HsMd.md_pad
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-hashes@0.1.0.0/hashes.bend&name=HsMdState
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-hashes@0.1.0.0/hashes.bend&name=HsW4
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-hashes@0.1.0.0/hashes.bend&name=hs.len.le
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-hashes@0.1.0.0/hashes.bend&name=hs.md.feed
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-hashes@0.1.0.0/md4.bend&name=HsMd4.compress
  https://jend.leeeet.dev/definition.txt?path=bend-osdev-hashes@0.1.0.0/md4.bend&name=HsMd4.final