AlphaGitHub
Source/Packages

Data.JSON

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

2,617 lines251 declarations113.9 KiBSHA-256 bd63da5ed186
Download exact fileView at revision426597bda5753d86c4

def · lines 1861–1869

jsonBoundAllows

Full file
1 when the bound allows the value
1861def jsonBoundAllows =
1862  (lambda unrestricted bound : (family JSONBound) .
1863    (lambda unrestricted value : Nat .
1864      (eliminate
1865        JSONBound
1866        (lambda unrestricted current : (family JSONBound) . Nat)
1867        bound
1868        (branch JSONBoundAtMost limit . (jsonNaturalLessThanOrEqual value limit))
1869        (branch JSONBoundBelowTwoPower bits . (naturalBelowTwoPower bits value)))))

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.