First-order drop: peel `fuel` bytes with the native O(1) bytes-tail instead of
the higher-order `bytes-eliminate` fold (same exponential as take above). On a
literal the result stays a literal.
689def sha256DigestDropWithFuel =
690 (lambda unrestricted fuel : Nat .
691 (lambda unrestricted input : Bytes .
692 (nat-eliminate
693 (lambda unrestricted current : Nat . Bytes)
694 input
695 (lambda unrestricted predecessor : Nat .
696 (lambda unrestricted induction : Bytes . (bytes-tail induction)))
697 fuel)))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.