(RTL::RATIONALP-PRODUCT-WHEN-ONE-ARG-IS-RATIONAL
 (3 3 (:REWRITE DEFAULT-*-2))
 (3 3 (:REWRITE DEFAULT-*-1))
 (2 2 (:REWRITE RATIONALP-*))
 (1 1 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(RTL::RATIONALP-SUM-WHEN-ONE-ARG-IS-RATIONAL
 (3 3 (:REWRITE DEFAULT-+-2))
 (3 3 (:REWRITE DEFAULT-+-1))
 (2 2 (:REWRITE RATIONALP-+))
 (1 1 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(RTL::RATIONALP-UNARY-DIVIDE
 (2 1 (:REWRITE DEFAULT-UNARY-/))
 (1 1 (:REWRITE RATIONALP-UNARY-/))
 (1 1 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(RTL::RATIONALP-PRODUCT)
