AlphaGitHub
Source/Packages

Compiler.NormalizationBudget

packages/compiler/src/Compiler/NormalizationBudget.alpha

775 lines53 declarations32.9 KiBSHA-256 582a37dd050a
Download exact fileView at revisionf5034773ad4bb52133

def · lines 381–393

chargeNormalizationBudgetOne

Full file
381def chargeNormalizationBudgetOne =
382  (lambda unrestricted budget : (family NormalizationBudget) .
383    (app
384      (nat-eliminate
385        (lambda unrestricted valid : Nat .
386          (pi unrestricted force : Nat . (family NormalizationChargeResult)))
387        (lambda unrestricted force : Nat .
388          (constructor NormalizationChargeResult NormalizationChargeInvalid))
389        (lambda unrestricted predecessor : Nat .
390          (lambda unrestricted ignored : (pi unrestricted force : Nat . (family NormalizationChargeResult)) .
391            (lambda unrestricted force : Nat . (chargeNormalizationBudgetOneValid budget))))
392        (normalizationBudgetValid budget))
393      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.