Recursive definition of lognot.
Theorem: lognot*
(defthm lognot* (implies (force (integerp i)) (equal (lognot i) (logcons (b-not (logcar i)) (lognot (logcdr i))))) :rule-classes ((:definition :clique (lognot) :controller-alist ((lognot t)))))