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 567–581

deviceArenaOrdinalsHas

Full file
567def deviceArenaOrdinalsHas =
568  (lambda unrestricted ordinals : (family DeviceArenaOrdinals) .
569    (lambda unrestricted wanted : Nat .
570      (eliminate
571        DeviceArenaOrdinals
572        (lambda unrestricted current : (family DeviceArenaOrdinals) . Nat)
573        ordinals
574        (branch DeviceArenaOrdinalsEnd . 0)
575        (branch
576          DeviceArenaOrdinalsNext
577          ordinal
578          tail
579          induction
580          .
581          (naturalOr (naturalEqual ordinal wanted) 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.