AlphaGitHub
Source/Packages

Runtime.DeviceArenaCertificate

packages/execution/src/Runtime/DeviceArenaCertificate.alpha

1,800 lines133 declarations66.8 KiBSHA-256 74ef7fffbf20
Download exact fileView at revisionf5034773ad4bb52133

def · lines 781–795

deviceArenaHighest

Full file
781def deviceArenaHighest =
782  (lambda unrestricted intervals : (family DeviceArenaIntervals) .
783    (eliminate
784      DeviceArenaIntervals
785      (lambda unrestricted current : (family DeviceArenaIntervals) . Nat)
786      intervals
787      (branch DeviceArenaIntervalsEnd . 0)
788      (branch
789        DeviceArenaIntervalsNext
790        low
791        high
792        tail
793        induction
794        .
795        (naturalSelect (naturalLess induction high) high induction))))

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.