(C::IFIX-WHEN-INTEGERP)
(C::TRUNCATE-LEMMA
 (165 165 (:TYPE-PRESCRIPTION EVENP))
 (110 55 (:TYPE-PRESCRIPTION EXPT-TYPE-ODD-EXPONENT-NEGATIVE-BASE))
 (110 55 (:TYPE-PRESCRIPTION EXPT-TYPE-EVEN-EXPONENT-2))
 (110 55 (:TYPE-PRESCRIPTION EXPT-TYPE-EVEN-EXPONENT-1))
 (55 55 (:TYPE-PRESCRIPTION EXPT-TYPE-SMALL-BASE-NON-POSITIVE-EXPONENT))
 (55 55 (:TYPE-PRESCRIPTION EXPT-TYPE-SMALL-BASE-NEGATIVE-EXPONENT))
 (53 53 (:TYPE-PRESCRIPTION <=-OF-TRUNCATE-AND-0-WHEN-NONPOSITIVE-AND-NONNEGATIVE-TYPE))
 (53 53 (:TYPE-PRESCRIPTION <=-OF-TRUNCATE-AND-0-WHEN-NONNEGATIVE-AND-NONPOSITIVE-TYPE))
 (2 2 (:REWRITE EXPT-WHEN-NOT-INTEGERP-ARG1-CHEAP))
 (2 2 (:REWRITE EXPT-WHEN-NOT-ACL2-NUMBERP-CHEAP))
 )
(C::SHL-VALUES-TO-SHL-INTEGER-VALUES)
(C::SHR-VALUES-TO-SHR-INTEGER-VALUES)
(C::INTEGER-TYPE-BITS-WHEN-TYPE-SINT)
(C::INTEGER-TYPE-BITS-WHEN-TYPE-UINT)
(C::INTEGER-TYPE-BITS-WHEN-TYPE-SLONG)
(C::INTEGER-TYPE-BITS-WHEN-TYPE-ULONG)
(C::INTEGER-TYPE-BITS-WHEN-TYPE-SLLONG)
(C::INTEGER-TYPE-BITS-WHEN-TYPE-ULLONG)
