AlphaGitHub
Source/Packages

Compiler.Elaborator

packages/compiler/src/Compiler/Elaborator.alpha

1,138 lines65 declarations36.4 KiBSHA-256 71619035ff76
Download exact fileView at revisionf5034773ad4bb52133

def · lines 53–60

openClosedNatural

Full file
53def openClosedNatural =
54  (lambda unrestricted value : (family ClosedNatural) .
55    (eliminate
56      ClosedNatural
57      (lambda unrestricted remaining : (family ClosedNatural) . Nat)
58      value
59      (branch ClosedZero . zero)
60      (branch ClosedSuccessor closedPredecessor ih_closedPredecessor . (succ ih_closedPredecessor))))

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.