AESZipLengthProof.encrypt_block_length: def of qasim-bend-kit@0.1.0.2
Import: import qasim-bend-kit@0.1.0.2/proof/AES_ZipLengthProof.bend as AESZipLengthProof
Lines 47-52 of qasim-bend-kit@0.1.0.2/proof/AES_ZipLengthProof.bend: https://jend.leeeet.dev/read.txt?path=qasim-bend-kit@0.1.0.2/proof/AES_ZipLengthProof.bend&start_line=47&end_line=52

import Base
import qasim-bend-kit@0.1.0.2/libs/AES256GCMCore.bend as Core

def encrypt_block_length(+words: List<&2, U32>, +counter: List<&2, U32>) ->
    {List.length(&2, U32, Core.aes256_encrypt_expanded(words, counter)) ==
     16n : Nat}:
    match words:
        case Nil{}: {==}
        case head <> tail: {==}

Uses (5):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=List
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=List.length
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=qasim-bend-kit@0.1.0.2/libs/AES256GCMCore.bend&name=aes256_encrypt_expanded