AlphaGitHub
Source/Packages

Data.SHA256Padding

packages/foundation/standard/src/Data/SHA256Padding.alpha

480 lines68 declarations20.3 KiBSHA-256 aa838c76d642
Download exact fileView at revisionf5034773ad4bb52133

def · lines 101–118

sha256Word64ModuloBlockBytes

Full file
101def sha256Word64ModuloBlockBytes =
102  (lambda unrestricted value : (family ModelWord64) .
103    (eliminate
104      ModelWord64
105      (lambda unrestricted current : (family ModelWord64) . Nat)
106      value
107      (branch
108        ModelWord64Value
109        b0
110        b1
111        b2
112        b3
113        b4
114        b5
115        b6
116        b7
117        .
118        (naturalModuloUnchecked (byte-to-nat b0) 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.