def expand_key_matches

qasim-bend-kit@0.1.0.2 · proof/AES_TraceBridgeProof.bend:17

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

17def expand_key_matches(+fuel: Nat, +key: List<&2, U32>,
18    +initial_words: List<&2, U32>, +expected: List<&2, U32>,
19    +initial_match: {Core.aes_words(key) == initial_words : List<&2, U32>},
20    +expanded_match: {Core.aes_expand.go(fuel, 8, 1, initial_words) == expected : List<&2, U32>}) ->
21    {Core.aes_expand_key(fuel, key) == expected : List<&2, U32>}:
22    match key:
23        case Nil{}: expand_input_matches(fuel, key, initial_words, expected, initial_match, expanded_match)
24        case head <> tail: expand_input_matches(fuel, key, initial_words, expected, initial_match, expanded_match)