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 320–322

aosWhen

Full file
decode when `valid`, else reject
320def aosWhen =
321  (lambda unrestricted valid : Nat . (lambda unrestricted value : (family AosValue) .
322    (aosChoose (family AosDecoded) valid (aosDecodedAs value) aosRejected)))

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.