AlphaGitHub
Source/Packages

Compiler.DependentCore

packages/compiler/src/Compiler/DependentCore.alpha

12,943 lines498 declarations489.0 KiBSHA-256 ef207b0de796
Download exact fileView at revisionf5034773ad4bb52133

def · lines 5263–5276

coreWorkChoose

Full file
5263def coreWorkChoose =
5264  (lambda unrestricted condition : Nat .
5265    (lambda unrestricted selected : (pi unrestricted force : Nat . (family CoreWorkResult)) .
5266      (lambda unrestricted fallback : (pi unrestricted force : Nat . (family CoreWorkResult)) .
5267        (app
5268          (nat-eliminate
5269            (lambda unrestricted value : Nat .
5270              (pi unrestricted force : Nat . (family CoreWorkResult)))
5271            fallback
5272            (lambda unrestricted predecessor : Nat .
5273              (lambda unrestricted induction : (pi unrestricted force : Nat . (family CoreWorkResult)) .
5274                selected))
5275            condition)
5276          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.