(SEQ-INT
 (17 9 (:REWRITE DEFAULT-+-2))
 (12 9 (:REWRITE DEFAULT-+-1))
 (8 2 (:REWRITE COMMUTATIVITY-OF-+))
 (8 1 (:DEFINITION LENGTH))
 (7 7 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (6 5 (:REWRITE DEFAULT-<-1))
 (5 5 (:REWRITE DEFAULT-<-2))
 (5 1 (:DEFINITION LEN))
 (2 2 (:REWRITE FOLD-CONSTS-IN-+))
 (2 2 (:REWRITE DEFAULT-UNARY-MINUS))
 (2 2 (:REWRITE DEFAULT-CDR))
 (1 1 (:TYPE-PRESCRIPTION LEN))
 (1 1 (:REWRITE ZP-OPEN))
 (1 1 (:REWRITE NUMERATOR-WHEN-INTEGERP))
 (1 1 (:REWRITE INTEGERP==>DENOMINATOR=1))
 (1 1 (:REWRITE DEFAULT-REALPART))
 (1 1 (:REWRITE DEFAULT-NUMERATOR))
 (1 1 (:REWRITE DEFAULT-IMAGPART))
 (1 1 (:REWRITE DEFAULT-DENOMINATOR))
 (1 1 (:REWRITE DEFAULT-COERCE-2))
 (1 1 (:REWRITE DEFAULT-COERCE-1))
 (1 1 (:REWRITE DEFAULT-CAR))
 )
(UNIQUE
 (92 45 (:REWRITE DEFAULT-+-2))
 (62 45 (:REWRITE DEFAULT-+-1))
 (50 10 (:DEFINITION INTEGER-ABS))
 (40 10 (:REWRITE COMMUTATIVITY-OF-+))
 (40 5 (:DEFINITION LENGTH))
 (25 5 (:DEFINITION LEN))
 (15 15 (:REWRITE DEFAULT-CDR))
 (13 12 (:REWRITE DEFAULT-<-2))
 (13 12 (:REWRITE DEFAULT-<-1))
 (12 12 (:REWRITE FOLD-CONSTS-IN-+))
 (10 10 (:REWRITE DEFAULT-UNARY-MINUS))
 (10 10 (:REWRITE DEFAULT-CAR))
 (5 5 (:TYPE-PRESCRIPTION LEN))
 (5 5 (:REWRITE NUMERATOR-WHEN-INTEGERP))
 (5 5 (:REWRITE INTEGERP==>DENOMINATOR=1))
 (5 5 (:REWRITE DEFAULT-REALPART))
 (5 5 (:REWRITE DEFAULT-NUMERATOR))
 (5 5 (:REWRITE DEFAULT-IMAGPART))
 (5 5 (:REWRITE DEFAULT-DENOMINATOR))
 (5 5 (:REWRITE DEFAULT-COERCE-2))
 (5 5 (:REWRITE DEFAULT-COERCE-1))
 (5 1 (:DEFINITION MEMBER-EQUAL))
 (1 1 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (1 1 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(COLLECT
 (238 34 (:DEFINITION ASSOC-EQUAL))
 (169 145 (:REWRITE DEFAULT-CAR))
 (131 115 (:REWRITE DEFAULT-CDR))
 (129 98 (:REWRITE DEFAULT-+-2))
 (101 98 (:REWRITE DEFAULT-+-1))
 (87 75 (:REWRITE DEFAULT-<-1))
 (79 75 (:REWRITE DEFAULT-<-2))
 (35 35 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (9 9 (:REWRITE DEFAULT-UNARY-MINUS))
 (7 7 (:REWRITE ZP-OPEN))
 (3 3 (:REWRITE FOLD-CONSTS-IN-+))
 (1 1 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(NEW-FIELD-VALUE)
(NEW-FIELD-VALUE-S-COMMUTES)
(S*
 (56 8 (:DEFINITION ASSOC-EQUAL))
 (40 8 (:DEFINITION LEN))
 (36 25 (:REWRITE DEFAULT-+-2))
 (26 25 (:REWRITE DEFAULT-+-1))
 (26 17 (:REWRITE DEFAULT-<-1))
 (24 24 (:REWRITE DEFAULT-CDR))
 (24 24 (:REWRITE DEFAULT-CAR))
 (19 17 (:REWRITE DEFAULT-<-2))
 (8 8 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (8 8 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (4 4 (:REWRITE DEFAULT-UNARY-MINUS))
 (2 2 (:REWRITE FOLD-CONSTS-IN-+))
 (1 1 (:REWRITE ZP-OPEN))
 )
(MARK
 (238 34 (:DEFINITION ASSOC-EQUAL))
 (169 145 (:REWRITE DEFAULT-CAR))
 (131 115 (:REWRITE DEFAULT-CDR))
 (129 98 (:REWRITE DEFAULT-+-2))
 (101 98 (:REWRITE DEFAULT-+-1))
 (87 75 (:REWRITE DEFAULT-<-1))
 (79 75 (:REWRITE DEFAULT-<-2))
 (35 35 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (9 9 (:REWRITE DEFAULT-UNARY-MINUS))
 (7 7 (:REWRITE ZP-OPEN))
 (3 3 (:REWRITE FOLD-CONSTS-IN-+))
 (1 1 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(COMPOSE-BAB)
(G-S
 (4 4 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (4 4 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(MEMBER-APPEND
 (56 44 (:REWRITE DEFAULT-CAR))
 (48 24 (:TYPE-PRESCRIPTION TRUE-LISTP-APPEND))
 (40 31 (:REWRITE DEFAULT-CDR))
 (24 24 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (24 24 (:TYPE-PRESCRIPTION BINARY-APPEND))
 (24 24 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (24 24 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(UNIQUE-APPEND
 (152 125 (:REWRITE DEFAULT-CDR))
 (119 104 (:REWRITE DEFAULT-CAR))
 (62 31 (:TYPE-PRESCRIPTION TRUE-LISTP-APPEND))
 (49 49 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (49 49 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (31 31 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (31 31 (:TYPE-PRESCRIPTION BINARY-APPEND))
 )
(INTERSECTP-APPEND-1
 (79 79 (:REWRITE DEFAULT-CAR))
 (64 64 (:REWRITE DEFAULT-CDR))
 (39 39 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (39 39 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (30 10 (:DEFINITION BINARY-APPEND))
 )
(INTERSECTP-APPEND-2
 (88 76 (:REWRITE DEFAULT-CAR))
 (73 64 (:REWRITE DEFAULT-CDR))
 (46 23 (:TYPE-PRESCRIPTION TRUE-LISTP-APPEND))
 (33 33 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (33 33 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (23 23 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (23 23 (:TYPE-PRESCRIPTION BINARY-APPEND))
 )
(MEMBER-INTERSECTION-1
 (17 17 (:REWRITE DEFAULT-CAR))
 (11 11 (:REWRITE DEFAULT-CDR))
 (11 11 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (11 11 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(INTERSECTP-COMMUTES-1
 (34 34 (:REWRITE MEMBER-INTERSECTION-1))
 (34 34 (:REWRITE DEFAULT-CAR))
 (22 22 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (22 22 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (19 19 (:REWRITE DEFAULT-CDR))
 )
(INTERSECTP-COMMUTES-2
 (32 32 (:REWRITE DEFAULT-CAR))
 (20 5 (:REWRITE INTERSECTP-COMMUTES-1))
 (15 15 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (15 15 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (10 10 (:REWRITE DEFAULT-CDR))
 )
(INTERSECTP-COMMUTES
 (109 109 (:REWRITE DEFAULT-CAR))
 (104 104 (:REWRITE DEFAULT-CDR))
 (55 55 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (55 55 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(MEMBER-SEQ-INT
 (36 34 (:REWRITE DEFAULT-+-2))
 (34 34 (:REWRITE DEFAULT-+-1))
 (32 30 (:REWRITE DEFAULT-<-1))
 (30 30 (:REWRITE DEFAULT-<-2))
 (23 23 (:REWRITE MEMBER-INTERSECTION-1))
 (18 18 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (16 11 (:REWRITE DEFAULT-CDR))
 (16 11 (:REWRITE DEFAULT-CAR))
 (10 10 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (10 10 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (4 4 (:REWRITE FOLD-CONSTS-IN-+))
 (2 2 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(S*-S-COMMUTES
 (3080 440 (:DEFINITION ASSOC-EQUAL))
 (1625 1276 (:REWRITE DEFAULT-+-2))
 (1453 1453 (:REWRITE DEFAULT-CAR))
 (1415 1415 (:REWRITE DEFAULT-CDR))
 (1377 577 (:META CANCEL_PLUS-LESSP-CORRECT))
 (1276 1276 (:REWRITE DEFAULT-+-1))
 (549 513 (:REWRITE DEFAULT-<-2))
 (525 513 (:REWRITE DEFAULT-<-1))
 (512 512 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (512 512 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (27 27 (:REWRITE EQUAL-CONSTANT-+))
 (15 15 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (10 10 (:REWRITE MEMBER-INTERSECTION-1))
 )
(G-S*
 (1785 255 (:DEFINITION ASSOC-EQUAL))
 (868 673 (:REWRITE DEFAULT-+-2))
 (849 849 (:REWRITE DEFAULT-CAR))
 (810 18 (:REWRITE NEW-FIELD-VALUE-S-COMMUTES))
 (802 802 (:REWRITE DEFAULT-CDR))
 (673 673 (:REWRITE DEFAULT-+-1))
 (329 298 (:REWRITE DEFAULT-<-2))
 (304 298 (:REWRITE DEFAULT-<-1))
 (297 297 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (297 297 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (180 68 (:REWRITE FOLD-CONSTS-IN-+))
 (124 14 (:REWRITE COMMUTATIVITY-2-OF-+))
 (18 18 (:REWRITE S-DIFF-S))
 (10 10 (:REWRITE MEMBER-INTERSECTION-1))
 (9 9 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (3 3 (:REWRITE EQUAL-CONSTANT-+))
 )
(MEMBER-INTERSECTION-2
 (11 1 (:DEFINITION INTERSECTP-EQUAL))
 (6 1 (:DEFINITION MEMBER-EQUAL))
 (2 2 (:REWRITE DEFAULT-CDR))
 (2 2 (:REWRITE DEFAULT-CAR))
 (1 1 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (1 1 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(NEW-FIELD-VALUE-S*
 (2505 1692 (:REWRITE DEFAULT-+-2))
 (1709 1692 (:REWRITE DEFAULT-+-1))
 (1596 228 (:DEFINITION ASSOC-EQUAL))
 (1342 117 (:DEFINITION NTH))
 (1340 720 (:REWRITE FOLD-CONSTS-IN-+))
 (1122 16 (:REWRITE S*-S-COMMUTES))
 (1025 205 (:DEFINITION LEN))
 (955 642 (:REWRITE DEFAULT-<-2))
 (939 917 (:REWRITE DEFAULT-CAR))
 (642 642 (:REWRITE DEFAULT-<-1))
 (331 331 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (331 331 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (166 66 (:REWRITE UNICITY-OF-0))
 (52 52 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (46 16 (:REWRITE S-DIFF-S))
 (25 25 (:REWRITE DEFAULT-UNARY-MINUS))
 (16 16 (:REWRITE EQUAL-CONSTANT-+))
 )
(SUBSETP-SEQ-INT
 (380 322 (:REWRITE DEFAULT-+-2))
 (322 322 (:REWRITE DEFAULT-+-1))
 (231 231 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (141 128 (:REWRITE DEFAULT-<-2))
 (128 128 (:REWRITE DEFAULT-<-1))
 (88 80 (:REWRITE DEFAULT-CAR))
 (75 67 (:REWRITE DEFAULT-CDR))
 (72 72 (:REWRITE MEMBER-INTERSECTION-2))
 (56 56 (:REWRITE MEMBER-INTERSECTION-1))
 (39 39 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (16 16 (:REWRITE DEFAULT-UNARY-MINUS))
 (5 5 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(INTERSECTP-SUBSETP
 (214 29 (:DEFINITION MEMBER-EQUAL))
 (49 49 (:REWRITE DEFAULT-CAR))
 (42 42 (:REWRITE DEFAULT-CDR))
 (29 29 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (29 29 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(S*-S*-COMMUTES
 (1199 13 (:DEFINITION INTERSECTP-EQUAL))
 (880 620 (:REWRITE DEFAULT-+-2))
 (805 115 (:DEFINITION ASSOC-EQUAL))
 (781 45 (:DEFINITION SEQ-INT))
 (666 620 (:REWRITE DEFAULT-+-1))
 (644 54 (:REWRITE COMMUTATIVITY-2-OF-+))
 (475 95 (:DEFINITION LEN))
 (466 51 (:DEFINITION NTH))
 (401 401 (:REWRITE DEFAULT-CAR))
 (397 397 (:REWRITE DEFAULT-CDR))
 (372 192 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (342 208 (:REWRITE DEFAULT-<-2))
 (302 176 (:REWRITE FOLD-CONSTS-IN-+))
 (208 208 (:REWRITE DEFAULT-<-1))
 (184 4 (:REWRITE NEW-FIELD-VALUE-S-COMMUTES))
 (126 22 (:REWRITE <-0-+-NEGATIVE-1))
 (121 121 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (121 121 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (76 10 (:REWRITE ASSOCIATIVITY-OF-+))
 (34 22 (:DEFINITION FIX))
 (34 14 (:REWRITE UNICITY-OF-0))
 (28 6 (:REWRITE DISTRIBUTIVITY-OF-MINUS-OVER-+))
 (24 20 (:REWRITE DEFAULT-UNARY-MINUS))
 (22 8 (:REWRITE MINUS-CANCELLATION-ON-LEFT))
 (8 6 (:TYPE-PRESCRIPTION |x < y  =>  0 < y-x|))
 (4 4 (:REWRITE S-DIFF-S))
 )
(COLLECT-FN
 (420 60 (:DEFINITION ASSOC-EQUAL))
 (302 249 (:REWRITE DEFAULT-CAR))
 (261 216 (:REWRITE DEFAULT-CDR))
 (221 152 (:REWRITE DEFAULT-+-2))
 (163 152 (:REWRITE DEFAULT-+-1))
 (140 109 (:REWRITE DEFAULT-<-1))
 (113 109 (:REWRITE DEFAULT-<-2))
 (66 66 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (14 14 (:REWRITE DEFAULT-UNARY-MINUS))
 (7 7 (:REWRITE ZP-OPEN))
 (7 7 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (3 3 (:REWRITE FOLD-CONSTS-IN-+))
 )
(MARK-FN
 (420 60 (:DEFINITION ASSOC-EQUAL))
 (302 249 (:REWRITE DEFAULT-CAR))
 (261 216 (:REWRITE DEFAULT-CDR))
 (221 152 (:REWRITE DEFAULT-+-2))
 (163 152 (:REWRITE DEFAULT-+-1))
 (140 109 (:REWRITE DEFAULT-<-1))
 (113 109 (:REWRITE DEFAULT-<-2))
 (66 66 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (14 14 (:REWRITE DEFAULT-UNARY-MINUS))
 (7 7 (:REWRITE ZP-OPEN))
 (7 7 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (3 3 (:REWRITE FOLD-CONSTS-IN-+))
 )
(S*-TAGS-OK
 (189 27 (:DEFINITION ASSOC-EQUAL))
 (87 87 (:REWRITE DEFAULT-CAR))
 (87 66 (:REWRITE DEFAULT-+-2))
 (71 71 (:REWRITE DEFAULT-CDR))
 (67 66 (:REWRITE DEFAULT-+-1))
 (56 43 (:REWRITE DEFAULT-<-1))
 (47 43 (:REWRITE DEFAULT-<-2))
 (35 35 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (35 35 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (7 7 (:REWRITE DEFAULT-UNARY-MINUS))
 (6 6 (:REWRITE ZP-OPEN))
 (4 4 (:REWRITE FOLD-CONSTS-IN-+))
 (1 1 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(TAGS-OK-FN
 (728 104 (:DEFINITION ASSOC-EQUAL))
 (493 428 (:REWRITE DEFAULT-CAR))
 (393 343 (:REWRITE DEFAULT-CDR))
 (374 280 (:REWRITE DEFAULT-+-2))
 (292 280 (:REWRITE DEFAULT-+-1))
 (218 181 (:REWRITE DEFAULT-<-1))
 (189 181 (:REWRITE DEFAULT-<-2))
 (133 133 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (19 19 (:REWRITE DEFAULT-UNARY-MINUS))
 (15 15 (:REWRITE ZP-OPEN))
 (9 9 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (6 6 (:REWRITE FOLD-CONSTS-IN-+))
 )
(AUTO-OPEN-COLLECT-FN
 (770 110 (:DEFINITION ASSOC-EQUAL))
 (430 430 (:REWRITE DEFAULT-CAR))
 (387 387 (:REWRITE DEFAULT-CDR))
 (327 263 (:REWRITE DEFAULT-+-2))
 (300 60 (:DEFINITION BINARY-APPEND))
 (272 16 (:DEFINITION SEQ-INT))
 (263 263 (:REWRITE DEFAULT-+-1))
 (253 81 (:REWRITE ZP-OPEN))
 (132 101 (:REWRITE DEFAULT-<-2))
 (120 120 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (120 120 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (106 101 (:REWRITE DEFAULT-<-1))
 (101 101 (:META CANCEL_PLUS-LESSP-CORRECT))
 (78 30 (:REWRITE FOLD-CONSTS-IN-+))
 (54 6 (:REWRITE COMMUTATIVITY-2-OF-+))
 (5 5 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(AUTO-OPEN-MARK-FN
 (966 138 (:DEFINITION ASSOC-EQUAL))
 (533 16 (:DEFINITION S*))
 (476 476 (:REWRITE DEFAULT-CAR))
 (397 397 (:REWRITE DEFAULT-CDR))
 (361 286 (:REWRITE DEFAULT-+-2))
 (286 286 (:REWRITE DEFAULT-+-1))
 (166 118 (:META CANCEL_PLUS-LESSP-CORRECT))
 (148 148 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (148 148 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (147 3 (:REWRITE G-S*))
 (146 115 (:REWRITE DEFAULT-<-2))
 (120 115 (:REWRITE DEFAULT-<-1))
 (112 68 (:REWRITE ZP-OPEN))
 (84 3 (:REWRITE MEMBER-SEQ-INT))
 (78 30 (:REWRITE FOLD-CONSTS-IN-+))
 (54 6 (:REWRITE COMMUTATIVITY-2-OF-+))
 (15 3 (:DEFINITION SEQ-INT))
 (5 5 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (3 3 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (3 3 (:REWRITE MEMBER-INTERSECTION-2))
 )
(AUTO-OPEN-TAGS-OK-FN
 (1330 190 (:DEFINITION ASSOC-EQUAL))
 (666 666 (:REWRITE DEFAULT-CAR))
 (664 572 (:REWRITE DEFAULT-+-2))
 (572 572 (:REWRITE DEFAULT-+-1))
 (534 534 (:REWRITE DEFAULT-CDR))
 (338 338 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (338 338 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (185 141 (:REWRITE DEFAULT-<-2))
 (162 18 (:REWRITE COMMUTATIVITY-2-OF-+))
 (149 141 (:REWRITE DEFAULT-<-1))
 (141 141 (:META CANCEL_PLUS-LESSP-CORRECT))
 (133 89 (:REWRITE ZP-OPEN))
 (102 54 (:REWRITE FOLD-CONSTS-IN-+))
 (8 8 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(ASSOC-APPEND
 (1526 613 (:TYPE-PRESCRIPTION TRUE-LISTP-APPEND))
 (815 613 (:TYPE-PRESCRIPTION BINARY-APPEND))
 (613 613 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (23 20 (:REWRITE DEFAULT-CAR))
 (19 16 (:REWRITE DEFAULT-CDR))
 (3 3 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (3 3 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(EQUAL-LEN-0
 (9 5 (:REWRITE DEFAULT-+-2))
 (5 5 (:REWRITE DEFAULT-+-1))
 (4 4 (:REWRITE DEFAULT-CDR))
 (4 4 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (4 4 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(COLLECT-S
 (5228 748 (:DEFINITION ASSOC-EQUAL))
 (2661 2661 (:REWRITE DEFAULT-CAR))
 (2248 2248 (:REWRITE DEFAULT-CDR))
 (2062 1697 (:REWRITE DEFAULT-+-2))
 (1697 1697 (:REWRITE DEFAULT-+-1))
 (1126 1126 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (1126 1126 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (884 52 (:DEFINITION SEQ-INT))
 (788 651 (:REWRITE DEFAULT-<-2))
 (710 142 (:DEFINITION BINARY-APPEND))
 (656 651 (:REWRITE DEFAULT-<-1))
 (651 651 (:META CANCEL_PLUS-LESSP-CORRECT))
 (104 104 (:TYPE-PRESCRIPTION SEQ-INT))
 (33 33 (:REWRITE EQUAL-CONSTANT-+))
 (5 5 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(INTERSECTP-SEQ-INT-CONS
 (12 2 (:DEFINITION SEQ-INT))
 (11 11 (:REWRITE DEFAULT-+-2))
 (11 11 (:REWRITE DEFAULT-+-1))
 (8 8 (:REWRITE DEFAULT-<-2))
 (8 8 (:REWRITE DEFAULT-<-1))
 (8 8 (:META CANCEL_PLUS-LESSP-CORRECT))
 (6 6 (:REWRITE ZP-OPEN))
 (5 5 (:REWRITE INTERSECTP-SUBSETP))
 (2 2 (:REWRITE MEMBER-INTERSECTION-2))
 (2 2 (:REWRITE DEFAULT-CDR))
 (2 2 (:REWRITE DEFAULT-CAR))
 )
(TAGS-OK-FN-S
 (5744 824 (:DEFINITION ASSOC-EQUAL))
 (2882 2882 (:REWRITE DEFAULT-CAR))
 (2307 1964 (:REWRITE DEFAULT-+-2))
 (2262 2262 (:REWRITE DEFAULT-CDR))
 (1964 1964 (:REWRITE DEFAULT-+-1))
 (1444 1444 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (1444 1444 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (725 581 (:REWRITE DEFAULT-<-2))
 (604 581 (:REWRITE DEFAULT-<-1))
 (581 581 (:META CANCEL_PLUS-LESSP-CORRECT))
 (29 29 (:REWRITE EQUAL-CONSTANT-+))
 (7 7 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(COLLECT-FN-S*
 (7643 78 (:DEFINITION COLLECT-FN))
 (4683 669 (:DEFINITION ASSOC-EQUAL))
 (2726 2181 (:REWRITE DEFAULT-+-2))
 (2428 2428 (:REWRITE DEFAULT-CAR))
 (2294 2294 (:REWRITE DEFAULT-CDR))
 (2181 2181 (:REWRITE DEFAULT-+-1))
 (1619 133 (:DEFINITION SEQ-INT))
 (1398 734 (:REWRITE ZP-OPEN))
 (1326 78 (:REWRITE AUTO-OPEN-COLLECT-FN))
 (1318 918 (:META CANCEL_PLUS-LESSP-CORRECT))
 (1222 886 (:REWRITE DEFAULT-<-2))
 (1201 1201 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (1201 1201 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (1079 31 (:REWRITE G-S*))
 (1023 31 (:REWRITE AUTO-OPEN-TAGS-OK-FN))
 (980 53 (:REWRITE MEMBER-SEQ-INT))
 (891 886 (:REWRITE DEFAULT-<-1))
 (780 156 (:DEFINITION BINARY-APPEND))
 (552 12 (:REWRITE S*-S-COMMUTES))
 (552 12 (:REWRITE NEW-FIELD-VALUE-S-COMMUTES))
 (164 164 (:TYPE-PRESCRIPTION SEQ-INT))
 (63 63 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (57 57 (:REWRITE MEMBER-INTERSECTION-2))
 (32 4 (:DEFINITION MEMBER-EQUAL))
 (24 6 (:REWRITE G-S))
 (12 12 (:REWRITE S-DIFF-S))
 (8 8 (:REWRITE EQUAL-CONSTANT-+))
 (7 7 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (6 6 (:REWRITE MEMBER-INTERSECTION-1))
 )
(HACK2A
 (5 5 (:REWRITE DEFAULT-+-2))
 (5 5 (:REWRITE DEFAULT-+-1))
 (5 1 (:DEFINITION SEQ-INT))
 (4 4 (:REWRITE DEFAULT-<-2))
 (4 4 (:REWRITE DEFAULT-<-1))
 (1 1 (:REWRITE MEMBER-INTERSECTION-2))
 )
(HACK2B
 (14 1 (:DEFINITION INTERSECTP-EQUAL))
 (7 1 (:DEFINITION MEMBER-EQUAL))
 (3 3 (:REWRITE MEMBER-INTERSECTION-2))
 (2 2 (:REWRITE INTERSECTP-SUBSETP))
 (2 2 (:REWRITE DEFAULT-CDR))
 (2 2 (:REWRITE DEFAULT-CAR))
 (1 1 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (1 1 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(HACK2
 (19 1 (:DEFINITION INTERSECTP-EQUAL))
 (13 1 (:REWRITE MEMBER-SEQ-INT))
 (5 5 (:REWRITE DEFAULT-+-2))
 (5 5 (:REWRITE DEFAULT-+-1))
 (5 1 (:DEFINITION SEQ-INT))
 (4 4 (:REWRITE DEFAULT-<-2))
 (4 4 (:REWRITE DEFAULT-<-1))
 (4 4 (:META CANCEL_PLUS-LESSP-CORRECT))
 (3 1 (:REWRITE COMMUTATIVITY-OF-+))
 (2 2 (:REWRITE INTERSECTP-SUBSETP))
 (1 1 (:REWRITE ZP-OPEN))
 (1 1 (:REWRITE MEMBER-INTERSECTION-2))
 (1 1 (:REWRITE DEFAULT-CDR))
 (1 1 (:REWRITE DEFAULT-CAR))
 )
(UNIQUE-SEQ-INT-LEMMA
 (10 10 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (9 9 (:REWRITE MEMBER-INTERSECTION-2))
 (9 9 (:REWRITE MEMBER-INTERSECTION-1))
 (9 9 (:REWRITE HACK2B))
 (8 4 (:REWRITE DEFAULT-<-2))
 (8 4 (:REWRITE DEFAULT-<-1))
 (6 4 (:REWRITE DEFAULT-+-2))
 (5 4 (:REWRITE DEFAULT-CDR))
 (5 4 (:REWRITE DEFAULT-CAR))
 (4 4 (:REWRITE ZP-OPEN))
 (4 4 (:REWRITE MEMBER-SEQ-INT))
 (4 4 (:REWRITE DEFAULT-+-1))
 (4 4 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (4 4 (:META CANCEL_PLUS-LESSP-CORRECT))
 (4 4 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(UNIQUE-SEQ-INT
 (24 3 (:DEFINITION MEMBER-EQUAL))
 (13 11 (:REWRITE DEFAULT-CDR))
 (8 7 (:REWRITE DEFAULT-CAR))
 (6 6 (:REWRITE MEMBER-INTERSECTION-2))
 (6 6 (:REWRITE MEMBER-INTERSECTION-1))
 (6 6 (:REWRITE HACK2B))
 (6 4 (:REWRITE DEFAULT-+-2))
 (4 4 (:REWRITE ZP-OPEN))
 (4 4 (:REWRITE DEFAULT-+-1))
 (3 3 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (3 3 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (3 3 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (2 2 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(INTERSECTP-HACK1
 (34 34 (:REWRITE DEFAULT-CAR))
 (27 27 (:REWRITE MEMBER-INTERSECTION-2))
 (27 27 (:REWRITE HACK2B))
 (17 17 (:REWRITE DEFAULT-CDR))
 (16 16 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (16 16 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (14 14 (:REWRITE INTERSECTP-SUBSETP))
 )
(INTERSECTP-X-X
 (2 2 (:REWRITE DEFAULT-CAR))
 (1 1 (:REWRITE MEMBER-INTERSECTION-2))
 (1 1 (:REWRITE MEMBER-INTERSECTION-1))
 (1 1 (:REWRITE INTERSECTP-SUBSETP))
 (1 1 (:REWRITE HACK2B))
 )
(CONSP-SEQ-INT
 (13 13 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (13 9 (:REWRITE DEFAULT-+-2))
 (9 9 (:REWRITE DEFAULT-+-1))
 (4 4 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (2 2 (:META CANCEL_PLUS-LESSP-CORRECT))
 (1 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE DEFAULT-<-1))
 (1 1 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (1 1 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(TAGS-OK-FN-S*
 (14630 72 (:DEFINITION TAGS-OK-FN))
 (4977 711 (:DEFINITION ASSOC-EQUAL))
 (2797 2278 (:REWRITE DEFAULT-+-2))
 (2429 2423 (:REWRITE DEFAULT-CAR))
 (2278 2278 (:REWRITE DEFAULT-+-1))
 (2229 2223 (:REWRITE DEFAULT-CDR))
 (1561 1561 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (1561 1561 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (1224 72 (:REWRITE AUTO-OPEN-TAGS-OK-FN))
 (1214 28 (:REWRITE G-S*))
 (1066 795 (:REWRITE DEFAULT-<-2))
 (1008 810 (:META CANCEL_PLUS-LESSP-CORRECT))
 (799 795 (:REWRITE DEFAULT-<-1))
 (638 38 (:REWRITE MEMBER-SEQ-INT))
 (486 430 (:REWRITE ZP-OPEN))
 (390 9 (:REWRITE S*-S-COMMUTES))
 (360 9 (:REWRITE NEW-FIELD-VALUE-S-COMMUTES))
 (262 48 (:DEFINITION SEQ-INT))
 (154 44 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (110 4 (:DEFINITION MEMBER-EQUAL))
 (54 54 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (48 48 (:REWRITE HACK2B))
 (48 6 (:REWRITE CONSP-SEQ-INT))
 (42 42 (:REWRITE MEMBER-INTERSECTION-2))
 (36 36 (:REWRITE HACK2))
 (18 18 (:TYPE-PRESCRIPTION SEQ-INT))
 (12 3 (:REWRITE G-S))
 (10 10 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (9 9 (:REWRITE S-DIFF-S))
 (6 6 (:REWRITE MEMBER-INTERSECTION-1))
 (6 6 (:REWRITE HACK2A))
 (5 5 (:REWRITE EQUAL-CONSTANT-+))
 )
(G-S*-NEW
 (1568 224 (:DEFINITION ASSOC-EQUAL))
 (830 666 (:REWRITE DEFAULT-+-2))
 (767 761 (:REWRITE DEFAULT-CAR))
 (711 705 (:REWRITE DEFAULT-CDR))
 (666 666 (:REWRITE DEFAULT-+-1))
 (638 38 (:REWRITE MEMBER-SEQ-INT))
 (547 349 (:META CANCEL_PLUS-LESSP-CORRECT))
 (390 9 (:REWRITE S*-S-COMMUTES))
 (365 334 (:REWRITE DEFAULT-<-2))
 (364 334 (:REWRITE DEFAULT-<-1))
 (360 9 (:REWRITE NEW-FIELD-VALUE-S-COMMUTES))
 (346 346 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (346 346 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (180 44 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (127 71 (:REWRITE ZP-OPEN))
 (48 48 (:REWRITE HACK2B))
 (48 6 (:REWRITE CONSP-SEQ-INT))
 (42 42 (:REWRITE MEMBER-INTERSECTION-2))
 (36 36 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (18 18 (:TYPE-PRESCRIPTION SEQ-INT))
 (9 9 (:REWRITE S-DIFF-S))
 (6 6 (:REWRITE MEMBER-INTERSECTION-1))
 (6 6 (:REWRITE HACK2A))
 (6 6 (:REWRITE HACK2))
 (2 2 (:REWRITE EQUAL-CONSTANT-+))
 )
(TAGS-OK-FN-MARK-FN-HINT
 (420 60 (:DEFINITION ASSOC-EQUAL))
 (302 249 (:REWRITE DEFAULT-CAR))
 (261 216 (:REWRITE DEFAULT-CDR))
 (221 152 (:REWRITE DEFAULT-+-2))
 (163 152 (:REWRITE DEFAULT-+-1))
 (140 109 (:REWRITE DEFAULT-<-1))
 (113 109 (:REWRITE DEFAULT-<-2))
 (66 66 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (14 14 (:REWRITE DEFAULT-UNARY-MINUS))
 (7 7 (:REWRITE ZP-OPEN))
 (7 7 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (3 3 (:REWRITE FOLD-CONSTS-IN-+))
 )
(TAGS-OK-FN-MARK-FN
 (9199 1337 (:DEFINITION ASSOC-EQUAL))
 (4562 4562 (:REWRITE DEFAULT-CAR))
 (4503 3727 (:REWRITE DEFAULT-+-2))
 (3839 3839 (:REWRITE DEFAULT-CDR))
 (3727 3727 (:REWRITE DEFAULT-+-1))
 (2503 2503 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (2503 2503 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (2391 75 (:DEFINITION S*))
 (1731 1252 (:REWRITE DEFAULT-<-2))
 (1337 1257 (:META CANCEL_PLUS-LESSP-CORRECT))
 (1252 1252 (:REWRITE DEFAULT-<-1))
 (342 6 (:REWRITE G-S*))
 (173 6 (:REWRITE MEMBER-SEQ-INT))
 (42 6 (:DEFINITION SEQ-INT))
 (24 6 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (12 6 (:REWRITE G-S*-NEW))
 (6 6 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (6 6 (:REWRITE MEMBER-INTERSECTION-2))
 (6 6 (:REWRITE HACK2B))
 (1 1 (:REWRITE HACK2))
 )
(G-MARK-FN-1
 (4382 62 (:DEFINITION S*-TAGS-OK))
 (3879 565 (:DEFINITION ASSOC-EQUAL))
 (1925 1925 (:REWRITE DEFAULT-CAR))
 (1614 1349 (:REWRITE DEFAULT-+-2))
 (1544 1544 (:REWRITE DEFAULT-CDR))
 (1349 1349 (:REWRITE DEFAULT-+-1))
 (892 26 (:DEFINITION S*))
 (846 846 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (846 846 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (639 529 (:REWRITE DEFAULT-<-2))
 (580 532 (:META CANCEL_PLUS-LESSP-CORRECT))
 (533 529 (:REWRITE DEFAULT-<-1))
 (231 4 (:REWRITE G-S*))
 (114 4 (:REWRITE MEMBER-SEQ-INT))
 (32 4 (:DEFINITION SEQ-INT))
 (17 4 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (4 4 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (4 4 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (4 4 (:REWRITE MEMBER-INTERSECTION-2))
 (4 4 (:REWRITE HACK2B))
 )
(COLLECT-FN-MARK-FN
 (12171 1757 (:DEFINITION ASSOC-EQUAL))
 (6765 6297 (:REWRITE DEFAULT-CAR))
 (6194 5034 (:REWRITE DEFAULT-+-2))
 (6006 5538 (:REWRITE DEFAULT-CDR))
 (5616 312 (:DEFINITION BINARY-APPEND))
 (5034 5034 (:REWRITE DEFAULT-+-1))
 (3418 2266 (:REWRITE DEFAULT-<-2))
 (3276 468 (:REWRITE CONSP-SEQ-INT))
 (3202 3202 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (3202 3202 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (2696 160 (:DEFINITION SEQ-INT))
 (2652 156 (:REWRITE AUTO-OPEN-COLLECT-FN))
 (2300 2268 (:META CANCEL_PLUS-LESSP-CORRECT))
 (2270 2266 (:REWRITE DEFAULT-<-1))
 (1309 38 (:DEFINITION S*))
 (780 780 (:TYPE-PRESCRIPTION SEQ-INT))
 (252 4 (:REWRITE G-S*))
 (154 100 (:REWRITE G-MARK-FN-1))
 (122 4 (:REWRITE MEMBER-SEQ-INT))
 (16 4 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (6 4 (:REWRITE G-S*-NEW))
 (4 4 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (4 4 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (4 4 (:REWRITE MEMBER-INTERSECTION-2))
 (4 4 (:REWRITE HACK2B))
 (2 2 (:REWRITE HACK2))
 )
(G-MARK-FN-2
 (8092 1172 (:DEFINITION ASSOC-EQUAL))
 (4252 4147 (:REWRITE DEFAULT-CAR))
 (3535 3430 (:REWRITE DEFAULT-CDR))
 (3174 2572 (:REWRITE DEFAULT-+-2))
 (2572 2572 (:REWRITE DEFAULT-+-1))
 (1650 1650 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (1650 1650 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (1525 123 (:DEFINITION BINARY-APPEND))
 (1517 1181 (:REWRITE DEFAULT-<-2))
 (1266 1186 (:META CANCEL_PLUS-LESSP-CORRECT))
 (1193 1181 (:REWRITE DEFAULT-<-1))
 (739 47 (:DEFINITION SEQ-INT))
 (735 105 (:REWRITE CONSP-SEQ-INT))
 (238 238 (:REWRITE MEMBER-INTERSECTION-2))
 (238 238 (:REWRITE HACK2B))
 (225 225 (:REWRITE MEMBER-INTERSECTION-1))
 (175 175 (:TYPE-PRESCRIPTION SEQ-INT))
 (170 116 (:REWRITE G-MARK-FN-1))
 (30 12 (:REWRITE G-S*-NEW))
 (12 12 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(COLLECT-IS-COLLECT-FN-MAIN
 (1501 215 (:DEFINITION ASSOC-EQUAL))
 (1194 88 (:DEFINITION BINARY-APPEND))
 (893 806 (:REWRITE DEFAULT-CAR))
 (816 729 (:REWRITE DEFAULT-CDR))
 (623 497 (:REWRITE DEFAULT-+-2))
 (609 87 (:REWRITE CONSP-SEQ-INT))
 (497 497 (:REWRITE DEFAULT-+-1))
 (493 29 (:DEFINITION SEQ-INT))
 (393 279 (:REWRITE DEFAULT-<-2))
 (281 279 (:REWRITE DEFAULT-<-1))
 (279 279 (:META CANCEL_PLUS-LESSP-CORRECT))
 (253 253 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (253 253 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (145 145 (:TYPE-PRESCRIPTION SEQ-INT))
 (2 2 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(COLLECT-IS-COLLECT-FN)
(MARK-IS-MARK-FN-MAIN
 (1987 285 (:DEFINITION ASSOC-EQUAL))
 (1224 36 (:DEFINITION S*))
 (1001 992 (:REWRITE DEFAULT-CAR))
 (826 817 (:REWRITE DEFAULT-CDR))
 (715 569 (:REWRITE DEFAULT-+-2))
 (569 569 (:REWRITE DEFAULT-+-1))
 (334 262 (:REWRITE DEFAULT-<-2))
 (328 328 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (328 328 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (300 3 (:REWRITE G-MARK-FN-2))
 (296 264 (:META CANCEL_PLUS-LESSP-CORRECT))
 (264 262 (:REWRITE DEFAULT-<-1))
 (210 3 (:DEFINITION COLLECT-FN))
 (102 2 (:REWRITE G-S*))
 (93 3 (:DEFINITION BINARY-APPEND))
 (63 9 (:REWRITE CONSP-SEQ-INT))
 (61 5 (:DEFINITION SEQ-INT))
 (51 3 (:DEFINITION MEMBER-EQUAL))
 (50 2 (:REWRITE MEMBER-SEQ-INT))
 (18 3 (:REWRITE AUTO-OPEN-COLLECT-FN))
 (17 17 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (15 15 (:TYPE-PRESCRIPTION SEQ-INT))
 (12 12 (:TYPE-PRESCRIPTION COLLECT-FN))
 (8 8 (:REWRITE MEMBER-INTERSECTION-2))
 (8 8 (:REWRITE HACK2B))
 (8 2 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (6 6 (:REWRITE MEMBER-INTERSECTION-1))
 (6 6 (:REWRITE HACK2))
 (3 3 (:REWRITE G-MARK-FN-1))
 (3 3 (:REWRITE EQUAL-CONSTANT-+))
 (2 2 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (2 2 (:REWRITE G-S*-NEW))
 )
(MARK-IS-MARK-FN)
(READ-OVER-BAB
 (360 8 (:DEFINITION S*-TAGS-OK))
 (330 5 (:DEFINITION COLLECT-FN))
 (189 27 (:DEFINITION ASSOC-EQUAL))
 (165 7 (:DEFINITION BINARY-APPEND))
 (154 154 (:TYPE-PRESCRIPTION LEN))
 (148 68 (:REWRITE ZP-OPEN))
 (126 3 (:DEFINITION MARK-FN))
 (119 104 (:REWRITE DEFAULT-CAR))
 (105 15 (:REWRITE CONSP-SEQ-INT))
 (97 82 (:REWRITE DEFAULT-CDR))
 (96 80 (:REWRITE DEFAULT-+-2))
 (95 19 (:REWRITE COMMUTATIVITY-OF-+))
 (87 3 (:DEFINITION S*))
 (85 5 (:DEFINITION SEQ-INT))
 (80 80 (:REWRITE DEFAULT-+-1))
 (80 16 (:DEFINITION LEN))
 (52 26 (:REWRITE DEFAULT-<-2))
 (48 48 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (48 48 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (38 19 (:REWRITE UNICITY-OF-0))
 (33 8 (:REWRITE AUTO-OPEN-TAGS-OK-FN))
 (30 5 (:REWRITE AUTO-OPEN-COLLECT-FN))
 (26 26 (:REWRITE DEFAULT-<-1))
 (26 26 (:META CANCEL_PLUS-LESSP-CORRECT))
 (25 25 (:TYPE-PRESCRIPTION SEQ-INT))
 (22 11 (:DEFINITION NTH))
 (19 19 (:DEFINITION FIX))
 (18 3 (:REWRITE AUTO-OPEN-MARK-FN))
 (12 12 (:REWRITE MEMBER-INTERSECTION-2))
 (12 12 (:REWRITE MEMBER-INTERSECTION-1))
 (12 12 (:REWRITE HACK2B))
 )
(MARK-FN-S
 (10590 1534 (:DEFINITION ASSOC-EQUAL))
 (5644 5413 (:REWRITE DEFAULT-CAR))
 (4765 4534 (:REWRITE DEFAULT-CDR))
 (4431 51 (:REWRITE G-MARK-FN-2))
 (4254 3433 (:REWRITE DEFAULT-+-2))
 (3433 3433 (:REWRITE DEFAULT-+-1))
 (2812 162 (:DEFINITION BINARY-APPEND))
 (2435 1862 (:REWRITE DEFAULT-<-2))
 (2139 2139 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (2139 2139 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (2066 1874 (:META CANCEL_PLUS-LESSP-CORRECT))
 (1924 1862 (:REWRITE DEFAULT-<-1))
 (1617 231 (:REWRITE CONSP-SEQ-INT))
 (1095 26 (:REWRITE NEW-FIELD-VALUE-S-COMMUTES))
 (648 12 (:REWRITE G-S*))
 (401 401 (:REWRITE MEMBER-INTERSECTION-2))
 (401 401 (:REWRITE HACK2B))
 (385 385 (:TYPE-PRESCRIPTION SEQ-INT))
 (328 328 (:REWRITE MEMBER-INTERSECTION-1))
 (243 15 (:REWRITE COLLECT-S))
 (102 102 (:REWRITE HACK2))
 (78 26 (:REWRITE S-DIFF-S))
 (75 51 (:REWRITE G-MARK-FN-1))
 (69 69 (:REWRITE EQUAL-CONSTANT-+))
 (62 62 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (30 12 (:REWRITE G-S*-NEW))
 )
(NEW-FIELD-VALUE-MARK-FN
 (8190 1186 (:DEFINITION ASSOC-EQUAL))
 (6334 85 (:DEFINITION S*-TAGS-OK))
 (4793 4301 (:REWRITE DEFAULT-CAR))
 (4148 3656 (:REWRITE DEFAULT-CDR))
 (3496 2740 (:REWRITE DEFAULT-+-2))
 (2952 30 (:REWRITE G-MARK-FN-2))
 (2743 2740 (:REWRITE DEFAULT-+-1))
 (2165 1513 (:REWRITE DEFAULT-<-2))
 (2156 140 (:DEFINITION BINARY-APPEND))
 (1642 1642 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (1642 1642 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (1566 1513 (:REWRITE DEFAULT-<-1))
 (1564 1516 (:META CANCEL_PLUS-LESSP-CORRECT))
 (1309 38 (:DEFINITION S*))
 (501 261 (:REWRITE INTERSECTP-SUBSETP))
 (497 497 (:TYPE-PRESCRIPTION COLLECT-FN))
 (349 233 (:REWRITE MEMBER-INTERSECTION-2))
 (349 233 (:REWRITE HACK2B))
 (319 35 (:REWRITE MEMBER-SEQ-INT))
 (263 3 (:REWRITE G-S*))
 (230 5 (:DEFINITION SUBSETP-EQUAL))
 (153 132 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (124 10 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (60 60 (:REWRITE HACK2))
 (54 30 (:REWRITE G-MARK-FN-1))
 (42 42 (:REWRITE EQUAL-CONSTANT-+))
 (25 25 (:TYPE-PRESCRIPTION SUBSETP-EQUAL))
 (5 3 (:REWRITE G-S*-NEW))
 )
(MARK-FN-S*
 (15122 80 (:DEFINITION MARK-FN))
 (7861 1123 (:DEFINITION ASSOC-EQUAL))
 (6136 34 (:REWRITE NEW-FIELD-VALUE-S*))
 (5007 3905 (:REWRITE DEFAULT-+-2))
 (4415 4124 (:REWRITE DEFAULT-CAR))
 (4082 3791 (:REWRITE DEFAULT-CDR))
 (4082 37 (:DEFINITION COLLECT-FN))
 (3967 3905 (:REWRITE DEFAULT-+-1))
 (3502 30 (:REWRITE INTERSECTP-COMMUTES))
 (2582 1092 (:REWRITE ZP-OPEN))
 (2420 34 (:REWRITE G-S*))
 (2261 1621 (:REWRITE DEFAULT-<-2))
 (2206 1716 (:META CANCEL_PLUS-LESSP-CORRECT))
 (2193 171 (:DEFINITION MEMBER-EQUAL))
 (1960 1960 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (1960 1960 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (1910 30 (:REWRITE NEW-FIELD-VALUE-S-COMMUTES))
 (1837 1621 (:REWRITE DEFAULT-<-1))
 (1424 80 (:REWRITE AUTO-OPEN-MARK-FN))
 (1332 74 (:DEFINITION BINARY-APPEND))
 (1295 170 (:REWRITE HACK2B))
 (1221 37 (:REWRITE AUTO-OPEN-COLLECT-FN))
 (1122 34 (:REWRITE AUTO-OPEN-TAGS-OK-FN))
 (1055 155 (:REWRITE MEMBER-INTERSECTION-2))
 (1020 30 (:REWRITE S*-S-COMMUTES))
 (699 107 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (598 478 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (280 60 (:REWRITE <-0-+-NEGATIVE-1))
 (192 32 (:REWRITE ASSOCIATIVITY-OF-+))
 (154 154 (:REWRITE INTERSECTP-SUBSETP))
 (135 45 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (87 87 (:REWRITE EQUAL-CONSTANT-+))
 (86 34 (:REWRITE G-S*-NEW))
 (80 16 (:REWRITE DISTRIBUTIVITY-OF-MINUS-OVER-+))
 (52 52 (:REWRITE HACK2))
 (48 32 (:REWRITE DEFAULT-UNARY-MINUS))
 (30 30 (:REWRITE S-DIFF-S))
 (28 18 (:TYPE-PRESCRIPTION |x < y  =>  0 < y-x|))
 (28 14 (:REWRITE MINUS-CANCELLATION-ON-LEFT))
 (24 6 (:REWRITE G-S))
 )
(G-MARK-FN
 (9142 1322 (:DEFINITION ASSOC-EQUAL))
 (5056 4807 (:REWRITE DEFAULT-CAR))
 (4317 4068 (:REWRITE DEFAULT-CDR))
 (3829 3008 (:REWRITE DEFAULT-+-2))
 (3105 205 (:DEFINITION BINARY-APPEND))
 (3008 3008 (:REWRITE DEFAULT-+-1))
 (2008 1509 (:REWRITE DEFAULT-<-2))
 (1873 1873 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (1873 1873 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (1752 249 (:REWRITE CONSP-SEQ-INT))
 (1611 1515 (:META CANCEL_PLUS-LESSP-CORRECT))
 (1608 1509 (:REWRITE DEFAULT-<-1))
 (1560 96 (:DEFINITION SEQ-INT))
 (453 3 (:REWRITE MARK-FN-S*))
 (449 449 (:REWRITE MEMBER-INTERSECTION-2))
 (449 449 (:REWRITE HACK2B))
 (435 435 (:REWRITE MEMBER-INTERSECTION-1))
 (421 421 (:TYPE-PRESCRIPTION SEQ-INT))
 (180 3 (:DEFINITION INTERSECTP-EQUAL))
 (134 110 (:REWRITE G-MARK-FN-1))
 (78 78 (:REWRITE HACK2))
 (39 39 (:REWRITE EQUAL-CONSTANT-+))
 (31 13 (:REWRITE G-S*-NEW))
 (15 15 (:TYPE-PRESCRIPTION INTERSECTP-EQUAL))
 (11 11 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (6 6 (:REWRITE INTERSECTP-SUBSETP))
 )
(MARK-FN-MARK-FN
 (39018 5646 (:DEFINITION ASSOC-EQUAL))
 (35824 290 (:REWRITE G-MARK-FN))
 (33539 338 (:DEFINITION S*))
 (23419 21352 (:REWRITE DEFAULT-CAR))
 (23025 140 (:REWRITE NEW-FIELD-VALUE-MARK-FN))
 (22897 278 (:REWRITE G-MARK-FN-2))
 (20933 18866 (:REWRITE DEFAULT-CDR))
 (19362 976 (:DEFINITION BINARY-APPEND))
 (19185 15237 (:REWRITE DEFAULT-+-2))
 (15238 15237 (:REWRITE DEFAULT-+-1))
 (12312 2067 (:REWRITE CONSP-SEQ-INT))
 (11108 7503 (:REWRITE DEFAULT-<-2))
 (10401 717 (:DEFINITION SEQ-INT))
 (9764 9764 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (9764 9764 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (7780 7503 (:REWRITE DEFAULT-<-1))
 (7690 7514 (:META CANCEL_PLUS-LESSP-CORRECT))
 (4019 4019 (:TYPE-PRESCRIPTION SEQ-INT))
 (3616 1540 (:REWRITE MEMBER-INTERSECTION-2))
 (3616 1540 (:REWRITE HACK2B))
 (1198 611 (:REWRITE INTERSECTP-SUBSETP))
 (1093 1093 (:REWRITE HACK2))
 (1054 16 (:REWRITE G-S*))
 (955 38 (:REWRITE MEMBER-SEQ-INT))
 (680 680 (:REWRITE EQUAL-CONSTANT-+))
 (553 17 (:DEFINITION SUBSETP-EQUAL))
 (157 30 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (141 1 (:REWRITE NEW-FIELD-VALUE-S*))
 (85 85 (:TYPE-PRESCRIPTION SUBSETP-EQUAL))
 (28 16 (:REWRITE G-S*-NEW))
 (22 19 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(MERGE-TAGS
 (244 6 (:DEFINITION ACL2-COUNT))
 (79 38 (:REWRITE DEFAULT-+-2))
 (53 38 (:REWRITE DEFAULT-+-1))
 (40 8 (:DEFINITION INTEGER-ABS))
 (32 8 (:REWRITE COMMUTATIVITY-OF-+))
 (32 4 (:DEFINITION LENGTH))
 (20 4 (:DEFINITION LEN))
 (12 12 (:REWRITE DEFAULT-CDR))
 (12 10 (:REWRITE DEFAULT-<-1))
 (11 11 (:REWRITE FOLD-CONSTS-IN-+))
 (11 10 (:REWRITE DEFAULT-<-2))
 (10 10 (:META CANCEL_PLUS-LESSP-CORRECT))
 (8 8 (:REWRITE DEFAULT-UNARY-MINUS))
 (7 7 (:REWRITE DEFAULT-CAR))
 (4 4 (:TYPE-PRESCRIPTION LEN))
 (4 4 (:REWRITE NUMERATOR-WHEN-INTEGERP))
 (4 4 (:REWRITE INTEGERP==>DENOMINATOR=1))
 (4 4 (:REWRITE DEFAULT-REALPART))
 (4 4 (:REWRITE DEFAULT-NUMERATOR))
 (4 4 (:REWRITE DEFAULT-IMAGPART))
 (4 4 (:REWRITE DEFAULT-DENOMINATOR))
 (4 4 (:REWRITE DEFAULT-COERCE-2))
 (4 4 (:REWRITE DEFAULT-COERCE-1))
 )
(G-MERGE-TAGS
 (30 30 (:REWRITE DEFAULT-CAR))
 (14 14 (:REWRITE MEMBER-INTERSECTION-2))
 (14 14 (:REWRITE MEMBER-INTERSECTION-1))
 (14 14 (:REWRITE HACK2B))
 (12 12 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (12 12 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (10 10 (:REWRITE DEFAULT-CDR))
 )
(MERGE-TAGS-APPEND
 (43 37 (:REWRITE DEFAULT-CAR))
 (28 14 (:TYPE-PRESCRIPTION TRUE-LISTP-APPEND))
 (19 16 (:REWRITE DEFAULT-CDR))
 (14 14 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (14 14 (:TYPE-PRESCRIPTION BINARY-APPEND))
 (3 3 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (3 3 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(MERGE-TAGS-S
 (66 66 (:REWRITE DEFAULT-CAR))
 (32 32 (:REWRITE DEFAULT-CDR))
 (13 13 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (13 13 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(MERGE-TAGS-COMMUTES
 (36 36 (:REWRITE DEFAULT-CAR))
 (15 15 (:REWRITE DEFAULT-CDR))
 (3 3 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (3 3 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(S*-TAGS-OK-MERGE-TAGS-1
 (1505 215 (:DEFINITION ASSOC-EQUAL))
 (889 880 (:REWRITE DEFAULT-CAR))
 (864 724 (:REWRITE DEFAULT-+-2))
 (753 744 (:REWRITE DEFAULT-CDR))
 (724 724 (:REWRITE DEFAULT-+-1))
 (369 330 (:REWRITE DEFAULT-<-2))
 (350 330 (:REWRITE DEFAULT-<-1))
 (334 334 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (334 334 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (248 62 (:DEFINITION MERGE-TAGS))
 (168 80 (:REWRITE ZP-OPEN))
 (114 3 (:DEFINITION MEMBER-EQUAL))
 (83 16 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (63 9 (:REWRITE CONSP-SEQ-INT))
 (48 48 (:REWRITE INTERSECTP-SUBSETP))
 (26 26 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (19 19 (:REWRITE MEMBER-INTERSECTION-2))
 (6 6 (:REWRITE MEMBER-INTERSECTION-1))
 )
(S*-TAGS-OK-S
 (3360 480 (:DEFINITION ASSOC-EQUAL))
 (2420 2054 (:REWRITE DEFAULT-+-2))
 (2063 2054 (:REWRITE DEFAULT-+-1))
 (1703 1674 (:REWRITE DEFAULT-CAR))
 (1597 1568 (:REWRITE DEFAULT-CDR))
 (1097 1097 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (1097 1097 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (766 682 (:REWRITE DEFAULT-<-2))
 (718 682 (:REWRITE DEFAULT-<-1))
 (705 705 (:META CANCEL_PLUS-LESSP-CORRECT))
 (208 24 (:REWRITE CONSP-SEQ-INT))
 (154 32 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (136 136 (:REWRITE EQUAL-CONSTANT-+))
 (49 49 (:REWRITE MEMBER-INTERSECTION-2))
 (49 49 (:REWRITE HACK2B))
 (47 47 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (25 25 (:REWRITE MEMBER-INTERSECTION-1))
 (24 16 (:TYPE-PRESCRIPTION |x < y  =>  0 < y-x|))
 (20 4 (:REWRITE <-0-+-NEGATIVE-2))
 (16 16 (:REWRITE DEFAULT-UNARY-MINUS))
 )
(KOLLECT-FN)
(TAGS-OK-FN-S-TAGS
 (26432 3784 (:DEFINITION ASSOC-EQUAL))
 (13842 13440 (:REWRITE DEFAULT-CAR))
 (11121 9234 (:REWRITE DEFAULT-+-2))
 (11089 10687 (:REWRITE DEFAULT-CDR))
 (9337 9234 (:REWRITE DEFAULT-+-1))
 (6173 6173 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (6173 6173 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (4771 3642 (:REWRITE DEFAULT-<-2))
 (3811 3642 (:REWRITE DEFAULT-<-1))
 (3676 3676 (:META CANCEL_PLUS-LESSP-CORRECT))
 (1993 381 (:REWRITE CONSP-SEQ-INT))
 (512 512 (:REWRITE MEMBER-INTERSECTION-2))
 (512 512 (:REWRITE HACK2B))
 (357 357 (:REWRITE MEMBER-INTERSECTION-1))
 (176 176 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (164 164 (:REWRITE EQUAL-CONSTANT-+))
 (36 12 (:TYPE-PRESCRIPTION TRUE-LISTP-APPEND))
 (25 17 (:TYPE-PRESCRIPTION |x < y  =>  0 < y-x|))
 (22 22 (:REWRITE DEFAULT-UNARY-MINUS))
 (20 4 (:REWRITE <-0-+-NEGATIVE-2))
 (12 12 (:TYPE-PRESCRIPTION BINARY-APPEND))
 )
(S*-TAGS-OK-MERGE-TAGS
 (2625 375 (:DEFINITION ASSOC-EQUAL))
 (2241 1864 (:REWRITE DEFAULT-+-2))
 (1871 1862 (:REWRITE DEFAULT-+-1))
 (1483 1442 (:REWRITE DEFAULT-CAR))
 (1337 1296 (:REWRITE DEFAULT-CDR))
 (762 466 (:REWRITE FOLD-CONSTS-IN-+))
 (747 620 (:REWRITE DEFAULT-<-2))
 (666 619 (:REWRITE DEFAULT-<-1))
 (630 630 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (630 630 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (555 12 (:DEFINITION MEMBER-EQUAL))
 (304 36 (:REWRITE CONSP-SEQ-INT))
 (220 43 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (208 52 (:DEFINITION MERGE-TAGS))
 (150 54 (:REWRITE HACK2))
 (120 12 (:REWRITE HACK2A))
 (116 116 (:REWRITE INTERSECTP-SUBSETP))
 (67 67 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (55 55 (:REWRITE MEMBER-INTERSECTION-2))
 (28 20 (:TYPE-PRESCRIPTION |x < y  =>  0 < y-x|))
 (24 24 (:REWRITE MEMBER-INTERSECTION-1))
 (22 22 (:REWRITE DEFAULT-UNARY-MINUS))
 (20 4 (:REWRITE <-0-+-NEGATIVE-2))
 (4 2 (:REWRITE MINUS-CANCELLATION-ON-RIGHT))
 )
(TAGS-OK-FN-MERGE-TAGS-2
 (14832 2128 (:DEFINITION ASSOC-EQUAL))
 (9460 9081 (:REWRITE DEFAULT-CAR))
 (8941 741 (:REWRITE MEMBER-INTERSECTION-2))
 (8315 6905 (:REWRITE DEFAULT-+-2))
 (7987 234 (:REWRITE S*-TAGS-OK-MERGE-TAGS-1))
 (7877 7498 (:REWRITE DEFAULT-CDR))
 (6963 6905 (:REWRITE DEFAULT-+-1))
 (4300 4300 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (4300 4300 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (4059 3384 (:REWRITE DEFAULT-<-2))
 (3547 3384 (:REWRITE DEFAULT-<-1))
 (3084 3084 (:TYPE-PRESCRIPTION COLLECT-FN))
 (1868 1144 (:REWRITE FOLD-CONSTS-IN-+))
 (1748 345 (:REWRITE CONSP-SEQ-INT))
 (715 143 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (633 633 (:REWRITE INTERSECTP-SUBSETP))
 (524 131 (:DEFINITION MERGE-TAGS))
 (393 393 (:REWRITE EQUAL-CONSTANT-+))
 (335 223 (:REWRITE HACK2))
 (210 210 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (140 14 (:REWRITE HACK2A))
 (122 6 (:REWRITE MEMBER-APPEND))
 (29 21 (:TYPE-PRESCRIPTION |x < y  =>  0 < y-x|))
 (28 28 (:REWRITE DEFAULT-UNARY-MINUS))
 (20 4 (:REWRITE <-0-+-NEGATIVE-2))
 (6 2 (:TYPE-PRESCRIPTION TRUE-LISTP-APPEND))
 (4 2 (:REWRITE MINUS-CANCELLATION-ON-RIGHT))
 (2 2 (:TYPE-PRESCRIPTION BINARY-APPEND))
 )
(S*-TAGS-OK-MERGE-TAGS-2
 (1652 1385 (:REWRITE DEFAULT-+-2))
 (1589 227 (:DEFINITION ASSOC-EQUAL))
 (1528 51 (:REWRITE S*-TAGS-OK-MERGE-TAGS-1))
 (1385 1385 (:REWRITE DEFAULT-+-1))
 (884 802 (:REWRITE DEFAULT-CAR))
 (851 771 (:REWRITE DEFAULT-CDR))
 (411 328 (:REWRITE DEFAULT-<-2))
 (408 80 (:REWRITE CONSP-SEQ-INT))
 (342 328 (:REWRITE DEFAULT-<-1))
 (324 324 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (324 324 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (208 17 (:REWRITE INTERSECTP-X-X))
 (54 54 (:REWRITE DEFAULT-UNARY-MINUS))
 (40 4 (:REWRITE HACK2A))
 (36 36 (:REWRITE MEMBER-INTERSECTION-2))
 (36 36 (:REWRITE HACK2B))
 (34 34 (:REWRITE HACK2))
 (12 12 (:TYPE-PRESCRIPTION |x < y  =>  0 < y-x|))
 (8 8 (:REWRITE INTERSECTP-SUBSETP))
 (8 2 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (4 4 (:REWRITE EQUAL-CONSTANT-+))
 )
(S*-TAGS-OK-MERGE-TAGS-2-0
 (84 12 (:DEFINITION ASSOC-EQUAL))
 (73 1 (:REWRITE S*-TAGS-OK-MERGE-TAGS))
 (62 2 (:REWRITE G-MERGE-TAGS))
 (59 3 (:REWRITE S*-TAGS-OK-MERGE-TAGS-1))
 (48 35 (:REWRITE DEFAULT-+-2))
 (48 18 (:META CANCEL_PLUS-LESSP-CORRECT))
 (48 2 (:REWRITE MEMBER-SEQ-INT))
 (46 43 (:REWRITE DEFAULT-CAR))
 (43 4 (:REWRITE CONSP-SEQ-INT))
 (39 36 (:REWRITE DEFAULT-CDR))
 (37 35 (:REWRITE DEFAULT-+-1))
 (37 5 (:REWRITE ZP-OPEN))
 (26 16 (:REWRITE DEFAULT-<-2))
 (24 1 (:REWRITE INTERSECTP-X-X))
 (18 18 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (18 18 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (16 16 (:REWRITE DEFAULT-<-1))
 (8 2 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (6 6 (:TYPE-PRESCRIPTION SEQ-INT))
 (2 2 (:REWRITE MEMBER-INTERSECTION-2))
 (2 2 (:REWRITE HACK2B))
 (1 1 (:TYPE-PRESCRIPTION INTERSECTP-EQUAL))
 )
(S-MERGE-TAGS-NOOP-1
 (98 98 (:REWRITE DEFAULT-CAR))
 (53 53 (:REWRITE DEFAULT-CDR))
 (24 24 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (24 24 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (14 14 (:REWRITE MEMBER-INTERSECTION-2))
 (14 14 (:REWRITE MEMBER-INTERSECTION-1))
 (14 14 (:REWRITE HACK2B))
 )
(S-MERGE-TAGS-NOOP-2
 (346 36 (:REWRITE S-MERGE-TAGS-NOOP-1))
 (103 103 (:REWRITE DEFAULT-CAR))
 (74 74 (:REWRITE DEFAULT-CDR))
 (52 52 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (52 52 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (14 14 (:REWRITE MEMBER-INTERSECTION-2))
 (14 14 (:REWRITE MEMBER-INTERSECTION-1))
 (14 14 (:REWRITE HACK2B))
 )
(S-MERGE-TAGS-NOOP-VAL-1
 (45 3 (:DEFINITION MERGE-TAGS))
 (32 4 (:DEFINITION MEMBER-EQUAL))
 (10 10 (:REWRITE DEFAULT-CAR))
 (7 7 (:REWRITE DEFAULT-CDR))
 (4 4 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (4 4 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (2 2 (:REWRITE MEMBER-INTERSECTION-2))
 (2 2 (:REWRITE MEMBER-INTERSECTION-1))
 (2 2 (:REWRITE HACK2B))
 )
(S-MERGE-TAGS-NOOP-VAL-2
 (78 3 (:DEFINITION MERGE-TAGS))
 (56 7 (:DEFINITION MEMBER-EQUAL))
 (34 4 (:REWRITE S-MERGE-TAGS-NOOP-VAL-1))
 (33 3 (:REWRITE S-MERGE-TAGS-NOOP-1))
 (13 13 (:REWRITE DEFAULT-CAR))
 (10 10 (:REWRITE DEFAULT-CDR))
 (7 7 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (7 7 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (2 2 (:REWRITE MEMBER-INTERSECTION-2))
 (2 2 (:REWRITE MEMBER-INTERSECTION-1))
 (2 2 (:REWRITE HACK2B))
 )
(MERGE-TAGS-S-COMMUTES-VAL
 (86 2 (:DEFINITION MERGE-TAGS))
 (81 9 (:DEFINITION MEMBER-EQUAL))
 (52 4 (:REWRITE S-MERGE-TAGS-NOOP-VAL-2))
 (45 45 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (34 4 (:REWRITE S-MERGE-TAGS-NOOP-VAL-1))
 (34 4 (:REWRITE S-MERGE-TAGS-NOOP-1))
 (13 13 (:REWRITE DEFAULT-CAR))
 (11 11 (:REWRITE DEFAULT-CDR))
 (9 9 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (9 9 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (6 6 (:REWRITE MEMBER-INTERSECTION-2))
 (6 6 (:REWRITE MEMBER-INTERSECTION-1))
 (6 6 (:REWRITE HACK2B))
 )
(S-MERGE-TAGS-NOOP-VAL-KB-HACK
 (559 13 (:DEFINITION MERGE-TAGS))
 (359 40 (:DEFINITION MEMBER-EQUAL))
 (222 14 (:REWRITE S-MERGE-TAGS-NOOP-VAL-2))
 (143 13 (:REWRITE S-MERGE-TAGS-NOOP-1))
 (66 66 (:REWRITE DEFAULT-CAR))
 (53 53 (:REWRITE DEFAULT-CDR))
 (40 40 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (40 40 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (28 28 (:REWRITE MEMBER-INTERSECTION-2))
 (28 28 (:REWRITE MEMBER-INTERSECTION-1))
 (28 28 (:REWRITE HACK2B))
 )
(TAGS-OK-FN-MERGE-TAGS-3-HINT
 (602 86 (:DEFINITION ASSOC-EQUAL))
 (416 353 (:REWRITE DEFAULT-CAR))
 (344 294 (:REWRITE DEFAULT-CDR))
 (322 235 (:REWRITE DEFAULT-+-2))
 (246 235 (:REWRITE DEFAULT-+-1))
 (190 155 (:REWRITE DEFAULT-<-1))
 (161 155 (:REWRITE DEFAULT-<-2))
 (105 105 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (19 19 (:REWRITE DEFAULT-UNARY-MINUS))
 (12 12 (:REWRITE ZP-OPEN))
 (8 8 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (6 6 (:TYPE-PRESCRIPTION BINARY-APPEND))
 (6 6 (:REWRITE FOLD-CONSTS-IN-+))
 )
(TAGS-OK-FN-MERGE-TAGS-3-MAIN-LEMMA
 (1347879 17502 (:REWRITE S*-TAGS-OK-MERGE-TAGS-1))
 (359014 2946 (:REWRITE S*-TAGS-OK-MERGE-TAGS))
 (265579 37961 (:DEFINITION ASSOC-EQUAL))
 (206621 181440 (:REWRITE DEFAULT-CAR))
 (185810 160758 (:REWRITE DEFAULT-CDR))
 (169692 133770 (:REWRITE DEFAULT-+-2))
 (134432 133770 (:REWRITE DEFAULT-+-1))
 (86847 22851 (:REWRITE CONSP-SEQ-INT))
 (82786 6160 (:REWRITE S-MERGE-TAGS-NOOP-1))
 (78788 78788 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (73799 63843 (:REWRITE DEFAULT-<-1))
 (72825 63843 (:REWRITE DEFAULT-<-2))
 (43499 43499 (:REWRITE HACK2B))
 (39643 39643 (:REWRITE MEMBER-INTERSECTION-2))
 (33228 33228 (:REWRITE MEMBER-INTERSECTION-1))
 (15426 15426 (:REWRITE HACK2))
 (7235 7235 (:REWRITE INTERSECTP-SUBSETP))
 (6226 2494 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (4859 4859 (:REWRITE EQUAL-CONSTANT-+))
 (3896 3860 (:REWRITE HACK2A))
 (190 190 (:REWRITE DEFAULT-UNARY-MINUS))
 (112 76 (:TYPE-PRESCRIPTION BINARY-APPEND))
 (78 78 (:TYPE-PRESCRIPTION KOLLECT-FN))
 (72 3 (:REWRITE INTERSECTP-X-X))
 (52 42 (:TYPE-PRESCRIPTION |x < y  =>  0 < y-x|))
 (25 5 (:REWRITE <-0-+-NEGATIVE-2))
 )
(TRUE-LISTP-KOLLECT-FN)
(APPEND-RIGHT-ID
 (2 1 (:DEFINITION TRUE-LISTP))
 (1 1 (:REWRITE DEFAULT-CDR))
 )
(TAGS-OK-FN-MERGE-TAGS-3
 (450 2 (:DEFINITION TAGS-OK-FN))
 (170 3 (:DEFINITION S*-TAGS-OK))
 (113 1 (:REWRITE S*-TAGS-OK-MERGE-TAGS))
 (91 8 (:DEFINITION MEMBER-EQUAL))
 (66 4 (:REWRITE G-MERGE-TAGS))
 (63 9 (:DEFINITION ASSOC-EQUAL))
 (63 1 (:REWRITE INTERSECTP-COMMUTES))
 (60 1 (:DEFINITION INTERSECTP-EQUAL))
 (59 3 (:REWRITE S*-TAGS-OK-MERGE-TAGS-1))
 (55 55 (:TYPE-PRESCRIPTION LEN))
 (48 1 (:DEFINITION MERGE-TAGS))
 (47 39 (:REWRITE DEFAULT-+-2))
 (46 43 (:REWRITE DEFAULT-CAR))
 (42 8 (:REWRITE COMMUTATIVITY-OF-+))
 (40 39 (:REWRITE DEFAULT-+-1))
 (40 37 (:REWRITE DEFAULT-CDR))
 (35 7 (:DEFINITION LEN))
 (34 2 (:REWRITE AUTO-OPEN-TAGS-OK-FN))
 (32 32 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (30 30 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (30 30 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (28 12 (:REWRITE ZP-OPEN))
 (24 3 (:REWRITE CONSP-SEQ-INT))
 (21 12 (:REWRITE DEFAULT-<-2))
 (18 5 (:DEFINITION NTH))
 (18 1 (:REWRITE S-MERGE-TAGS-NOOP-VAL-2))
 (17 8 (:REWRITE UNICITY-OF-0))
 (17 1 (:DEFINITION SEQ-INT))
 (15 15 (:TYPE-PRESCRIPTION S*-TAGS-OK))
 (12 12 (:REWRITE MEMBER-INTERSECTION-2))
 (12 12 (:REWRITE MEMBER-INTERSECTION-1))
 (12 12 (:REWRITE HACK2B))
 (12 12 (:REWRITE DEFAULT-<-1))
 (12 12 (:META CANCEL_PLUS-LESSP-CORRECT))
 (12 3 (:DEFINITION NFIX))
 (12 1 (:REWRITE S-MERGE-TAGS-NOOP-VAL-1))
 (12 1 (:REWRITE S-MERGE-TAGS-NOOP-1))
 (9 8 (:DEFINITION FIX))
 (7 7 (:TYPE-PRESCRIPTION SEQ-INT))
 (6 6 (:TYPE-PRESCRIPTION INTERSECTP-EQUAL))
 (5 1 (:REWRITE TAGS-OK-FN-MERGE-TAGS-2))
 (4 4 (:REWRITE HACK2))
 (3 3 (:REWRITE INTERSECTP-SUBSETP))
 (3 1 (:REWRITE INTERSECTP-X-X))
 (2 2 (:TYPE-PRESCRIPTION ZP))
 (2 2 (:REWRITE EQUAL-CONSTANT-+))
 (1 1 (:TYPE-PRESCRIPTION NFIX))
 )
(TAGS-OK-FN-MERGE-TAGS-3-COROLLARY
 (314 2 (:DEFINITION TAGS-OK-FN))
 (170 3 (:DEFINITION S*-TAGS-OK))
 (132 2 (:DEFINITION COLLECT-FN))
 (113 1 (:REWRITE S*-TAGS-OK-MERGE-TAGS))
 (79 1 (:REWRITE TAGS-OK-FN-MERGE-TAGS-2))
 (78 78 (:TYPE-PRESCRIPTION LEN))
 (68 20 (:REWRITE ZP-OPEN))
 (67 6 (:DEFINITION MEMBER-EQUAL))
 (66 9 (:REWRITE CONSP-SEQ-INT))
 (63 1 (:REWRITE INTERSECTP-COMMUTES))
 (60 1 (:DEFINITION INTERSECTP-EQUAL))
 (59 3 (:REWRITE S*-TAGS-OK-MERGE-TAGS-1))
 (56 8 (:DEFINITION ASSOC-EQUAL))
 (51 3 (:DEFINITION SEQ-INT))
 (48 1 (:DEFINITION MERGE-TAGS))
 (47 38 (:REWRITE DEFAULT-CAR))
 (42 8 (:REWRITE COMMUTATIVITY-OF-+))
 (41 32 (:REWRITE DEFAULT-CDR))
 (39 32 (:REWRITE DEFAULT-+-2))
 (33 32 (:REWRITE DEFAULT-+-1))
 (30 6 (:DEFINITION LEN))
 (30 2 (:REWRITE G-MERGE-TAGS))
 (26 26 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (24 12 (:REWRITE DEFAULT-<-2))
 (20 20 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (20 20 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (18 1 (:REWRITE S-MERGE-TAGS-NOOP-VAL-2))
 (17 17 (:TYPE-PRESCRIPTION SEQ-INT))
 (17 8 (:REWRITE UNICITY-OF-0))
 (15 15 (:TYPE-PRESCRIPTION S*-TAGS-OK))
 (12 12 (:REWRITE DEFAULT-<-1))
 (12 12 (:META CANCEL_PLUS-LESSP-CORRECT))
 (12 2 (:REWRITE AUTO-OPEN-COLLECT-FN))
 (12 1 (:REWRITE S-MERGE-TAGS-NOOP-VAL-1))
 (12 1 (:REWRITE S-MERGE-TAGS-NOOP-1))
 (9 8 (:DEFINITION FIX))
 (8 8 (:REWRITE MEMBER-INTERSECTION-2))
 (8 8 (:REWRITE MEMBER-INTERSECTION-1))
 (8 8 (:REWRITE HACK2B))
 (7 2 (:REWRITE AUTO-OPEN-TAGS-OK-FN))
 (6 6 (:TYPE-PRESCRIPTION ZP))
 (6 6 (:TYPE-PRESCRIPTION INTERSECTP-EQUAL))
 (6 3 (:DEFINITION NTH))
 (3 3 (:REWRITE INTERSECTP-SUBSETP))
 (3 1 (:REWRITE INTERSECTP-X-X))
 )
(S*-TAGS-WITNESS
 (56 8 (:DEFINITION ASSOC-EQUAL))
 (40 8 (:DEFINITION LEN))
 (36 25 (:REWRITE DEFAULT-+-2))
 (26 25 (:REWRITE DEFAULT-+-1))
 (26 17 (:REWRITE DEFAULT-<-1))
 (24 24 (:REWRITE DEFAULT-CDR))
 (24 24 (:REWRITE DEFAULT-CAR))
 (19 17 (:REWRITE DEFAULT-<-2))
 (8 8 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (8 8 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (4 4 (:REWRITE DEFAULT-UNARY-MINUS))
 (2 2 (:REWRITE FOLD-CONSTS-IN-+))
 (1 1 (:REWRITE ZP-OPEN))
 )
(G-S*-TAGS-WITNESS
 (2415 345 (:DEFINITION ASSOC-EQUAL))
 (1589 1348 (:REWRITE DEFAULT-+-2))
 (1356 1348 (:REWRITE DEFAULT-+-1))
 (1174 1174 (:REWRITE DEFAULT-CAR))
 (1115 1115 (:REWRITE DEFAULT-CDR))
 (392 360 (:REWRITE DEFAULT-<-2))
 (386 386 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (386 386 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (381 360 (:REWRITE DEFAULT-<-1))
 (187 17 (:DEFINITION SEQ-INT))
 (79 17 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (70 70 (:REWRITE DEFAULT-UNARY-MINUS))
 (26 26 (:REWRITE EQUAL-CONSTANT-+))
 (21 21 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (17 17 (:REWRITE MEMBER-INTERSECTION-2))
 (17 17 (:REWRITE HACK2B))
 )
(S*-TAGS-OK-S-UNFORCED
 (274 6 (:DEFINITION S*-TAGS-OK))
 (185 11 (:DEFINITION SEQ-INT))
 (128 96 (:REWRITE DEFAULT-+-2))
 (112 96 (:REWRITE DEFAULT-+-1))
 (98 14 (:DEFINITION ASSOC-EQUAL))
 (83 56 (:REWRITE DEFAULT-CAR))
 (82 52 (:REWRITE DEFAULT-<-2))
 (79 52 (:REWRITE DEFAULT-CDR))
 (70 14 (:DEFINITION LEN))
 (60 52 (:REWRITE DEFAULT-<-1))
 (58 58 (:META CANCEL_PLUS-LESSP-CORRECT))
 (40 8 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (34 34 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (34 34 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (28 28 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (20 6 (:DEFINITION NTH))
 (16 16 (:REWRITE MEMBER-INTERSECTION-2))
 (16 16 (:REWRITE MEMBER-INTERSECTION-1))
 (16 16 (:REWRITE HACK2B))
 (11 7 (:TYPE-PRESCRIPTION |x < y  =>  0 < y-x|))
 (10 2 (:REWRITE <-0-+-NEGATIVE-2))
 (8 8 (:REWRITE MEMBER-SEQ-INT))
 (8 8 (:REWRITE FOLD-CONSTS-IN-+))
 (3 3 (:REWRITE DEFAULT-UNARY-MINUS))
 )
(S*-TAGS-OK-S*-TAGS-WITNESS
 (2023 289 (:DEFINITION ASSOC-EQUAL))
 (1776 1497 (:REWRITE DEFAULT-+-2))
 (1497 1497 (:REWRITE DEFAULT-+-1))
 (961 961 (:REWRITE DEFAULT-CAR))
 (915 915 (:REWRITE DEFAULT-CDR))
 (668 42 (:DEFINITION SEQ-INT))
 (349 306 (:REWRITE DEFAULT-<-2))
 (308 306 (:REWRITE DEFAULT-<-1))
 (301 301 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (301 301 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (48 48 (:REWRITE DEFAULT-UNARY-MINUS))
 (36 36 (:REWRITE MEMBER-INTERSECTION-2))
 (36 36 (:REWRITE HACK2B))
 (28 28 (:REWRITE HACK2))
 (10 10 (:TYPE-PRESCRIPTION |x < y  =>  0 < y-x|))
 (2 2 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(TAGS-WITNESS-FN
 (420 60 (:DEFINITION ASSOC-EQUAL))
 (302 249 (:REWRITE DEFAULT-CAR))
 (261 216 (:REWRITE DEFAULT-CDR))
 (221 152 (:REWRITE DEFAULT-+-2))
 (163 152 (:REWRITE DEFAULT-+-1))
 (140 109 (:REWRITE DEFAULT-<-1))
 (113 109 (:REWRITE DEFAULT-<-2))
 (66 66 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (14 14 (:REWRITE DEFAULT-UNARY-MINUS))
 (7 7 (:REWRITE ZP-OPEN))
 (7 7 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (3 3 (:REWRITE FOLD-CONSTS-IN-+))
 )
(WEIRD-OPTIMIZATION-LEMMA-1
 (136 8 (:REWRITE S-MERGE-TAGS-NOOP-VAL-2))
 (88 8 (:REWRITE S-MERGE-TAGS-NOOP-VAL-1))
 (55 5 (:REWRITE S-MERGE-TAGS-NOOP-1))
 (42 42 (:REWRITE DEFAULT-CAR))
 (33 33 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (33 33 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (30 30 (:REWRITE DEFAULT-CDR))
 (25 25 (:REWRITE MEMBER-INTERSECTION-2))
 (25 25 (:REWRITE MEMBER-INTERSECTION-1))
 (25 25 (:REWRITE HACK2B))
 )
(WEIRD-OPTIMIZATION
 (8344 1192 (:DEFINITION ASSOC-EQUAL))
 (4485 3209 (:REWRITE DEFAULT-+-2))
 (4390 4308 (:REWRITE DEFAULT-CDR))
 (4214 4128 (:REWRITE DEFAULT-CAR))
 (4013 53 (:DEFINITION S*-TAGS-OK))
 (3317 3209 (:REWRITE DEFAULT-+-1))
 (1563 1563 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (1563 1563 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (954 662 (:REWRITE DEFAULT-<-2))
 (732 662 (:REWRITE DEFAULT-<-1))
 (582 14 (:REWRITE MEMBER-SEQ-INT))
 (532 18 (:REWRITE G-S*-TAGS-WITNESS))
 (510 30 (:REWRITE S-MERGE-TAGS-NOOP-VAL-1))
 (168 168 (:REWRITE MEMBER-INTERSECTION-2))
 (168 168 (:REWRITE HACK2B))
 (154 154 (:REWRITE MEMBER-INTERSECTION-1))
 (106 106 (:REWRITE HACK2))
 (104 82 (:REWRITE DEFAULT-UNARY-MINUS))
 (102 6 (:REWRITE S-MERGE-TAGS-NOOP-1))
 (84 14 (:REWRITE ASSOCIATIVITY-OF-+))
 (34 34 (:REWRITE EQUAL-CONSTANT-+))
 (28 14 (:REWRITE MINUS-CANCELLATION-ON-LEFT))
 (12 12 (:REWRITE G-OF-NIL-IS-NIL))
 (8 2 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (2 2 (:TYPE-PRESCRIPTION |x < y  =>  0 < y-x|))
 )
(WEIRD-OPTIMIZATION-COROLLARY
 (294 42 (:DEFINITION ASSOC-EQUAL))
 (149 146 (:REWRITE DEFAULT-CAR))
 (127 92 (:REWRITE DEFAULT-+-2))
 (126 123 (:REWRITE DEFAULT-CDR))
 (93 92 (:REWRITE DEFAULT-+-1))
 (93 1 (:REWRITE G-S*-TAGS-WITNESS))
 (56 56 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (56 56 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (41 25 (:REWRITE DEFAULT-<-2))
 (40 13 (:REWRITE ZP-OPEN))
 (40 1 (:DEFINITION S*-TAGS-OK))
 (32 25 (:REWRITE DEFAULT-<-1))
 (31 2 (:DEFINITION MEMBER-EQUAL))
 (30 30 (:TYPE-PRESCRIPTION SEQ-INT))
 (26 26 (:META CANCEL_PLUS-LESSP-CORRECT))
 (23 1 (:REWRITE S-MERGE-TAGS-NOOP-VAL-2))
 (21 3 (:REWRITE CONSP-SEQ-INT))
 (17 1 (:REWRITE S-MERGE-TAGS-NOOP-VAL-1))
 (15 1 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (12 1 (:REWRITE MEMBER-SEQ-INT))
 (10 10 (:TYPE-PRESCRIPTION MEMBER-EQUAL))
 (4 1 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (4 1 (:REWRITE <-0-+-NEGATIVE-1))
 (3 3 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (3 3 (:REWRITE MEMBER-INTERSECTION-2))
 (3 3 (:REWRITE HACK2B))
 (2 2 (:REWRITE MEMBER-INTERSECTION-1))
 (1 1 (:TYPE-PRESCRIPTION S*-TAGS-OK))
 (1 1 (:REWRITE FOLD-CONSTS-IN-+))
 (1 1 (:REWRITE DEFAULT-UNARY-MINUS))
 )
(WEIRD-OPTIMIZATION-PART-2
 (3374 482 (:DEFINITION ASSOC-EQUAL))
 (1857 1543 (:REWRITE DEFAULT-+-2))
 (1638 1638 (:REWRITE DEFAULT-CAR))
 (1610 1610 (:REWRITE DEFAULT-CDR))
 (1543 1543 (:REWRITE DEFAULT-+-1))
 (660 660 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (660 660 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (472 384 (:REWRITE DEFAULT-<-2))
 (384 384 (:REWRITE DEFAULT-<-1))
 (302 234 (:REWRITE ZP-OPEN))
 )
(POSITIVE-LEN
 (8 4 (:REWRITE DEFAULT-<-2))
 (6 3 (:REWRITE DEFAULT-+-2))
 (4 4 (:REWRITE DEFAULT-<-1))
 (4 4 (:META CANCEL_PLUS-LESSP-CORRECT))
 (3 3 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-+-1))
 (3 3 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (3 3 (:META CANCEL_PLUS-EQUAL-CORRECT))
 )
(UNIQUE-IMPLIES-TAGS-EXISTS
 (13831 1977 (:DEFINITION ASSOC-EQUAL))
 (11082 8630 (:REWRITE DEFAULT-CAR))
 (10233 164 (:DEFINITION MERGE-TAGS))
 (10146 7694 (:REWRITE DEFAULT-CDR))
 (7945 6153 (:REWRITE DEFAULT-+-2))
 (6704 287 (:REWRITE S-MERGE-TAGS-NOOP-VAL-2))
 (6179 6153 (:REWRITE DEFAULT-+-1))
 (5111 109 (:DEFINITION S*-TAGS-WITNESS))
 (4086 287 (:REWRITE S-MERGE-TAGS-NOOP-VAL-1))
 (3255 38 (:DEFINITION S*-TAGS-OK))
 (3204 3204 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (3204 3204 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (2117 1695 (:REWRITE DEFAULT-<-2))
 (2037 156 (:REWRITE S-MERGE-TAGS-NOOP-1))
 (1786 1695 (:REWRITE DEFAULT-<-1))
 (1781 1002 (:REWRITE HACK2B))
 (1653 994 (:REWRITE MEMBER-INTERSECTION-2))
 (921 27 (:DEFINITION SUBSETP-EQUAL))
 (135 135 (:REWRITE HACK2))
 (130 130 (:REWRITE EQUAL-CONSTANT-+))
 (102 34 (:TYPE-PRESCRIPTION TRUE-LISTP-APPEND))
 (62 26 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (54 54 (:REWRITE DEFAULT-UNARY-MINUS))
 (34 34 (:TYPE-PRESCRIPTION BINARY-APPEND))
 (28 4 (:REWRITE INTERSECTP-X-X))
 (22 16 (:TYPE-PRESCRIPTION |x < y  =>  0 < y-x|))
 (15 3 (:REWRITE <-0-+-NEGATIVE-2))
 (8 8 (:REWRITE HACK2A))
 )
(G-MARK-FN-2-VIA-KOLLECT-FN
 (453 1 (:DEFINITION TAGS-WITNESS-FN))
 (239 2 (:DEFINITION MERGE-TAGS))
 (159 1 (:DEFINITION TAGS-OK-FN))
 (154 22 (:DEFINITION ASSOC-EQUAL))
 (150 2 (:DEFINITION COLLECT-FN))
 (127 1 (:REWRITE G-S*-TAGS-WITNESS))
 (117 10 (:DEFINITION MEMBER-EQUAL))
 (114 93 (:REWRITE DEFAULT-CAR))
 (107 86 (:REWRITE DEFAULT-CDR))
 (102 102 (:TYPE-PRESCRIPTION LEN))
 (95 70 (:REWRITE DEFAULT-+-2))
 (90 18 (:DEFINITION LEN))
 (80 41 (:REWRITE ZP-OPEN))
 (79 1 (:DEFINITION S*-TAGS-OK))
 (76 1 (:DEFINITION MARK-FN))
 (71 70 (:REWRITE DEFAULT-+-1))
 (65 3 (:REWRITE S-MERGE-TAGS-NOOP-VAL-2))
 (62 3 (:REWRITE WEIRD-OPTIMIZATION-PART-2))
 (51 3 (:DEFINITION BINARY-APPEND))
 (46 8 (:DEFINITION NTH))
 (45 9 (:REWRITE CONSP-SEQ-INT))
 (45 3 (:REWRITE S-MERGE-TAGS-NOOP-VAL-1))
 (43 43 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (43 43 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (40 40 (:TYPE-PRESCRIPTION SEQ-INT))
 (40 8 (:REWRITE COMMUTATIVITY-OF-+))
 (40 4 (:DEFINITION SEQ-INT))
 (39 2 (:REWRITE AUTO-OPEN-COLLECT-FN))
 (33 1 (:REWRITE AUTO-OPEN-TAGS-OK-FN))
 (33 1 (:REWRITE AUTO-OPEN-MARK-FN))
 (31 21 (:REWRITE DEFAULT-<-2))
 (31 1 (:DEFINITION S*-TAGS-WITNESS))
 (28 21 (:REWRITE DEFAULT-<-1))
 (28 7 (:DEFINITION NFIX))
 (24 1 (:DEFINITION S*))
 (22 22 (:META CANCEL_PLUS-LESSP-CORRECT))
 (19 19 (:REWRITE POSITIVE-LEN))
 (18 1 (:REWRITE MEMBER-SEQ-INT))
 (15 7 (:REWRITE UNICITY-OF-0))
 (15 1 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (13 13 (:REWRITE MEMBER-INTERSECTION-2))
 (13 13 (:REWRITE HACK2B))
 (12 12 (:REWRITE MEMBER-INTERSECTION-1))
 (12 1 (:REWRITE S-MERGE-TAGS-NOOP-1))
 (8 8 (:TYPE-PRESCRIPTION ZP))
 (8 7 (:DEFINITION FIX))
 (4 1 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (4 1 (:REWRITE <-0-+-NEGATIVE-1))
 (3 3 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (3 3 (:TYPE-PRESCRIPTION NFIX))
 (2 2 (:REWRITE HACK2))
 (2 2 (:REWRITE EQUAL-CONSTANT-+))
 (1 1 (:TYPE-PRESCRIPTION S*-TAGS-OK))
 (1 1 (:REWRITE WEIRD-OPTIMIZATION-COROLLARY))
 (1 1 (:REWRITE FOLD-CONSTS-IN-+))
 (1 1 (:REWRITE DEFAULT-UNARY-MINUS))
 )
(COLLECT-FN-MARK-FN-VIA-KOLLECT-FN
 (2265 5 (:DEFINITION TAGS-WITNESS-FN))
 (1243 11 (:DEFINITION MERGE-TAGS))
 (635 5 (:REWRITE G-S*-TAGS-WITNESS))
 (539 77 (:DEFINITION ASSOC-EQUAL))
 (535 42 (:DEFINITION MEMBER-EQUAL))
 (516 7 (:DEFINITION COLLECT-FN))
 (417 333 (:REWRITE DEFAULT-CAR))
 (383 299 (:REWRITE DEFAULT-CDR))
 (356 262 (:REWRITE DEFAULT-+-2))
 (343 16 (:REWRITE S-MERGE-TAGS-NOOP-VAL-2))
 (316 4 (:DEFINITION S*-TAGS-OK))
 (314 143 (:REWRITE ZP-OPEN))
 (310 62 (:DEFINITION LEN))
 (267 262 (:REWRITE DEFAULT-+-1))
 (248 12 (:REWRITE WEIRD-OPTIMIZATION-PART-2))
 (237 16 (:REWRITE S-MERGE-TAGS-NOOP-VAL-1))
 (185 185 (:TYPE-PRESCRIPTION SEQ-INT))
 (180 36 (:REWRITE CONSP-SEQ-INT))
 (172 27 (:DEFINITION NTH))
 (171 9 (:DEFINITION BINARY-APPEND))
 (170 34 (:REWRITE COMMUTATIVITY-OF-+))
 (170 17 (:DEFINITION SEQ-INT))
 (155 5 (:DEFINITION S*-TAGS-WITNESS))
 (154 154 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (154 154 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (132 4 (:REWRITE AUTO-OPEN-TAGS-OK-FN))
 (104 69 (:REWRITE DEFAULT-<-1))
 (100 69 (:REWRITE DEFAULT-<-2))
 (90 5 (:REWRITE MEMBER-SEQ-INT))
 (77 77 (:REWRITE POSITIVE-LEN))
 (76 1 (:DEFINITION MARK-FN))
 (75 5 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (74 74 (:META CANCEL_PLUS-LESSP-CORRECT))
 (72 6 (:REWRITE S-MERGE-TAGS-NOOP-1))
 (64 7 (:REWRITE AUTO-OPEN-COLLECT-FN))
 (63 29 (:REWRITE UNICITY-OF-0))
 (45 45 (:REWRITE MEMBER-INTERSECTION-2))
 (45 45 (:REWRITE HACK2B))
 (40 40 (:REWRITE MEMBER-INTERSECTION-1))
 (34 29 (:DEFINITION FIX))
 (33 1 (:REWRITE AUTO-OPEN-MARK-FN))
 (24 1 (:REWRITE G-MARK-FN-2))
 (24 1 (:REWRITE G-MARK-FN))
 (24 1 (:DEFINITION S*))
 (22 22 (:TYPE-PRESCRIPTION ZP))
 (20 5 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (20 5 (:REWRITE <-0-+-NEGATIVE-1))
 (15 15 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (14 14 (:REWRITE HACK2))
 (12 12 (:REWRITE EQUAL-CONSTANT-+))
 (6 6 (:TYPE-PRESCRIPTION NFIX))
 (5 5 (:REWRITE WEIRD-OPTIMIZATION-COROLLARY))
 (5 5 (:REWRITE FOLD-CONSTS-IN-+))
 (5 5 (:REWRITE DEFAULT-UNARY-MINUS))
 (3 1 (:REWRITE G-MARK-FN-1))
 )
(CHALLENGE-THEOREM-1-LEMMA
 (102 2 (:DEFINITION COLLECT-FN))
 (37 1 (:DEFINITION MARK-FN))
 (36 20 (:REWRITE ZP-OPEN))
 (32 18 (:REWRITE DEFAULT-CAR))
 (31 17 (:REWRITE DEFAULT-CDR))
 (30 6 (:REWRITE CONSP-SEQ-INT))
 (28 4 (:DEFINITION ASSOC-EQUAL))
 (24 1 (:DEFINITION S*))
 (21 21 (:TYPE-PRESCRIPTION LEN))
 (20 2 (:DEFINITION SEQ-INT))
 (17 12 (:REWRITE DEFAULT-+-2))
 (15 3 (:DEFINITION LEN))
 (12 12 (:REWRITE DEFAULT-+-1))
 (12 2 (:REWRITE AUTO-OPEN-COLLECT-FN))
 (10 10 (:TYPE-PRESCRIPTION SEQ-INT))
 (9 9 (:REWRITE POSITIVE-LEN))
 (6 6 (:TYPE-PRESCRIPTION ZP))
 (6 6 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (6 6 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (6 1 (:REWRITE AUTO-OPEN-MARK-FN))
 (5 1 (:REWRITE COMMUTATIVITY-OF-+))
 (4 4 (:REWRITE MEMBER-INTERSECTION-2))
 (4 4 (:REWRITE MEMBER-INTERSECTION-1))
 (4 4 (:REWRITE HACK2B))
 (2 1 (:REWRITE UNICITY-OF-0))
 (2 1 (:DEFINITION NTH))
 (1 1 (:REWRITE G-MARK-FN-2))
 (1 1 (:REWRITE G-MARK-FN-1))
 (1 1 (:REWRITE G-MARK-FN))
 (1 1 (:DEFINITION FIX))
 )
(CHALLENGE-THEOREM-1
 (102 2 (:DEFINITION COLLECT-FN))
 (46 2 (:DEFINITION BINARY-APPEND))
 (37 1 (:DEFINITION MARK-FN))
 (36 20 (:REWRITE ZP-OPEN))
 (32 18 (:REWRITE DEFAULT-CAR))
 (31 17 (:REWRITE DEFAULT-CDR))
 (30 6 (:REWRITE CONSP-SEQ-INT))
 (28 4 (:DEFINITION ASSOC-EQUAL))
 (24 1 (:DEFINITION S*))
 (21 21 (:TYPE-PRESCRIPTION LEN))
 (20 2 (:DEFINITION SEQ-INT))
 (18 2 (:DEFINITION MEMBER-EQUAL))
 (18 1 (:DEFINITION UNIQUE))
 (17 12 (:REWRITE DEFAULT-+-2))
 (15 3 (:DEFINITION LEN))
 (12 12 (:REWRITE DEFAULT-+-1))
 (12 2 (:REWRITE AUTO-OPEN-COLLECT-FN))
 (10 10 (:TYPE-PRESCRIPTION SEQ-INT))
 (9 9 (:REWRITE POSITIVE-LEN))
 (6 6 (:TYPE-PRESCRIPTION ZP))
 (6 6 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (6 6 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (6 1 (:REWRITE AUTO-OPEN-MARK-FN))
 (5 1 (:REWRITE COMMUTATIVITY-OF-+))
 (4 4 (:TYPE-PRESCRIPTION COLLECT-FN))
 (4 4 (:REWRITE MEMBER-INTERSECTION-2))
 (4 4 (:REWRITE MEMBER-INTERSECTION-1))
 (4 4 (:REWRITE HACK2B))
 (2 1 (:REWRITE UNICITY-OF-0))
 (2 1 (:DEFINITION NTH))
 (1 1 (:DEFINITION FIX))
 )
(CHALLENGE-THEOREM-2-LEMMA
 (510 10 (:DEFINITION COLLECT-FN))
 (162 82 (:REWRITE ZP-OPEN))
 (150 30 (:REWRITE CONSP-SEQ-INT))
 (131 61 (:REWRITE DEFAULT-CDR))
 (131 61 (:REWRITE DEFAULT-CAR))
 (101 101 (:TYPE-PRESCRIPTION LEN))
 (100 10 (:DEFINITION SEQ-INT))
 (84 12 (:DEFINITION ASSOC-EQUAL))
 (65 44 (:REWRITE DEFAULT-+-2))
 (55 11 (:DEFINITION LEN))
 (55 10 (:REWRITE AUTO-OPEN-COLLECT-FN))
 (50 50 (:TYPE-PRESCRIPTION SEQ-INT))
 (48 7 (:DEFINITION MEMBER-EQUAL))
 (44 44 (:REWRITE DEFAULT-+-1))
 (41 41 (:REWRITE POSITIVE-LEN))
 (37 1 (:DEFINITION MARK-FN))
 (24 1 (:DEFINITION S*))
 (20 20 (:TYPE-PRESCRIPTION ZP))
 (20 6 (:REWRITE INTERSECTP-SUBSETP))
 (17 17 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (17 17 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (15 11 (:REWRITE HACK2B))
 (12 1 (:DEFINITION SUBSETP-EQUAL))
 (10 10 (:REWRITE MEMBER-INTERSECTION-2))
 (10 10 (:REWRITE MEMBER-INTERSECTION-1))
 (6 1 (:REWRITE AUTO-OPEN-MARK-FN))
 (5 5 (:TYPE-PRESCRIPTION SUBSETP-EQUAL))
 (5 1 (:REWRITE COMMUTATIVITY-OF-+))
 (2 1 (:REWRITE UNICITY-OF-0))
 (2 1 (:DEFINITION NTH))
 (1 1 (:REWRITE COLLECT-FN-MARK-FN))
 (1 1 (:DEFINITION FIX))
 )
(CHALLENGE-THEOREM-2
 (1989 39 (:DEFINITION COLLECT-FN))
 (967 53 (:DEFINITION BINARY-APPEND))
 (702 3 (:DEFINITION MARK-FN))
 (663 3 (:DEFINITION S*))
 (616 288 (:REWRITE ZP-OPEN))
 (615 328 (:REWRITE DEFAULT-CDR))
 (615 123 (:REWRITE CONSP-SEQ-INT))
 (605 318 (:REWRITE DEFAULT-CAR))
 (591 2 (:REWRITE NEW-FIELD-VALUE-MARK-FN))
 (413 413 (:TYPE-PRESCRIPTION LEN))
 (410 41 (:DEFINITION SEQ-INT))
 (329 47 (:DEFINITION ASSOC-EQUAL))
 (261 87 (:REWRITE MEMBER-INTERSECTION-2))
 (261 87 (:REWRITE HACK2B))
 (259 174 (:REWRITE DEFAULT-+-2))
 (223 223 (:TYPE-PRESCRIPTION SEQ-INT))
 (220 44 (:DEFINITION LEN))
 (174 174 (:REWRITE DEFAULT-+-1))
 (167 167 (:REWRITE POSITIVE-LEN))
 (124 39 (:REWRITE AUTO-OPEN-COLLECT-FN))
 (113 113 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (113 113 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (58 33 (:REWRITE INTERSECTP-SUBSETP))
 (40 40 (:TYPE-PRESCRIPTION ZP))
 (23 1 (:DEFINITION SUBSETP-EQUAL))
 (18 3 (:REWRITE AUTO-OPEN-MARK-FN))
 (15 3 (:REWRITE COMMUTATIVITY-OF-+))
 (6 3 (:REWRITE UNICITY-OF-0))
 (6 3 (:DEFINITION NTH))
 (5 5 (:TYPE-PRESCRIPTION SUBSETP-EQUAL))
 (3 3 (:DEFINITION FIX))
 (2 2 (:REWRITE MARK-FN-MARK-FN))
 )
(CHALLENGE-THEOREM-3
 (4921 19 (:DEFINITION TAGS-WITNESS-FN))
 (3869 24 (:DEFINITION MERGE-TAGS))
 (3009 59 (:DEFINITION COLLECT-FN))
 (2413 19 (:REWRITE G-S*-TAGS-WITNESS))
 (2268 24 (:DEFINITION S*))
 (2261 323 (:DEFINITION ASSOC-EQUAL))
 (1983 1325 (:REWRITE DEFAULT-CAR))
 (1844 1186 (:REWRITE DEFAULT-CDR))
 (1796 835 (:REWRITE ZP-OPEN))
 (1692 12 (:REWRITE NEW-FIELD-VALUE-MARK-FN))
 (1651 1651 (:TYPE-PRESCRIPTION LEN))
 (1626 18 (:DEFINITION S*-TAGS-OK))
 (1410 282 (:REWRITE CONSP-SEQ-INT))
 (1374 953 (:REWRITE DEFAULT-+-2))
 (1235 247 (:DEFINITION LEN))
 (1130 113 (:DEFINITION SEQ-INT))
 (1124 62 (:REWRITE WEIRD-OPTIMIZATION-PART-2))
 (989 989 (:TYPE-PRESCRIPTION SEQ-INT))
 (976 953 (:REWRITE DEFAULT-+-1))
 (823 163 (:REWRITE COMMUTATIVITY-OF-+))
 (589 19 (:DEFINITION S*-TAGS-WITNESS))
 (527 24 (:REWRITE S-MERGE-TAGS-NOOP-VAL-2))
 (512 512 (:REWRITE POSITIVE-LEN))
 (481 481 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (481 481 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (468 12 (:REWRITE S*-TAGS-OK-MERGE-TAGS-1))
 (426 80 (:DEFINITION NTH))
 (383 24 (:REWRITE S-MERGE-TAGS-NOOP-VAL-1))
 (380 4 (:REWRITE S*-TAGS-OK-MERGE-TAGS))
 (354 59 (:REWRITE AUTO-OPEN-COLLECT-FN))
 (342 19 (:REWRITE MEMBER-SEQ-INT))
 (311 144 (:REWRITE UNICITY-OF-0))
 (285 19 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (245 112 (:REWRITE DEFAULT-<-1))
 (216 184 (:REWRITE MEMBER-INTERSECTION-2))
 (216 184 (:REWRITE HACK2B))
 (208 4 (:REWRITE INTERSECTP-COMMUTES))
 (170 170 (:TYPE-PRESCRIPTION ZP))
 (167 144 (:DEFINITION FIX))
 (167 112 (:REWRITE DEFAULT-<-2))
 (131 131 (:META CANCEL_PLUS-LESSP-CORRECT))
 (120 8 (:REWRITE G-MERGE-TAGS))
 (84 24 (:REWRITE AUTO-OPEN-MARK-FN))
 (84 14 (:REWRITE AUTO-OPEN-TAGS-OK-FN))
 (76 19 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (76 19 (:REWRITE <-0-+-NEGATIVE-1))
 (60 60 (:REWRITE INTERSECTP-SUBSETP))
 (60 5 (:REWRITE S-MERGE-TAGS-NOOP-1))
 (57 57 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (19 19 (:REWRITE WEIRD-OPTIMIZATION-COROLLARY))
 (19 19 (:REWRITE FOLD-CONSTS-IN-+))
 (19 19 (:REWRITE DEFAULT-UNARY-MINUS))
 )
(UNIQUE-COLLECTION-IMPLIES-EXISTS-OK-TAGGING
 (3885 15 (:DEFINITION TAGS-WITNESS-FN))
 (3057 19 (:DEFINITION MERGE-TAGS))
 (1905 15 (:REWRITE G-S*-TAGS-WITNESS))
 (1862 266 (:DEFINITION ASSOC-EQUAL))
 (1771 17 (:DEFINITION S*-TAGS-OK))
 (1569 1093 (:REWRITE DEFAULT-CAR))
 (1444 968 (:REWRITE DEFAULT-CDR))
 (1386 12 (:DEFINITION MARK-FN))
 (1322 1322 (:TYPE-PRESCRIPTION LEN))
 (1282 573 (:REWRITE ZP-OPEN))
 (1230 12 (:DEFINITION S*))
 (1115 772 (:REWRITE DEFAULT-+-2))
 (1071 21 (:DEFINITION COLLECT))
 (1062 59 (:REWRITE WEIRD-OPTIMIZATION-PART-2))
 (1055 211 (:DEFINITION LEN))
 (1020 204 (:REWRITE CONSP-SEQ-INT))
 (942 6 (:REWRITE NEW-FIELD-VALUE-MARK-FN))
 (830 83 (:DEFINITION SEQ-INT))
 (791 772 (:REWRITE DEFAULT-+-1))
 (769 769 (:TYPE-PRESCRIPTION SEQ-INT))
 (713 141 (:REWRITE COMMUTATIVITY-OF-+))
 (508 4 (:REWRITE S*-TAGS-OK-MERGE-TAGS))
 (468 12 (:REWRITE S*-TAGS-OK-MERGE-TAGS-1))
 (465 15 (:DEFINITION S*-TAGS-WITNESS))
 (419 419 (:META CANCEL_TIMES-EQUAL-CORRECT))
 (419 419 (:META CANCEL_PLUS-EQUAL-CORRECT))
 (417 19 (:REWRITE S-MERGE-TAGS-NOOP-VAL-2))
 (396 396 (:REWRITE POSITIVE-LEN))
 (352 71 (:DEFINITION NTH))
 (344 8 (:REWRITE G-MERGE-TAGS))
 (338 114 (:REWRITE MEMBER-INTERSECTION-2))
 (338 114 (:REWRITE HACK2B))
 (336 4 (:REWRITE INTERSECTP-COMMUTES))
 (303 19 (:REWRITE S-MERGE-TAGS-NOOP-VAL-1))
 (271 126 (:REWRITE UNICITY-OF-0))
 (270 15 (:REWRITE MEMBER-SEQ-INT))
 (241 28 (:REWRITE AUTO-OPEN-COLLECT-FN))
 (225 15 (:REWRITE UNIQUE-SEQ-INT-LEMMA))
 (199 94 (:REWRITE DEFAULT-<-1))
 (180 6 (:DEFINITION COLLECT-LST))
 (145 126 (:DEFINITION FIX))
 (143 94 (:REWRITE DEFAULT-<-2))
 (109 109 (:META CANCEL_PLUS-LESSP-CORRECT))
 (78 78 (:TYPE-PRESCRIPTION ZP))
 (73 13 (:REWRITE AUTO-OPEN-TAGS-OK-FN))
 (60 15 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (60 15 (:REWRITE <-0-+-NEGATIVE-1))
 (48 4 (:REWRITE S-MERGE-TAGS-NOOP-1))
 (45 45 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (42 12 (:REWRITE AUTO-OPEN-MARK-FN))
 (36 36 (:REWRITE INTERSECTP-SUBSETP))
 (15 15 (:REWRITE WEIRD-OPTIMIZATION-COROLLARY))
 (15 15 (:REWRITE FOLD-CONSTS-IN-+))
 (15 15 (:REWRITE DEFAULT-UNARY-MINUS))
 (9 3 (:REWRITE INTERSECTP-X-X))
 (6 6 (:TYPE-PRESCRIPTION NFIX))
 )
