Logical negation, unsigned version.
Function:
(defun lognotu$inline (size i) (declare (xargs :guard (and (and (integerp size) (<= 0 size)) (integerp i)))) (let ((__function__ 'lognotu)) (declare (ignorable __function__)) (loghead size (lognot i))))
Theorem:
(defthm lognotu-type (b* ((nat (lognotu$inline size i))) (natp nat)) :rule-classes :type-prescription)