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 280–294

deviceArenaPhaseKnown

Full file
1 when a phase of this identity is declared
280def deviceArenaPhaseKnown =
281  (lambda unrestricted phases : (family DeviceArenaPhases) .
282    (lambda unrestricted identity : Bytes .
283      (eliminate
284        DeviceArenaPhases
285        (lambda unrestricted current : (family DeviceArenaPhases) . Nat)
286        phases
287        (branch DeviceArenaPhasesEnd . 0)
288        (branch
289          DeviceArenaPhasesNext
290          head
291          tail
292          induction
293          .
294          (naturalOr (bytes-equal (deviceArenaPhaseIdentityOf head) identity) 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.