110def specBitLengthWithLimit =
111 (lambda unrestricted chunks : Nat . (lambda unrestricted value : Nat .
112 (eliminate SpecBitState (lambda unrestricted current : (family SpecBitState) . Nat)
113 (nat-eliminate (lambda unrestricted current : Nat . (family SpecBitState))
114 (nat-eliminate (lambda unrestricted current : Nat . (family SpecBitState))
115 (constructor SpecBitState SpecBitStateOf value 0)
116 (lambda unrestricted predecessor : Nat . (lambda unrestricted induction : (family SpecBitState) . (specChunkStep induction)))
117 chunks)
118 (lambda unrestricted predecessor : Nat . (lambda unrestricted induction : (family SpecBitState) . (specBitStep induction)))
119 64)
120 (branch SpecBitStateOf remaining count . count))))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.