Behavior of logbitp on bad inputs.
Theorem:
(defthm logbitp-default-1 (implies (not (natp a)) (equal (logbitp a x) (logbitp 0 x))) :rule-classes ((:rewrite :backchain-limit-lst 0)))
Theorem:
(defthm logbitp-default-2 (implies (not (integerp x)) (equal (logbitp a x) nil)) :rule-classes ((:rewrite :backchain-limit-lst 0)))