Rules about when
Theorem:
(defthm expt-type-prescription-rationalp (implies (rationalp r) (rationalp (expt r i))) :rule-classes (:type-prescription :generalize))
Theorem:
(defthm expt-type-prescription-positive (implies (and (< 0 r) (real/rationalp r)) (< 0 (expt r i))) :rule-classes (:type-prescription :generalize))
Theorem:
(defthm expt-type-prescription-nonzero (implies (and (fc (acl2-numberp r)) (not (equal r 0))) (not (equal 0 (expt r i)))) :rule-classes (:type-prescription :generalize))
Theorem:
(defthm expt-type-prescription-integerp (implies (and (<= 0 i) (integerp r)) (integerp (expt r i))) :rule-classes (:type-prescription :generalize))