AlphaGitHub
Source/Packages

Compiler.Parser

packages/compiler/src/Compiler/Parser.alpha

5,902 lines337 declarations199.2 KiBSHA-256 6d135c41813d
Download exact fileView at revisionf5034773ad4bb52133

def · lines 2507–2517

chooseQuantityDecode

Full file
2507def chooseQuantityDecode =
2508  (lambda unrestricted matched : Nat .
2509    (lambda unrestricted quantityTag : Nat .
2510      (lambda unrestricted fallback : (family QuantityDecodeResult) .
2511        (nat-eliminate
2512          (lambda unrestricted value : Nat . (family QuantityDecodeResult))
2513          fallback
2514          (lambda unrestricted predecessor : Nat .
2515            (lambda unrestricted induction : (family QuantityDecodeResult) .
2516              (constructor QuantityDecodeResult QuantityDecoded quantityTag)))
2517          matched))))

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.