AlphaGitHub
Source/Packages

Std.Numeric.Profile

packages/foundation/standard/src/Std/Numeric/Profile.alpha

736 lines139 declarations26.5 KiBSHA-256 2450517e3794
Download exact fileView at revisionbcc11a4e7647d31628

def · lines 441–450

stdAdmissionWhen

Full file
441def stdAdmissionWhen =
442  (lambda unrestricted flag : Nat .
443    (lambda unrestricted whenTrue : (family StdNumericAdmission) .
444      (lambda unrestricted whenFalse : (family StdNumericAdmission) .
445        (nat-eliminate
446          (lambda unrestricted current : Nat . (family StdNumericAdmission))
447          whenFalse
448          (lambda unrestricted predecessor : Nat .
449            (lambda unrestricted induction : (family StdNumericAdmission) . whenTrue))
450          flag))))

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.