AlphaGitHub
Source/Packages

Model.Word64

packages/foundation/standard/src/Model/Word64.alpha

798 lines53 declarations27.4 KiBSHA-256 e976f120a70c
Download exact fileView at revisionf5034773ad4bb52133

def · lines 620–626

modelWord64HighBit

Full file
620def modelWord64HighBit =
621  (lambda unrestricted value : (family ModelWord64) .
622    (eliminate
623      ModelWord64
624      (lambda unrestricted current : (family ModelWord64) . Nat)
625      value
626      (branch ModelWord64Value b0 b1 b2 b3 b4 b5 b6 b7 . (byte-less-than (byte 127) b7))))

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.