AlphaGitHub
Source/Packages

Data.JSONAccess

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

1,210 lines73 declarations39.2 KiBSHA-256 1e44e4cc014b
Download exact fileView at revision426597bda5753d86c4

def · lines 1153–1162

jsonWord64DigitsFit

Full file
1153def jsonWord64DigitsFit =
1154  (lambda unrestricted digits : Bytes .
1155    (naturalOr (naturalLess (bytes-length digits) 20)
1156      (naturalAnd (naturalEqual (bytes-length digits) 20)
1157        (eliminate DataBytesOrdering
1158          (lambda unrestricted current : (family DataBytesOrdering) . Nat)
1159          (dataBytesCompare digits jsonWord64MaximumDigits)
1160          (branch DataBytesLess . 1)
1161          (branch DataBytesEqual . 1)
1162          (branch DataBytesGreater . 0)))))

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.