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 1556–1569

chooseNaturalLiteralParse

Full file
1556def chooseNaturalLiteralParse =
1557  (lambda unrestricted flag : Nat .
1558    (lambda unrestricted yes : (pi unrestricted force : Nat . (family NaturalLiteralParseResult)) .
1559      (lambda unrestricted no : (pi unrestricted force : Nat . (family NaturalLiteralParseResult)) .
1560        (app
1561          (nat-eliminate
1562            (lambda unrestricted value : Nat .
1563              (pi unrestricted force : Nat . (family NaturalLiteralParseResult)))
1564            no
1565            (lambda unrestricted predecessor : Nat .
1566              (lambda unrestricted induction : (pi unrestricted force : Nat . (family NaturalLiteralParseResult)) .
1567                yes))
1568            flag)
1569          zero))))

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.