val vale_xkey_length (a: vale_cipher_alg): Lib.IntTypes.size_nat
let vale_xkey_length =
  function
  | AES128 -> 176 + 128 // Include the hashed keys here
  | AES256 -> 240 + 128
val vale_xkey_length (a: vale_cipher_alg): Lib.IntTypes.size_nat
let vale_xkey_length =
function
| AES128 -> 176 + 128
| AES256 -> 240 + 128
Spec.Cipher.Expansion.fst.checked
Vale.Def.Words_s.fsti.checked Vale.Def.Words.Seq_s.fsti.checked Vale.Def.Types_s.fst.checked Vale.AES.OptPublic.fsti.checked Vale.AES.AES_s.fst.checked Spec.Agile.Cipher.fsti.checked prims.fst.checked Lib.IntTypes.fst.checked Lib.IntTypes.fst.checked Lib.ByteSequence.fsti.checked FStar.Seq.fst.checked FStar.Pervasives.fsti.checked
Spec.Cipher.Expansion.fst
Spec.Cipher.Expansion.vale_cipher_alg Prims.op_Addition Lib.IntTypes.size_nat
module Spec.Cipher.Expansion

open Spec.Agile.Cipher

let vale_cipher_alg = a: cipher_alg { a == AES128 \/ a == AES256 }

let vale_alg_of_cipher_alg (a: cipher_alg { a == AES128 \/ a == AES256 }) =
  match a with
  | AES128 -> Vale.AES.AES_s.AES_128
  | AES256 -> Vale.AES.AES_s.AES_256

#set-options "--max_fuel 0 --max_ifuel 0 --z3rlimit 20"

/// Length of Vale expanded keys, i.e. length of the expanded key (per NIST AES
/// specification) along with other precomputed things.
val vale_xkey_length (a: vale_cipher_alg): Lib.IntTypes.size_nat
val vale_xkey_length (a: vale_cipher_alg): Lib.IntTypes.size_nat
a: Spec.Cipher.Expansion.vale_cipher_alg -> Lib.IntTypes.size_nat