whether any of `registers` is in `set`
832def sm121LowerAny =
833 (lambda unrestricted registers : (family SM121LowerRegisters) .
834 (lambda unrestricted set : (family SM121LowerRegisters) .
835 (eliminate
836 SM121LowerRegisters
837 (lambda unrestricted current : (family SM121LowerRegisters) . Nat)
838 registers
839 (branch SM121LowerRegistersEnd . zero)
840 (branch SM121LowerRegistersNext head tail induction .
841 (nat-eliminate (lambda unrestricted current : Nat . Nat)
842 induction
843 (lambda unrestricted flagPredecessor : Nat . (lambda unrestricted flagRest : Nat . (succ zero)))
844 (sm121LowerHas set head))))))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.