7745def workInspectCoreByte =
7746 (lambda unrestricted value : (family CoreTerm) .
7747 (lambda unrestricted selected : (pi unrestricted payload : Byte . (family CoreWorkResult)) .
7748 (lambda unrestricted fallback : (pi unrestricted force : Nat . (family CoreWorkResult)) .
7749 (eliminate
7750 CoreLiteralInspection
7751 (lambda unrestricted current : (family CoreLiteralInspection) . (family CoreWorkResult))
7752 (inspectCoreLiteral value)
7753 (branch CoreNaturalInspected payload . (fallback zero))
7754 (branch CoreByteInspected payload . (selected payload))
7755 (branch CoreBytesInspected payload . (fallback zero))
7756 (branch CoreNotLiteral . (fallback zero))))))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.