90def specChunkStep =
91 (lambda unrestricted state : (family SpecBitState) .
92 (eliminate SpecBitState (lambda unrestricted current : (family SpecBitState) . (family SpecBitState)) state
93 (branch SpecBitStateOf remaining count .
94 (nat-eliminate (lambda unrestricted current : Nat . (family SpecBitState))
95 (constructor SpecBitState SpecBitStateOf (nat-divide remaining specChunk) (nat-add count 64))
96 (lambda unrestricted predecessor : Nat . (lambda unrestricted induction : (family SpecBitState) .
97 (constructor SpecBitState SpecBitStateOf remaining count)))
98 (nat-less-than remaining specChunk)))))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.