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 251–264

chargeNormalizationBudgetGeneral

Full file
251def chargeNormalizationBudgetGeneral =
252  (lambda unrestricted amount : (family ModelWord32) .
253    (lambda unrestricted budget : (family NormalizationBudget) .
254      (app
255        (nat-eliminate
256          (lambda unrestricted valid : Nat .
257            (pi unrestricted force : Nat . (family NormalizationChargeResult)))
258          (lambda unrestricted force : Nat .
259            (constructor NormalizationChargeResult NormalizationChargeInvalid))
260          (lambda unrestricted predecessor : Nat .
261            (lambda unrestricted induction : (pi unrestricted force : Nat . (family NormalizationChargeResult)) .
262              (lambda unrestricted force : Nat . (chargeValidNormalizationBudget amount budget))))
263          (normalizationBudgetValid budget))
264        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.