AlphaGitHub
Source/Packages

Std.Word

packages/foundation/standard/src/Std/Word.alpha

1,783 lines192 declarations64.2 KiBSHA-256 27bf8c3f30ee
Download exact fileView at revision3c600751929f56cd01

def · lines 506–521

stdU16HighBit

Full file
506def stdU16HighBit =
507  (lambda unrestricted value : (family StdU16) .
508    (eliminate
509      StdU16
510      (lambda unrestricted current : (family StdU16) . Nat)
511      value
512      (branch
513        StdU16Of
514        low
515        high
516        .
517        (nat-eliminate
518          (lambda unrestricted current : Nat . Nat)
519          (succ zero)
520          (lambda unrestricted predecessor : Nat . (lambda unrestricted induction : Nat . zero))
521          (byte-less-than high (byte 128))))))

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.