Bitwise if-then-else among integers.
(logite test then else) → logite
Function:
(defun logite (test then else) (declare (type integer test) (type integer then) (type integer else)) (let ((__function__ 'logite)) (declare (ignorable __function__)) (logior (logand test then) (logand (lognot test) else))))
Theorem:
(defthm logite-type (b* ((logite (logite test then else))) (integerp logite)) :rule-classes :type-prescription)