(|2^N-1|
 (28 2 (:DEFINITION FROM-TO-BY-DOWN-OPENER))
 (24 2 (:REWRITE TRUE-LIST-LISTP-IMPLIES-TRUE-LISTP-XXX))
 (19 2 (:DEFINITION TRUE-LIST-LISTP))
 (16 16 (:REWRITE DEFAULT-+-2))
 (16 16 (:REWRITE DEFAULT-+-1))
 (11 11 (:REWRITE DEFAULT-<-2))
 (11 11 (:REWRITE DEFAULT-<-1))
 (10 2 (:DEFINITION BINARY-APPEND))
 (8 4 (:REWRITE FOLD-CONSTS-IN-+))
 (7 5 (:REWRITE DEFAULT-CAR))
 (6 6 (:TYPE-PRESCRIPTION TRUE-LIST-LISTP))
 (6 6 (:REWRITE DEFAULT-*-2))
 (6 6 (:REWRITE DEFAULT-*-1))
 (6 5 (:REWRITE DEFAULT-CDR))
 (5 1 (:DEFINITION TRUE-LISTP))
 (4 4 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (2 2 (:REWRITE DEFAULT-UNARY-MINUS))
 (2 2 (:REWRITE ALWAYS$-P-LST-IMPLIES-P-ELEMENT-COROLLARY))
 (1 1 (:REWRITE ZP-OPEN))
 (1 1 (:REWRITE INTEGER-LISTP-IMPLIES-INTEGERP))
 )
(APPLY$-WARRANT-2^N-1)
(APPLY$-WARRANT-2^N-1-DEFINITION)
(APPLY$-WARRANT-2^N-1-NECC)
(APPLY$-2^N-1
 (2 2 (:TYPE-PRESCRIPTION APPLY$-PRIMP))
 (2 2 (:REWRITE DEFAULT-CAR))
 (2 1 (:REWRITE APPLY$-PRIMP-BADGE))
 (2 1 (:REWRITE APPLY$-PRIMITIVE))
 )
(|2^N-1|
 (98 7 (:DEFINITION FROM-TO-BY-DOWN-OPENER))
 (61 1 (:DEFINITION SUM$))
 (49 1 (:REWRITE APPLY$-CONSP-ARITY-1))
 (48 4 (:REWRITE TRUE-LIST-LISTP-IMPLIES-TRUE-LISTP-XXX))
 (38 4 (:DEFINITION TRUE-LIST-LISTP))
 (35 7 (:DEFINITION BINARY-APPEND))
 (33 32 (:REWRITE DEFAULT-+-2))
 (33 32 (:REWRITE DEFAULT-+-1))
 (23 9 (:REWRITE FOLD-CONSTS-IN-+))
 (21 17 (:REWRITE DEFAULT-CAR))
 (19 19 (:REWRITE DEFAULT-<-2))
 (19 19 (:REWRITE DEFAULT-<-1))
 (19 17 (:REWRITE DEFAULT-CDR))
 (12 12 (:TYPE-PRESCRIPTION TRUE-LIST-LISTP))
 (10 2 (:DEFINITION TRUE-LISTP))
 (8 8 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (6 6 (:REWRITE DEFAULT-*-2))
 (6 6 (:REWRITE DEFAULT-*-1))
 (4 4 (:REWRITE ALWAYS$-P-LST-IMPLIES-P-ELEMENT-COROLLARY))
 (3 1 (:DEFINITION THE-NUMBER))
 (2 2 (:REWRITE ZP-OPEN))
 (2 2 (:REWRITE INTEGER-LISTP-IMPLIES-INTEGERP))
 (2 2 (:REWRITE DEFAULT-UNARY-MINUS))
 (2 2 (:REWRITE APPLY$-WARRANT-2^N-1-NECC))
 (2 1 (:REWRITE APPLY$-PRIMITIVE))
 (1 1 (:TYPE-PRESCRIPTION LEN))
 (1 1 (:TYPE-PRESCRIPTION APPLY$-PRIMP))
 )
(2^N-1-LOOP-LEMMA
 (1252 17 (:REWRITE APPLY$-CONSP-ARITY-1))
 (430 86 (:DEFINITION BINARY-APPEND))
 (429 343 (:REWRITE DEFAULT-+-2))
 (383 343 (:REWRITE DEFAULT-+-1))
 (241 241 (:REWRITE DEFAULT-<-2))
 (241 241 (:REWRITE DEFAULT-<-1))
 (158 145 (:REWRITE DEFAULT-CDR))
 (154 145 (:REWRITE DEFAULT-CAR))
 (80 16 (:REWRITE ZP-OPEN))
 (57 20 (:REWRITE DEFAULT-*-2))
 (51 17 (:DEFINITION THE-NUMBER))
 (48 25 (:REWRITE APPLY$-PRIMITIVE))
 (26 26 (:REWRITE INTEGER-LISTP-IMPLIES-INTEGERP))
 (23 23 (:TYPE-PRESCRIPTION APPLY$-PRIMP))
 (20 20 (:REWRITE DEFAULT-*-1))
 (17 17 (:TYPE-PRESCRIPTION LEN))
 (10 10 (:REWRITE APPLY$-WARRANT-2^N-1-NECC))
 (5 5 (:REWRITE ZIP-OPEN))
 (4 2 (:TYPE-PRESCRIPTION TRUE-LISTP-APPEND))
 (2 2 (:TYPE-PRESCRIPTION BINARY-APPEND))
 (1 1 (:INDUCTION SUM$-FTB-RULE))
 )
(2^N-1-IS-EXPT-2-N-1
 (32 2 (:DEFINITION EXPT))
 (14 1 (:DEFINITION FROM-TO-BY-DOWN-OPENER))
 (12 2 (:REWRITE COMMUTATIVITY-OF-+))
 (10 10 (:REWRITE DEFAULT-+-2))
 (10 10 (:REWRITE DEFAULT-+-1))
 (9 3 (:REWRITE FOLD-CONSTS-IN-+))
 (6 2 (:REWRITE DEFAULT-*-2))
 (5 5 (:REWRITE DEFAULT-<-2))
 (5 5 (:REWRITE DEFAULT-<-1))
 (5 1 (:DEFINITION BINARY-APPEND))
 (3 1 (:DEFINITION FROM-TO-BY))
 (2 2 (:TYPE-PRESCRIPTION FROM-TO-BY))
 (2 2 (:REWRITE ZIP-OPEN))
 (2 2 (:REWRITE DEFAULT-*-1))
 (1 1 (:REWRITE INTEGER-LISTP-IMPLIES-INTEGERP))
 (1 1 (:REWRITE DEFAULT-CDR))
 (1 1 (:REWRITE DEFAULT-CAR))
 (1 1 (:REWRITE APPLY$-WARRANT-2^N-1-NECC))
 )
(PSTERMP
 (8828 5 (:DEFINITION ALWAYS$))
 (8808 5 (:REWRITE APPLY$-CONSP-ARITY-1))
 (8788 5 (:REWRITE BETA-REDUCTION))
 (8747 10 (:REWRITE EV$-OPENER))
 (8732 40 (:DEFINITION TAMEP))
 (8707 50 (:DEFINITION SUITABLY-TAMEP-LISTP))
 (8390 66 (:DEFINITION APPLY$-BADGEP))
 (5619 27 (:DEFINITION SUBSETP-EQUAL))
 (5287 379 (:DEFINITION MEMBER-EQUAL))
 (4854 96 (:LINEAR APPLY$-BADGEP-PROPERTIES . 1))
 (3761 109 (:REWRITE APPLY$-BADGEP-PROPERTIES . 1))
 (3309 189 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-1))
 (3253 3253 (:REWRITE DEFAULT-CDR))
 (1670 20 (:REWRITE ZP-OPEN))
 (894 894 (:REWRITE DEFAULT-CAR))
 (832 84 (:DEFINITION NATP))
 (632 114 (:REWRITE INTEGER-LISTP-IMPLIES-INTEGERP))
 (575 530 (:REWRITE APPLY$-PRIMP-BADGE))
 (567 567 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-3))
 (520 2 (:DEFINITION INTEGER-LISTP))
 (438 438 (:TYPE-PRESCRIPTION APPLY$-BADGEP))
 (434 200 (:REWRITE DEFAULT-+-2))
 (378 378 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-2))
 (257 200 (:REWRITE DEFAULT-+-1))
 (238 110 (:REWRITE APPLY$-BADGEP-PROPERTIES . 3))
 (216 66 (:DEFINITION WEAK-APPLY$-BADGE-P))
 (162 27 (:DEFINITION ALL-NILS))
 (151 65 (:REWRITE APPLY$-BADGEP-PROPERTIES . 2))
 (140 125 (:REWRITE DEFAULT-<-2))
 (135 135 (:TYPE-PRESCRIPTION ALL-NILS))
 (134 52 (:LINEAR APPLY$-BADGEP-PROPERTIES . 2))
 (130 125 (:REWRITE DEFAULT-<-1))
 (110 110 (:TYPE-PRESCRIPTION TAMEP))
 (108 108 (:TYPE-PRESCRIPTION SUBSETP-EQUAL))
 (100 100 (:TYPE-PRESCRIPTION SUITABLY-TAMEP-LISTP))
 (64 16 (:DEFINITION INTEGER-ABS))
 (51 51 (:REWRITE LEN-MEMBER-EQUAL-LOOP$-AS))
 (50 50 (:TYPE-PRESCRIPTION APPLY$-PRIMP))
 (36 10 (:DEFINITION PAIRLIS$))
 (30 2 (:REWRITE TRUE-LIST-LISTP-IMPLIES-TRUE-LISTP-XXX))
 (26 10 (:REWRITE RATIONAL-LISTP-IMPLIES-RATIONALP))
 (25 25 (:LINEAR MEMBER-EQUAL-ACL2-COUNT-SMALLER-3))
 (24 2 (:DEFINITION TRUE-LIST-LISTP))
 (17 17 (:LINEAR MEMBER-EQUAL-ACL2-COUNT-SMALLER-2))
 (16 16 (:REWRITE DEFAULT-UNARY-MINUS))
 (16 4 (:DEFINITION SYMBOL-LISTP))
 (14 2 (:DEFINITION RATIONAL-LISTP))
 (10 10 (:TYPE-PRESCRIPTION TRUE-LIST-LISTP))
 (10 10 (:TYPE-PRESCRIPTION RATIONAL-LISTP))
 (10 10 (:TYPE-PRESCRIPTION INTEGER-LISTP))
 (10 5 (:REWRITE APPLY$-PRIMITIVE))
 (9 9 (:LINEAR MEMBER-EQUAL-ACL2-COUNT-SMALLER-1))
 (8 8 (:REWRITE INTEGERP==>NUMERATOR-=-X))
 (8 8 (:REWRITE INTEGERP==>DENOMINATOR-=-1))
 (8 8 (:REWRITE DEFAULT-REALPART))
 (8 8 (:REWRITE DEFAULT-NUMERATOR))
 (8 8 (:REWRITE DEFAULT-IMAGPART))
 (8 8 (:REWRITE DEFAULT-DENOMINATOR))
 (8 8 (:REWRITE DEFAULT-COERCE-2))
 (8 8 (:REWRITE DEFAULT-COERCE-1))
 (5 5 (:REWRITE SYMBOL-LISTP-IMPLIES-SYMBOLP))
 (5 5 (:REWRITE ALWAYS$-P-LST-IMPLIES-P-ELEMENT))
 (3 3 (:LINEAR ACL2-COUNT-CAR-CDR-LINEAR))
 (2 2 (:REWRITE ALWAYS$-P-LST-IMPLIES-P-ELEMENT-COROLLARY))
 )
(APPLY$-WARRANT-PSTERMP)
(APPLY$-WARRANT-PSTERMP-DEFINITION)
(APPLY$-WARRANT-PSTERMP-NECC)
(APPLY$-PSTERMP
 (2 2 (:TYPE-PRESCRIPTION APPLY$-PRIMP))
 (2 2 (:REWRITE DEFAULT-CAR))
 (2 1 (:REWRITE APPLY$-PRIMP-BADGE))
 (2 1 (:REWRITE APPLY$-PRIMITIVE))
 )
(PSTERMP-INDUCTOR
 (292 121 (:REWRITE DEFAULT-+-2))
 (165 121 (:REWRITE DEFAULT-+-1))
 (107 107 (:REWRITE DEFAULT-CDR))
 (94 94 (:REWRITE DEFAULT-CAR))
 (40 10 (:DEFINITION INTEGER-ABS))
 (36 12 (:DEFINITION APPLY$-BADGEP))
 (30 6 (:REWRITE APPLY$-BADGEP-PROPERTIES . 3))
 (27 14 (:REWRITE DEFAULT-<-2))
 (24 12 (:DEFINITION WEAK-APPLY$-BADGE-P))
 (22 22 (:LINEAR MEMBER-EQUAL-ACL2-COUNT-SMALLER-3))
 (21 21 (:REWRITE LEN-MEMBER-EQUAL-LOOP$-AS))
 (18 14 (:REWRITE DEFAULT-<-1))
 (16 4 (:DEFINITION SYMBOL-LISTP))
 (15 15 (:LINEAR MEMBER-EQUAL-ACL2-COUNT-SMALLER-2))
 (15 3 (:REWRITE APPLY$-BADGEP-PROPERTIES . 2))
 (15 3 (:REWRITE APPLY$-BADGEP-PROPERTIES . 1))
 (12 12 (:TYPE-PRESCRIPTION APPLY$-BADGEP))
 (10 10 (:REWRITE DEFAULT-UNARY-MINUS))
 (10 10 (:LINEAR MEMBER-EQUAL-ACL2-COUNT-SMALLER-0))
 (8 8 (:LINEAR MEMBER-EQUAL-ACL2-COUNT-SMALLER-1))
 (5 5 (:REWRITE SYMBOL-LISTP-IMPLIES-SYMBOLP))
 (5 5 (:REWRITE RATIONAL-LISTP-IMPLIES-RATIONALP))
 (5 5 (:REWRITE INTEGERP==>NUMERATOR-=-X))
 (5 5 (:REWRITE INTEGERP==>DENOMINATOR-=-1))
 (5 5 (:REWRITE INTEGER-LISTP-IMPLIES-INTEGERP))
 (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))
 (3 3 (:LINEAR ACL2-COUNT-CAR-CDR-LINEAR))
 )
(APPLY$-WARRANT-PSTERMP-INDUCTOR)
(APPLY$-WARRANT-PSTERMP-INDUCTOR-DEFINITION)
(APPLY$-WARRANT-PSTERMP-INDUCTOR-NECC)
(APPLY$-PSTERMP-INDUCTOR
 (2 2 (:TYPE-PRESCRIPTION APPLY$-PRIMP))
 (2 2 (:REWRITE DEFAULT-CAR))
 (2 1 (:REWRITE APPLY$-PRIMP-BADGE))
 (2 1 (:REWRITE APPLY$-PRIMITIVE))
 )
(PSTERMP-INDUCTION-RULE)
(PSSUBST
 (92 45 (:REWRITE DEFAULT-+-2))
 (62 45 (:REWRITE DEFAULT-+-1))
 (45 5 (:DEFINITION LENGTH))
 (40 10 (:REWRITE COMMUTATIVITY-OF-+))
 (40 10 (:DEFINITION INTEGER-ABS))
 (33 7 (:DEFINITION LEN))
 (27 2 (:REWRITE STRUCTURE-OF-LOOP$-AS-ELEMENTS-BRIDGE))
 (26 26 (:REWRITE DEFAULT-CDR))
 (25 25 (:REWRITE DEFAULT-CAR))
 (21 1 (:DEFINITION MEMBER-EQUAL))
 (18 1 (:DEFINITION LOOP$-AS))
 (16 2 (:REWRITE TRUE-LIST-LISTP-IMPLIES-TRUE-LISTP-XXX))
 (15 3 (:DEFINITION TRUE-LISTP))
 (14 14 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (14 12 (:REWRITE DEFAULT-<-2))
 (13 12 (:REWRITE DEFAULT-<-1))
 (12 12 (:REWRITE FOLD-CONSTS-IN-+))
 (12 1 (:DEFINITION TRUE-LIST-LISTP))
 (11 11 (:TYPE-PRESCRIPTION LEN))
 (11 1 (:REWRITE NOT-MEMBER-LOOP$-AS-RATIONAL-LISTP-1))
 (10 10 (:REWRITE DEFAULT-UNARY-MINUS))
 (9 1 (:REWRITE NOT-MEMBER-LOOP$-AS-TRUE-LIST-1))
 (8 8 (:REWRITE RATIONAL-LISTP-IMPLIES-RATIONALP))
 (7 7 (:REWRITE LEN-MEMBER-EQUAL-LOOP$-AS))
 (7 7 (:REWRITE INTEGER-LISTP-IMPLIES-INTEGERP))
 (7 1 (:REWRITE NOT-MEMBER-LOOP$-AS-NATP-1))
 (7 1 (:DEFINITION RATIONAL-LISTP))
 (6 1 (:DEFINITION CDR-LOOP$-AS-TUPLE))
 (6 1 (:DEFINITION CAR-LOOP$-AS-TUPLE))
 (5 5 (:TYPE-PRESCRIPTION TRUE-LIST-LISTP))
 (5 5 (:TYPE-PRESCRIPTION RATIONAL-LISTP))
 (5 5 (:REWRITE INTEGERP==>NUMERATOR-=-X))
 (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 (:REWRITE NOT-MEMBER-LOOP$-AS-ACL2-NUMBER-1))
 (5 1 (:DEFINITION EMPTY-LOOP$-AS-TUPLEP))
 (4 4 (:REWRITE CDR-CONS))
 (4 4 (:LINEAR MEMBER-EQUAL-ACL2-COUNT-SMALLER-3))
 (4 1 (:DEFINITION NATP))
 (3 3 (:REWRITE CAR-CONS))
 (3 3 (:LINEAR MEMBER-EQUAL-ACL2-COUNT-SMALLER-2))
 (3 1 (:REWRITE NOT-MEMBER-LOOP$-AS-SYMBOL-1))
 (3 1 (:REWRITE NOT-MEMBER-LOOP$-AS-RATIONAL-1))
 (3 1 (:REWRITE NOT-MEMBER-LOOP$-AS-INTEGER-1))
 (3 1 (:REWRITE EQUAL-LEN-1))
 (2 2 (:REWRITE ALWAYS$-P-LST-IMPLIES-P-ELEMENT-COROLLARY))
 (2 1 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (2 1 (:REWRITE NOT-MEMBER-LOOP$-AS-IDENTITY-1))
 (1 1 (:TYPE-PRESCRIPTION NATP))
 (1 1 (:REWRITE SYMBOL-LISTP-IMPLIES-SYMBOLP))
 (1 1 (:REWRITE NOT-MEMBER-LOOP$-AS-GENERAL))
 (1 1 (:REWRITE NOT-MEMBER-LOOP$-AS-ALWAYS$-1))
 (1 1 (:REWRITE ACL2-NUMBER-LISTP-IMPLIES-ACL2-NUMBERP))
 )
(APPLY$-WARRANT-PSSUBST)
(APPLY$-WARRANT-PSSUBST-DEFINITION)
(APPLY$-WARRANT-PSSUBST-NECC)
(APPLY$-PSSUBST
 (22 22 (:TYPE-PRESCRIPTION PSSUBST))
 (6 6 (:REWRITE DEFAULT-CDR))
 (6 6 (:REWRITE DEFAULT-CAR))
 (2 2 (:TYPE-PRESCRIPTION APPLY$-PRIMP))
 (2 1 (:REWRITE APPLY$-PRIMP-BADGE))
 (2 1 (:REWRITE APPLY$-PRIMITIVE))
 )
(PSSUBST-INDUCTOR)
(APPLY$-WARRANT-PSSUBST-INDUCTOR)
(APPLY$-WARRANT-PSSUBST-INDUCTOR-DEFINITION)
(APPLY$-WARRANT-PSSUBST-INDUCTOR-NECC)
(APPLY$-PSSUBST-INDUCTOR
 (22 22 (:TYPE-PRESCRIPTION PSSUBST-INDUCTOR))
 (6 6 (:REWRITE DEFAULT-CDR))
 (6 6 (:REWRITE DEFAULT-CAR))
 (2 2 (:TYPE-PRESCRIPTION APPLY$-PRIMP))
 (2 1 (:REWRITE APPLY$-PRIMP-BADGE))
 (2 1 (:REWRITE APPLY$-PRIMITIVE))
 )
(PSSUBST-INDUCTION-RULE)
(PSTERMP-PSSUBST-[1]
 (434369 6363 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-1))
 (352652 349595 (:REWRITE DEFAULT-CAR))
 (307780 305620 (:REWRITE DEFAULT-CDR))
 (30548 15274 (:REWRITE DEFAULT-+-2))
 (20258 10129 (:REWRITE APPLY$-PRIMITIVE))
 (15274 15274 (:REWRITE DEFAULT-+-1))
 (14774 14774 (:REWRITE LEN-MEMBER-EQUAL-LOOP$-AS))
 (12442 12442 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-3))
 (11902 11902 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-2))
 (10292 10292 (:REWRITE SYMBOL-LISTP-IMPLIES-SYMBOLP))
 (8675 8675 (:TYPE-PRESCRIPTION PSSUBST))
 (3338 3338 (:REWRITE DEFAULT-COERCE-2))
 (3338 3338 (:REWRITE DEFAULT-COERCE-1))
 (2274 450 (:REWRITE APPLY$-BADGEP-PROPERTIES . 3))
 (1374 450 (:DEFINITION APPLY$-BADGEP))
 (912 450 (:DEFINITION WEAK-APPLY$-BADGE-P))
 (886 886 (:REWRITE APPLY$-WARRANT-PSTERMP-NECC))
 (886 886 (:REWRITE APPLY$-WARRANT-PSSUBST-NECC))
 (450 450 (:TYPE-PRESCRIPTION APPLY$-BADGEP))
 )
(PSTERMP-PSSUBST-[2]
 (612429 9146 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-1))
 (540710 6561 (:DEFINITION COLLECT$+))
 (522837 519476 (:REWRITE DEFAULT-CAR))
 (451665 449161 (:REWRITE DEFAULT-CDR))
 (41060 20530 (:REWRITE DEFAULT-+-2))
 (28302 14151 (:REWRITE APPLY$-PRIMITIVE))
 (20530 20530 (:REWRITE DEFAULT-+-1))
 (20014 20014 (:REWRITE LEN-MEMBER-EQUAL-LOOP$-AS))
 (18269 18269 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-3))
 (17348 17348 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-2))
 (14121 14121 (:REWRITE SYMBOL-LISTP-IMPLIES-SYMBOLP))
 (13071 13071 (:TYPE-PRESCRIPTION PSSUBST))
 (4636 4636 (:REWRITE DEFAULT-COERCE-2))
 (4636 4636 (:REWRITE DEFAULT-COERCE-1))
 (2622 518 (:REWRITE APPLY$-BADGEP-PROPERTIES . 3))
 (1586 518 (:DEFINITION APPLY$-BADGEP))
 (1214 1214 (:REWRITE APPLY$-WARRANT-PSTERMP-NECC))
 (1214 1214 (:REWRITE APPLY$-WARRANT-PSSUBST-NECC))
 (1052 518 (:DEFINITION WEAK-APPLY$-BADGE-P))
 (518 518 (:TYPE-PRESCRIPTION APPLY$-BADGEP))
 )
(PSTERMP-PSSUBST-[1]-WITHOUT-COMPOSE-RULES
 (501048 12417 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-1))
 (240350 237377 (:REWRITE DEFAULT-CAR))
 (222024 219842 (:REWRITE DEFAULT-CDR))
 (23964 11982 (:REWRITE DEFAULT-+-2))
 (20358 20358 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-3))
 (19576 19576 (:REWRITE MEMBER-EQUAL-NEWVAR-COMPONENTS-2))
 (15398 7699 (:REWRITE APPLY$-PRIMITIVE))
 (11982 11982 (:REWRITE DEFAULT-+-1))
 (11578 11578 (:REWRITE LEN-MEMBER-EQUAL-LOOP$-AS))
 (8050 8050 (:REWRITE SYMBOL-LISTP-IMPLIES-SYMBOLP))
 (7949 7949 (:TYPE-PRESCRIPTION PSSUBST))
 (2595 2595 (:REWRITE DEFAULT-COERCE-2))
 (2595 2595 (:REWRITE DEFAULT-COERCE-1))
 (1694 334 (:REWRITE APPLY$-BADGEP-PROPERTIES . 3))
 (1026 334 (:DEFINITION APPLY$-BADGEP))
 (765 765 (:REWRITE APPLY$-WARRANT-PSTERMP-NECC))
 (765 765 (:REWRITE APPLY$-WARRANT-PSSUBST-NECC))
 (680 334 (:DEFINITION WEAK-APPLY$-BADGE-P))
 (334 334 (:TYPE-PRESCRIPTION APPLY$-BADGEP))
 )
(PSOCCUR
 (92 45 (:REWRITE DEFAULT-+-2))
 (62 45 (:REWRITE DEFAULT-+-1))
 (45 5 (:DEFINITION LENGTH))
 (40 10 (:REWRITE COMMUTATIVITY-OF-+))
 (40 10 (:DEFINITION INTEGER-ABS))
 (33 7 (:DEFINITION LEN))
 (27 2 (:REWRITE STRUCTURE-OF-LOOP$-AS-ELEMENTS-BRIDGE))
 (26 26 (:REWRITE DEFAULT-CDR))
 (25 25 (:REWRITE DEFAULT-CAR))
 (21 1 (:DEFINITION MEMBER-EQUAL))
 (18 1 (:DEFINITION LOOP$-AS))
 (16 2 (:REWRITE TRUE-LIST-LISTP-IMPLIES-TRUE-LISTP-XXX))
 (15 3 (:DEFINITION TRUE-LISTP))
 (14 14 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (14 12 (:REWRITE DEFAULT-<-2))
 (13 12 (:REWRITE DEFAULT-<-1))
 (12 12 (:REWRITE FOLD-CONSTS-IN-+))
 (12 1 (:DEFINITION TRUE-LIST-LISTP))
 (11 11 (:TYPE-PRESCRIPTION LEN))
 (11 1 (:REWRITE NOT-MEMBER-LOOP$-AS-RATIONAL-LISTP-1))
 (10 10 (:REWRITE DEFAULT-UNARY-MINUS))
 (9 1 (:REWRITE NOT-MEMBER-LOOP$-AS-TRUE-LIST-1))
 (8 8 (:REWRITE RATIONAL-LISTP-IMPLIES-RATIONALP))
 (7 7 (:REWRITE LEN-MEMBER-EQUAL-LOOP$-AS))
 (7 7 (:REWRITE INTEGER-LISTP-IMPLIES-INTEGERP))
 (7 1 (:REWRITE NOT-MEMBER-LOOP$-AS-NATP-1))
 (7 1 (:DEFINITION RATIONAL-LISTP))
 (6 1 (:DEFINITION CDR-LOOP$-AS-TUPLE))
 (6 1 (:DEFINITION CAR-LOOP$-AS-TUPLE))
 (5 5 (:TYPE-PRESCRIPTION TRUE-LIST-LISTP))
 (5 5 (:TYPE-PRESCRIPTION RATIONAL-LISTP))
 (5 5 (:REWRITE INTEGERP==>NUMERATOR-=-X))
 (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 (:REWRITE NOT-MEMBER-LOOP$-AS-ACL2-NUMBER-1))
 (5 1 (:DEFINITION EMPTY-LOOP$-AS-TUPLEP))
 (4 4 (:REWRITE CDR-CONS))
 (4 4 (:LINEAR MEMBER-EQUAL-ACL2-COUNT-SMALLER-3))
 (4 1 (:DEFINITION NATP))
 (3 3 (:REWRITE CAR-CONS))
 (3 3 (:LINEAR MEMBER-EQUAL-ACL2-COUNT-SMALLER-2))
 (3 1 (:REWRITE NOT-MEMBER-LOOP$-AS-SYMBOL-1))
 (3 1 (:REWRITE NOT-MEMBER-LOOP$-AS-RATIONAL-1))
 (3 1 (:REWRITE NOT-MEMBER-LOOP$-AS-INTEGER-1))
 (3 1 (:REWRITE EQUAL-LEN-1))
 (2 2 (:REWRITE ALWAYS$-P-LST-IMPLIES-P-ELEMENT-COROLLARY))
 (2 1 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (2 1 (:REWRITE NOT-MEMBER-LOOP$-AS-IDENTITY-1))
 (1 1 (:TYPE-PRESCRIPTION NATP))
 (1 1 (:REWRITE SYMBOL-LISTP-IMPLIES-SYMBOLP))
 (1 1 (:REWRITE NOT-MEMBER-LOOP$-AS-GENERAL))
 (1 1 (:REWRITE NOT-MEMBER-LOOP$-AS-ALWAYS$-1))
 (1 1 (:REWRITE ACL2-NUMBER-LISTP-IMPLIES-ACL2-NUMBERP))
 )
(APPLY$-WARRANT-PSOCCUR)
(APPLY$-WARRANT-PSOCCUR-DEFINITION)
(APPLY$-WARRANT-PSOCCUR-NECC)
(APPLY$-PSOCCUR
 (4 4 (:REWRITE DEFAULT-CAR))
 (2 2 (:TYPE-PRESCRIPTION APPLY$-PRIMP))
 (2 2 (:REWRITE DEFAULT-CDR))
 (2 1 (:REWRITE APPLY$-PRIMP-BADGE))
 (2 1 (:REWRITE APPLY$-PRIMITIVE))
 )
(PSOCCUR-PSSUBST
 (85489 1471 (:DEFINITION COLLECT$+))
 (5854 2927 (:REWRITE APPLY$-PRIMITIVE))
 (874 874 (:REWRITE APPLY$-WARRANT-PSSUBST-NECC))
 (874 874 (:REWRITE APPLY$-WARRANT-PSOCCUR-NECC))
 )
