def done_ok

bend-collections-laws-crypto@1.0.0.0 · proofs/crypto/kdf/proof.bend:60

import Base
import bend-collections-laws-crypto@1.0.0.0/src/crypto/kdf.bend as KDF

60# From expand's result: the length fits, and the value is the block stream.
61def done_ok(+prk: List<&2, U32>, +info: List<&2, U32>, +len: Nat, +out: List<&2, U32>, +b: Bool, +eb: {Nat.is_le(len, 8160n) == b : Bool}, +h: {KDF.expand_if(prk, info, len, b) == Done{out} : Result<&2, &2, KDF.KdfError, List<&2, U32>>}) -> {Nat.is_le(len, 8160n) == True{} : Bool}:
62  match b:
63    case True{}:
64      eb
65    case False{}:
66      Empty.absurd({Nat.is_le(len, 8160n) == True{} : Bool}, fail_done(KDF.LengthTooLarge{}, out, h))