(UBYTE20P-OF-LOGHEAD-OF-20
 (111 111 (:TYPE-PRESCRIPTION NOT-INTEGERP-3B))
 (111 111 (:TYPE-PRESCRIPTION NOT-INTEGERP-2B))
 (111 111 (:TYPE-PRESCRIPTION NOT-INTEGERP-1B))
 (100 20 (:TYPE-PRESCRIPTION MOD-ZERO . 2))
 (100 20 (:TYPE-PRESCRIPTION MOD-ZERO . 1))
 (100 20 (:TYPE-PRESCRIPTION MOD-POSITIVE . 2))
 (100 20 (:TYPE-PRESCRIPTION MOD-NEGATIVE . 2))
 (66 1 (:REWRITE CANCEL-MOD-+))
 (44 1 (:REWRITE MOD-X-Y-=-X . 4))
 (44 1 (:REWRITE MOD-X-Y-=-X . 3))
 (42 1 (:REWRITE MOD-X-Y-=-X+Y . 2))
 (39 1 (:REWRITE MOD-X-Y-=-X-Y . 2))
 (32 4 (:REWRITE INTEGERP-MINUS-X))
 (27 1 (:REWRITE MOD-ZERO . 4))
 (27 1 (:REWRITE MOD-ZERO . 3))
 (27 1 (:LINEAR MOD-BOUNDS-3))
 (22 11 (:TYPE-PRESCRIPTION NOT-INTEGERP-4A))
 (21 2 (:REWRITE |(* (- x) y)|))
 (20 20 (:TYPE-PRESCRIPTION MOD-ZERO . 3))
 (20 20 (:TYPE-PRESCRIPTION MOD-POSITIVE . 1))
 (20 20 (:TYPE-PRESCRIPTION MOD-NONPOSITIVE))
 (20 20 (:TYPE-PRESCRIPTION MOD-NEGATIVE . 1))
 (20 20 (:TYPE-PRESCRIPTION INTEGERP-MOD-2))
 (20 4 (:REWRITE |(* y x)|))
 (17 11 (:REWRITE DEFAULT-TIMES-2))
 (16 11 (:REWRITE DEFAULT-TIMES-1))
 (14 1 (:REWRITE DEFAULT-MOD-RATIO))
 (12 2 (:REWRITE DEFAULT-MINUS))
 (12 2 (:LINEAR MOD-BOUNDS-2))
 (11 11 (:TYPE-PRESCRIPTION NOT-INTEGERP-3A))
 (11 11 (:TYPE-PRESCRIPTION NOT-INTEGERP-2A))
 (11 11 (:TYPE-PRESCRIPTION NOT-INTEGERP-1A))
 (11 2 (:REWRITE |(- (* c x))|))
 (8 4 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-<))
 (8 4 (:REWRITE PREFER-POSITIVE-ADDENDS-<))
 (7 4 (:REWRITE DEFAULT-LESS-THAN-1))
 (7 1 (:REWRITE MOD-X-Y-=-X . 2))
 (7 1 (:REWRITE |(mod (+ x (mod a b)) y)|))
 (7 1 (:REWRITE |(mod (+ x (- (mod a b))) y)|))
 (6 6 (:REWRITE NORMALIZE-FACTORS-GATHER-EXPONENTS))
 (6 1 (:REWRITE MOD-X-Y-=-X-Y . 3))
 (6 1 (:REWRITE MOD-X-Y-=-X+Y . 3))
 (6 1 (:REWRITE MOD-CANCEL-*-REWRITING-GOAL-LITERAL))
 (6 1 (:REWRITE MOD-CANCEL-*-CONST))
 (6 1 (:REWRITE |(mod (* x (/ y)) z) rewriting-goal-literal|))
 (5 4 (:REWRITE DEFAULT-LESS-THAN-2))
 (4 4 (:REWRITE THE-FLOOR-BELOW))
 (4 4 (:REWRITE THE-FLOOR-ABOVE))
 (4 4 (:REWRITE SIMPLIFY-SUMS-<))
 (4 4 (:REWRITE REMOVE-STRICT-INEQUALITIES))
 (4 4 (:REWRITE REDUCE-RATIONAL-MULTIPLICATIVE-CONSTANT-<))
 (4 4 (:REWRITE REDUCE-MULTIPLICATIVE-CONSTANT-<))
 (4 4 (:REWRITE REDUCE-ADDITIVE-CONSTANT-<))
 (4 4 (:REWRITE INTEGERP-<-CONSTANT))
 (4 4 (:REWRITE CONSTANT-<-INTEGERP))
 (4 4 (:REWRITE |(< c (/ x)) positive c --- present in goal|))
 (4 4 (:REWRITE |(< c (/ x)) positive c --- obj t or nil|))
 (4 4 (:REWRITE |(< c (/ x)) negative c --- present in goal|))
 (4 4 (:REWRITE |(< c (/ x)) negative c --- obj t or nil|))
 (4 4 (:REWRITE |(< c (- x))|))
 (4 4 (:REWRITE |(< (/ x) c) positive c --- present in goal|))
 (4 4 (:REWRITE |(< (/ x) c) positive c --- obj t or nil|))
 (4 4 (:REWRITE |(< (/ x) c) negative c --- present in goal|))
 (4 4 (:REWRITE |(< (/ x) c) negative c --- obj t or nil|))
 (4 4 (:REWRITE |(< (/ x) (/ y))|))
 (4 4 (:REWRITE |(< (- x) c)|))
 (4 4 (:REWRITE |(< (- x) (- y))|))
 (3 3 (:REWRITE REMOVE-WEAK-INEQUALITIES))
 (3 3 (:REWRITE REDUCE-INTEGERP-+))
 (3 3 (:META META-INTEGERP-CORRECT))
 (2 2 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-AX+BX-<-0-RATIONAL-REMAINDER))
 (2 2 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-AX+BX-<-0-RATIONAL-COMMON))
 (2 2 (:REWRITE |(< (/ x) 0)|))
 (2 2 (:REWRITE |(< (* x y) 0)|))
 (2 1 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-EQUAL))
 (2 1 (:REWRITE PREFER-POSITIVE-ADDENDS-EQUAL))
 (2 1 (:REWRITE DEFAULT-MOD-1))
 (1 1 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-AX+BX-=-0))
 (1 1 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-0-<-AX+BX-RATIONAL-REMAINDER))
 (1 1 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-0-<-AX+BX-RATIONAL-COMMON))
 (1 1 (:REWRITE SIMPLIFY-SUMS-EQUAL))
 (1 1 (:REWRITE REDUCE-MULTIPLICATIVE-CONSTANT-EQUAL))
 (1 1 (:REWRITE REDUCE-ADDITIVE-CONSTANT-EQUAL))
 (1 1 (:REWRITE MOD-CANCEL-*-NOT-REWRITING-GOAL-LITERAL))
 (1 1 (:REWRITE EQUAL-OF-PREDICATES-REWRITE))
 (1 1 (:REWRITE DEFAULT-MOD-2))
 (1 1 (:REWRITE |(mod x (- y))| . 3))
 (1 1 (:REWRITE |(mod x (- y))| . 2))
 (1 1 (:REWRITE |(mod x (- y))| . 1))
 (1 1 (:REWRITE |(mod x (* y (/ z))) rewriting-goal-literal|))
 (1 1 (:REWRITE |(mod x (* y (/ z))) not rewriting-goal-literal|))
 (1 1 (:REWRITE |(mod (- x) y)| . 3))
 (1 1 (:REWRITE |(mod (- x) y)| . 2))
 (1 1 (:REWRITE |(mod (- x) y)| . 1))
 (1 1 (:REWRITE |(mod (* x (/ y)) z) not rewriting-goal-literal|))
 (1 1 (:REWRITE |(equal c (/ x))|))
 (1 1 (:REWRITE |(equal c (- x))|))
 (1 1 (:REWRITE |(equal (/ x) c)|))
 (1 1 (:REWRITE |(equal (/ x) (/ y))|))
 (1 1 (:REWRITE |(equal (- x) c)|))
 (1 1 (:REWRITE |(equal (- x) (- y))|))
 (1 1 (:REWRITE |(< 0 (/ x))|))
 (1 1 (:REWRITE |(< 0 (* x y))|))
 )
(LOGHEAD-OF-20-WHEN-UBYTE20P
 (264 4 (:REWRITE CANCEL-MOD-+))
 (218 218 (:TYPE-PRESCRIPTION NOT-INTEGERP-3B))
 (218 218 (:TYPE-PRESCRIPTION NOT-INTEGERP-2B))
 (218 218 (:TYPE-PRESCRIPTION NOT-INTEGERP-1B))
 (211 5 (:REWRITE MOD-X-Y-=-X . 4))
 (173 5 (:REWRITE MOD-X-Y-=-X+Y . 2))
 (161 5 (:REWRITE MOD-X-Y-=-X-Y . 2))
 (160 32 (:TYPE-PRESCRIPTION MOD-ZERO . 2))
 (160 32 (:TYPE-PRESCRIPTION MOD-ZERO . 1))
 (160 32 (:TYPE-PRESCRIPTION MOD-POSITIVE . 2))
 (160 32 (:TYPE-PRESCRIPTION MOD-NEGATIVE . 2))
 (130 5 (:REWRITE MOD-ZERO . 3))
 (128 16 (:REWRITE INTEGERP-MINUS-X))
 (126 5 (:REWRITE MOD-ZERO . 4))
 (84 8 (:REWRITE |(* (- x) y)|))
 (83 43 (:TYPE-PRESCRIPTION NOT-INTEGERP-4A))
 (78 16 (:REWRITE |(* y x)|))
 (67 5 (:REWRITE DEFAULT-MOD-RATIO))
 (66 44 (:REWRITE DEFAULT-TIMES-2))
 (62 44 (:REWRITE DEFAULT-TIMES-1))
 (54 2 (:LINEAR MOD-BOUNDS-3))
 (48 8 (:REWRITE DEFAULT-MINUS))
 (44 8 (:REWRITE |(- (* c x))|))
 (43 43 (:TYPE-PRESCRIPTION NOT-INTEGERP-3A))
 (43 43 (:TYPE-PRESCRIPTION NOT-INTEGERP-2A))
 (43 43 (:TYPE-PRESCRIPTION NOT-INTEGERP-1A))
 (35 19 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-<))
 (35 19 (:REWRITE PREFER-POSITIVE-ADDENDS-<))
 (32 32 (:TYPE-PRESCRIPTION MOD-ZERO . 3))
 (32 32 (:TYPE-PRESCRIPTION MOD-POSITIVE . 1))
 (32 32 (:TYPE-PRESCRIPTION MOD-NONPOSITIVE))
 (32 32 (:TYPE-PRESCRIPTION MOD-NEGATIVE . 1))
 (32 32 (:TYPE-PRESCRIPTION INTEGERP-MOD-2))
 (31 19 (:REWRITE DEFAULT-LESS-THAN-1))
 (29 5 (:REWRITE MOD-X-Y-=-X-Y . 3))
 (29 5 (:REWRITE MOD-X-Y-=-X+Y . 3))
 (28 4 (:REWRITE MOD-X-Y-=-X . 2))
 (28 4 (:REWRITE |(mod (+ x (mod a b)) y)|))
 (28 4 (:REWRITE |(mod (+ x (- (mod a b))) y)|))
 (24 24 (:REWRITE NORMALIZE-FACTORS-GATHER-EXPONENTS))
 (24 4 (:REWRITE MOD-CANCEL-*-REWRITING-GOAL-LITERAL))
 (24 4 (:REWRITE MOD-CANCEL-*-CONST))
 (24 4 (:REWRITE |(mod (* x (/ y)) z) rewriting-goal-literal|))
 (24 4 (:LINEAR MOD-BOUNDS-2))
 (23 19 (:REWRITE DEFAULT-LESS-THAN-2))
 (19 19 (:REWRITE THE-FLOOR-BELOW))
 (19 19 (:REWRITE THE-FLOOR-ABOVE))
 (19 19 (:REWRITE SIMPLIFY-SUMS-<))
 (19 19 (:REWRITE REMOVE-STRICT-INEQUALITIES))
 (19 19 (:REWRITE REDUCE-RATIONAL-MULTIPLICATIVE-CONSTANT-<))
 (19 19 (:REWRITE REDUCE-MULTIPLICATIVE-CONSTANT-<))
 (19 19 (:REWRITE REDUCE-ADDITIVE-CONSTANT-<))
 (19 19 (:REWRITE INTEGERP-<-CONSTANT))
 (19 19 (:REWRITE CONSTANT-<-INTEGERP))
 (19 19 (:REWRITE |(< c (/ x)) positive c --- present in goal|))
 (19 19 (:REWRITE |(< c (/ x)) positive c --- obj t or nil|))
 (19 19 (:REWRITE |(< c (/ x)) negative c --- present in goal|))
 (19 19 (:REWRITE |(< c (/ x)) negative c --- obj t or nil|))
 (19 19 (:REWRITE |(< c (- x))|))
 (19 19 (:REWRITE |(< (/ x) c) positive c --- present in goal|))
 (19 19 (:REWRITE |(< (/ x) c) positive c --- obj t or nil|))
 (19 19 (:REWRITE |(< (/ x) c) negative c --- present in goal|))
 (19 19 (:REWRITE |(< (/ x) c) negative c --- obj t or nil|))
 (19 19 (:REWRITE |(< (/ x) (/ y))|))
 (19 19 (:REWRITE |(< (- x) c)|))
 (19 19 (:REWRITE |(< (- x) (- y))|))
 (15 15 (:REWRITE REMOVE-WEAK-INEQUALITIES))
 (12 12 (:REWRITE REDUCE-INTEGERP-+))
 (12 12 (:META META-INTEGERP-CORRECT))
 (9 9 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-AX+BX-<-0-RATIONAL-REMAINDER))
 (9 9 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-AX+BX-<-0-RATIONAL-COMMON))
 (9 9 (:REWRITE |(< (/ x) 0)|))
 (9 9 (:REWRITE |(< (* x y) 0)|))
 (9 5 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-EQUAL))
 (9 5 (:REWRITE PREFER-POSITIVE-ADDENDS-EQUAL))
 (9 5 (:REWRITE DEFAULT-MOD-1))
 (5 5 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-AX+BX-=-0))
 (5 5 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-0-<-AX+BX-RATIONAL-REMAINDER))
 (5 5 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-0-<-AX+BX-RATIONAL-COMMON))
 (5 5 (:REWRITE SIMPLIFY-SUMS-EQUAL))
 (5 5 (:REWRITE REDUCE-MULTIPLICATIVE-CONSTANT-EQUAL))
 (5 5 (:REWRITE REDUCE-ADDITIVE-CONSTANT-EQUAL))
 (5 5 (:REWRITE EQUAL-OF-PREDICATES-REWRITE))
 (5 5 (:REWRITE DEFAULT-MOD-2))
 (5 5 (:REWRITE |(equal c (/ x))|))
 (5 5 (:REWRITE |(equal c (- x))|))
 (5 5 (:REWRITE |(equal (/ x) c)|))
 (5 5 (:REWRITE |(equal (/ x) (/ y))|))
 (5 5 (:REWRITE |(equal (- x) c)|))
 (5 5 (:REWRITE |(equal (- x) (- y))|))
 (5 5 (:REWRITE |(< 0 (/ x))|))
 (5 5 (:REWRITE |(< 0 (* x y))|))
 (4 4 (:REWRITE MOD-CANCEL-*-NOT-REWRITING-GOAL-LITERAL))
 (4 4 (:REWRITE |(mod x (- y))| . 3))
 (4 4 (:REWRITE |(mod x (- y))| . 2))
 (4 4 (:REWRITE |(mod x (- y))| . 1))
 (4 4 (:REWRITE |(mod x (* y (/ z))) rewriting-goal-literal|))
 (4 4 (:REWRITE |(mod x (* y (/ z))) not rewriting-goal-literal|))
 (4 4 (:REWRITE |(mod (- x) y)| . 3))
 (4 4 (:REWRITE |(mod (- x) y)| . 2))
 (4 4 (:REWRITE |(mod (- x) y)| . 1))
 (4 4 (:REWRITE |(mod (* x (/ y)) z) not rewriting-goal-literal|))
 )
(LOGTAIL-OF-20-WHEN-UBYTE20P
 (476 476 (:TYPE-PRESCRIPTION NOT-INTEGERP-3B))
 (476 476 (:TYPE-PRESCRIPTION NOT-INTEGERP-2B))
 (476 476 (:TYPE-PRESCRIPTION NOT-INTEGERP-1B))
 (260 4 (:REWRITE CANCEL-FLOOR-+))
 (238 4 (:REWRITE FLOOR-ZERO . 3))
 (173 5 (:REWRITE FLOOR-X-Y-=--1 . 2))
 (165 5 (:REWRITE FLOOR-ZERO . 5))
 (153 17 (:TYPE-PRESCRIPTION FLOOR-ZERO . 2))
 (153 17 (:TYPE-PRESCRIPTION FLOOR-POSITIVE . 1))
 (153 17 (:TYPE-PRESCRIPTION FLOOR-NONPOSITIVE . 1))
 (153 17 (:TYPE-PRESCRIPTION FLOOR-NONNEGATIVE . 1))
 (153 17 (:TYPE-PRESCRIPTION FLOOR-NEGATIVE . 1))
 (135 23 (:REWRITE INTEGERP-MINUS-X))
 (130 5 (:REWRITE FLOOR-=-X/Y . 3))
 (130 5 (:REWRITE FLOOR-=-X/Y . 2))
 (123 5 (:REWRITE FLOOR-X-Y-=-1 . 2))
 (107 72 (:REWRITE DEFAULT-TIMES-2))
 (103 72 (:REWRITE DEFAULT-TIMES-1))
 (85 85 (:TYPE-PRESCRIPTION NOT-INTEGERP-3A))
 (85 85 (:TYPE-PRESCRIPTION NOT-INTEGERP-2A))
 (85 85 (:TYPE-PRESCRIPTION NOT-INTEGERP-1A))
 (85 17 (:TYPE-PRESCRIPTION FLOOR-ZERO . 3))
 (85 17 (:TYPE-PRESCRIPTION FLOOR-ZERO . 1))
 (85 17 (:TYPE-PRESCRIPTION FLOOR-POSITIVE . 3))
 (85 17 (:TYPE-PRESCRIPTION FLOOR-POSITIVE . 2))
 (85 17 (:TYPE-PRESCRIPTION FLOOR-NONPOSITIVE . 3))
 (85 17 (:TYPE-PRESCRIPTION FLOOR-NONPOSITIVE . 2))
 (85 17 (:TYPE-PRESCRIPTION FLOOR-NONNEGATIVE . 3))
 (85 17 (:TYPE-PRESCRIPTION FLOOR-NONNEGATIVE . 2))
 (85 17 (:TYPE-PRESCRIPTION FLOOR-NEGATIVE . 3))
 (85 17 (:TYPE-PRESCRIPTION FLOOR-NEGATIVE . 2))
 (84 8 (:REWRITE |(* (- x) y)|))
 (67 5 (:REWRITE DEFAULT-FLOOR-RATIO))
 (64 2 (:LINEAR LINEAR-FLOOR-BOUNDS-3))
 (54 2 (:LINEAR LINEAR-FLOOR-BOUNDS-2))
 (48 8 (:REWRITE DEFAULT-MINUS))
 (47 19 (:REWRITE SIMPLIFY-PRODUCTS-GATHER-EXPONENTS-<))
 (47 19 (:REWRITE PREFER-POSITIVE-ADDENDS-<))
 (44 19 (:REWRITE DEFAULT-LESS-THAN-1))
 (44 8 (:REWRITE |(- (* c x))|))
 (38 38 (:REWRITE NORMALIZE-FACTORS-GATHER-EXPONENTS))
 (29 5 (:REWRITE FLOOR-X-Y-=-1 . 3))
 (29 5 (:REWRITE FLOOR-X-Y-=--1 . 3))
 (24 4 (:REWRITE FLOOR-ZERO . 2))
 (24 4 (:REWRITE FLOOR-CANCEL-*-REWRITING-GOAL-LITERAL))
 (24 4 (:REWRITE |(floor (* x (/ y)) z) rewriting-goal-literal|))
 (22 19 (:REWRITE REDUCE-RATIONAL-MULTIPLICATIVE-CONSTANT-<))
 (22 19 (:REWRITE REDUCE-MULTIPLICATIVE-CONSTANT-<))
 (22 19 (:REWRITE DEFAULT-LESS-THAN-2))
 (19 19 (:REWRITE THE-FLOOR-BELOW))
 (19 19 (:REWRITE THE-FLOOR-ABOVE))
 (19 19 (:REWRITE SIMPLIFY-SUMS-<))
 (19 19 (:REWRITE REMOVE-STRICT-INEQUALITIES))
 (19 19 (:REWRITE REDUCE-INTEGERP-+))
 (19 19 (:REWRITE REDUCE-ADDITIVE-CONSTANT-<))
 (19 19 (:REWRITE INTEGERP-<-CONSTANT))
 (19 19 (:REWRITE CONSTANT-<-INTEGERP))
 (19 19 (:REWRITE |(< c (/ x)) positive c --- present in goal|))
 (19 19 (:REWRITE |(< c (/ x)) positive c --- obj t or nil|))
 (19 19 (:REWRITE |(< c (/ x)) negative c --- present in goal|))
 (19 19 (:REWRITE |(< c (/ x)) negative c --- obj t or nil|))
 (19 19 (:REWRITE |(< c (- x))|))
 (19 19 (:REWRITE |(< (/ x) c) positive c --- present in goal|))
 (19 19 (:REWRITE |(< (/ x) c) positive c --- obj t or nil|))
 (19 19 (:REWRITE |(< (/ x) c) negative c --- present in goal|))
 (19 19 (:REWRITE |(< (/ x) c) negative c --- obj t or nil|))
 (19 19 (:REWRITE |(< (/ x) (/ y))|))
 (19 19 (:REWRITE |(< (- x) c)|))
 (19 19 (:REWRITE |(< (- x) (- y))|))
 (19 19 (:META META-INTEGERP-CORRECT))
 (19 4 (:REWRITE FLOOR-CANCEL-*-CONST))
 (15 15 (:REWRITE REMOVE-WEAK-INEQUALITIES))
 (14 4 (:REWRITE DEFAULT-PLUS-2))
 (14 4 (:REWRITE DEFAULT-PLUS-1))
 (11 11 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-AX+BX-<-0-RATIONAL-REMAINDER))
 (11 11 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-AX+BX-<-0-RATIONAL-COMMON))
 (11 11 (:REWRITE |(< (/ x) 0)|))
 (11 11 (:REWRITE |(< (* x y) 0)|))
 (9 5 (:REWRITE DEFAULT-FLOOR-1))
 (6 6 (:TYPE-PRESCRIPTION ABS))
 (5 5 (:REWRITE DEFAULT-FLOOR-2))
 (4 4 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-0-<-AX+BX-RATIONAL-REMAINDER))
 (4 4 (:REWRITE SIMPLIFY-TERMS-SUCH-AS-0-<-AX+BX-RATIONAL-COMMON))
 (4 4 (:REWRITE FLOOR-CANCEL-*-NOT-REWRITING-GOAL-LITERAL))
 (4 4 (:REWRITE |(floor x (- y))| . 2))
 (4 4 (:REWRITE |(floor x (- y))| . 1))
 (4 4 (:REWRITE |(floor x (* y (/ z))) rewriting-goal-literal|))
 (4 4 (:REWRITE |(floor x (* y (/ z))) not rewriting-goal-literal|))
 (4 4 (:REWRITE |(floor (- x) y)| . 2))
 (4 4 (:REWRITE |(floor (- x) y)| . 1))
 (4 4 (:REWRITE |(floor (* x (/ y)) z) not rewriting-goal-literal|))
 (4 4 (:REWRITE |(< 0 (/ x))|))
 (4 4 (:REWRITE |(< 0 (* x y))|))
 (3 3 (:REWRITE |(< (* x y) 0) rationalp (* x y)|))
 (2 2 (:REWRITE NORMALIZE-TERMS-SUCH-AS-A/A+B-+-B/A+B))
 (2 2 (:REWRITE NORMALIZE-ADDENDS))
 )
