148def sha256DecodeBlockWords =
149 (lambda unrestricted block : Bytes .
150 (nat-eliminate
151 (lambda unrestricted validLength : Nat . (family SHA256BlockDecodeResult))
152 (constructor
153 SHA256BlockDecodeResult
154 SHA256BlockDecodeFailed
155 (constructor SHA256ErrorCode SHA256BlockLengthInvalid)
156 zero)
157 (lambda unrestricted predecessor : Nat .
158 (lambda unrestricted induction : (family SHA256BlockDecodeResult) .
159 (sha256DecodeBlockWordsWithFuel sha256NaturalSixteen block zero)))
160 (naturalEqual (bytes-length block) sha256NaturalSixtyFour)))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.