Recursive definition of logior.
Theorem:
(defthm logior* (implies (and (force (integerp i)) (force (integerp j))) (equal (logior i j) (logcons (b-ior (logcar i) (logcar j)) (logior (logcdr i) (logcdr j))))) :rule-classes ((:definition :clique (binary-logior) :controller-alist ((binary-logior t t)))))