AlphaGitHub
Source/Packages

Runtime.ArenaCertificate

packages/execution/src/Runtime/ArenaCertificate.alpha

195 lines44 declarations10.1 KiBSHA-256 27e80963b4ec
Download exact fileView at revisionf5034773ad4bb52133

def · lines 130–137

arenaRangesMeet

Full file
1 when [start, stop) meets a range of the list
130def arenaRangesMeet =
131  (lambda unrestricted start : Nat .
132    (lambda unrestricted stop : Nat .
133      (lambda unrestricted ranges : (family ArenaRanges) .
134        (eliminate ArenaRanges (lambda unrestricted current : (family ArenaRanges) . Nat) ranges
135          (branch ArenaRangesNone . 0)
136          (branch ArenaRangesNext otherStart otherStop tail induction .
137            (naturalOr (naturalAnd (naturalLess start otherStop) (naturalLess otherStart stop)) 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.