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 1411–1421

chooseDecimalDigit

Full file
1411def chooseDecimalDigit =
1412  (lambda unrestricted matched : Nat .
1413    (lambda unrestricted digitValue : Nat .
1414      (lambda unrestricted fallback : (family DecimalDigitResult) .
1415        (nat-eliminate
1416          (lambda unrestricted value : Nat . (family DecimalDigitResult))
1417          fallback
1418          (lambda unrestricted predecessor : Nat .
1419            (lambda unrestricted induction : (family DecimalDigitResult) .
1420              (constructor DecimalDigitResult DecimalDigitMatched digitValue)))
1421          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.