AlphaGitHub
Source/Packages

Observe.Value

packages/observability/src/Observe/Value.alpha

564 lines114 declarations29.3 KiBSHA-256 09f8c02938ee
Download exact fileView at revision426597bda5753d86c4

def · lines 123–129

aosCanonicalUnsigned

Full file
AOS-JSON-004: `0`, or a nonzero digit then digits; at most 4096 digits
123def aosCanonicalUnsigned =
124  (lambda unrestricted input : Bytes .
125    (naturalAnd (naturalNonzero (bytes-length input))
126      (naturalAnd (naturalLessOrEqual (bytes-length input) 4096)
127        (naturalAnd (aosAllBytes aosIsDigitByte input)
128          (naturalOr (naturalEqual (bytes-length input) 1)
129            (naturalIsZero (byte-equal (bytes-head input) (byte 48))))))))

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.