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 2922–2939

reduceCoreNaturalSuccessor

Full file
2922def reduceCoreNaturalSuccessor :
2923  (pi unrestricted predecessor : (family CoreTerm) . (family CoreTerm)) =
2924  (lambda unrestricted predecessor : (family CoreTerm) .
2925    (eliminate
2926      CoreLiteralInspection
2927      (lambda unrestricted inspection : (family CoreLiteralInspection) . (family CoreTerm))
2928      (inspectCoreLiteral predecessor)
2929      (branch
2930        CoreNaturalInspected
2931        value
2932        .
2933        (constructor
2934          CoreTerm
2935          CoreNaturalLiteral
2936          (Compiler.NaturalMagnitudeArithmetic/magnitudeSuccessor value)))
2937      (branch CoreByteInspected value . (constructor CoreTerm CoreNaturalSuccessor predecessor))
2938      (branch CoreBytesInspected value . (constructor CoreTerm CoreNaturalSuccessor predecessor))
2939      (branch CoreNotLiteral . (constructor CoreTerm CoreNaturalSuccessor predecessor))))

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.