378def sm86FieldValueFitsByByteChunks =
379 (lambda unrestricted width : Nat .
380 (lambda unrestricted value : Nat .
381 (eliminate
382 NaturalDivisionState
383 (lambda unrestricted current : (family NaturalDivisionState) . Nat)
384 (naturalDivisionState width sm86EncodingNaturalEight)
385 (branch
386 NaturalDivisionStateValue
387 remainder
388 quotient
389 .
390 (nat-less-than (sm86FieldDivideByteChunks quotient value) (naturalPowerOfTwo remainder))))))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.