523def stdU16LessThan =
524 (lambda unrestricted a : (family StdU16) .
525 (lambda unrestricted b : (family StdU16) .
526 (eliminate
527 StdU16
528 (lambda unrestricted current : (family StdU16) . Nat)
529 a
530 (branch
531 StdU16Of
532 aLow
533 aHigh
534 .
535 (eliminate
536 StdU16
537 (lambda unrestricted current : (family StdU16) . Nat)
538 b
539 (branch
540 StdU16Of
541 bLow
542 bHigh
543 .
544 (stdFlagOr
545 (byte-less-than aHigh bHigh)
546 (stdFlagAnd (byte-equal aHigh bHigh) (byte-less-than aLow bLow)))))))))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.