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 483–504

stdU16Equal

Full file
483def stdU16Equal =
484  (lambda unrestricted a : (family StdU16) .
485    (lambda unrestricted b : (family StdU16) .
486      (eliminate
487        StdU16
488        (lambda unrestricted current : (family StdU16) . Nat)
489        a
490        (branch
491          StdU16Of
492          aLow
493          aHigh
494          .
495          (eliminate
496            StdU16
497            (lambda unrestricted current : (family StdU16) . Nat)
498            b
499            (branch
500              StdU16Of
501              bLow
502              bHigh
503              .
504              (stdFlagAnd (byte-equal aLow bLow) (byte-equal aHigh bHigh))))))))

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.