(BUTLAST-OF-APPEND-HELPER
 (40 2 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (39 4 (:REWRITE CONSP-FROM-LEN-CHEAP))
 (34 2 (:DEFINITION TRUE-LISTP))
 (16 1 (:DEFINITION BINARY-APPEND))
 (14 7 (:REWRITE DEFAULT-<-2))
 (12 7 (:REWRITE DEFAULT-+-2))
 (12 7 (:REWRITE DEFAULT-+-1))
 (10 10 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (10 10 (:REWRITE LEN-WHEN-NOT-CONSP-CHEAP))
 (10 7 (:REWRITE DEFAULT-<-1))
 (5 5 (:LINEAR LEN-POSITIVE-WHEN-CONSP-LINEAR-CHEAP))
 (4 4 (:REWRITE CONSP-WHEN-LEN-GREATER))
 (4 4 (:REWRITE CONSP-WHEN-LEN-EQUAL-CONSTANT))
 (3 3 (:REWRITE DEFAULT-CDR))
 (2 2 (:REWRITE APPEND-WHEN-NOT-CONSP-ARG1-CHEAP))
 (2 1 (:REWRITE DEFAULT-UNARY-MINUS))
 (1 1 (:REWRITE FOLD-CONSTS-IN-+))
 (1 1 (:REWRITE DEFAULT-CAR))
 )
(DEFUN-FORMP)
(GET-DECLARES-FROM-DEFUN)
(ALL-DECLAREP-OF-GET-DECLARES-FROM-DEFUN)
(GET-XARGS-FROM-DEFUN
 (2032 8 (:DEFINITION REMOVE-STRINGS))
 (1994 378 (:REWRITE LEN-OF-CDR))
 (1000 16 (:REWRITE CAR-OF-BUTLAST))
 (939 71 (:REWRITE DEFAULT-CDR))
 (688 16 (:REWRITE CDR-OF-BUTLAST))
 (575 61 (:REWRITE DEFAULT-CAR))
 (482 482 (:REWRITE DEFAULT-+-2))
 (482 482 (:REWRITE DEFAULT-+-1))
 (481 473 (:REWRITE LEN-WHEN-NOT-CONSP-CHEAP))
 (328 8 (:REWRITE CONSP-OF-BUTLAST))
 (312 104 (:REWRITE FOLD-CONSTS-IN-+))
 (152 152 (:REWRITE LEN-OF-CDDR-WHEN-EQUAL-OF-LEN))
 (98 98 (:REWRITE CONSP-WHEN-LEN-EQUAL-CONSTANT))
 (65 49 (:REWRITE DEFAULT-<-2))
 (50 49 (:REWRITE DEFAULT-<-1))
 (32 32 (:REWRITE CONSP-WHEN-LEN-GREATER))
 (25 17 (:LINEAR LEN-POSITIVE-WHEN-CONSP-LINEAR-CHEAP))
 (16 16 (:REWRITE CONSP-OF-CDR-WHEN-LEN-KNOWN))
 (8 8 (:TYPE-PRESCRIPTION BUTLAST))
 (4 4 (:TYPE-PRESCRIPTION DECLAREP))
 )
(KEYWORD-VALUE-LISTP-OF-GET-XARGS-FROM-DEFUN
 (5188 4 (:DEFINITION GET-XARGS-FROM-DECLARES))
 (4872 4 (:DEFINITION COMBINE-KEYWORD-VALUE-LISTS-FOR-XARGS))
 (4263 193 (:REWRITE DEFAULT-CAR))
 (4222 782 (:REWRITE LEN-OF-CDR))
 (4064 16 (:DEFINITION REMOVE-STRINGS))
 (3616 4 (:DEFINITION COMBINE-XARGS-FOR-KEYS))
 (3272 16 (:REWRITE CONSP-OF-CDR-OF-ASSOC-KEYWORD))
 (2936 8 (:REWRITE KEYWORD-VALUE-LISTP-OF-GET-XARGS-FROM-DECLARE-ARGS))
 (2920 8 (:REWRITE ALL-DECLARE-ARGP-OF-CDR-WHEN-DECLAREP))
 (2307 231 (:REWRITE DEFAULT-CDR))
 (2000 32 (:REWRITE CAR-OF-BUTLAST))
 (1376 32 (:REWRITE CDR-OF-BUTLAST))
 (1241 1129 (:REWRITE LEN-WHEN-NOT-CONSP-CHEAP))
 (1018 990 (:REWRITE DEFAULT-+-2))
 (990 990 (:REWRITE DEFAULT-+-1))
 (900 4 (:DEFINITION REMOVE-DUPLICATES-EQUAL))
 (656 16 (:REWRITE CONSP-OF-BUTLAST))
 (624 208 (:REWRITE FOLD-CONSTS-IN-+))
 (377 129 (:LINEAR LEN-POSITIVE-WHEN-CONSP-LINEAR-CHEAP))
 (344 8 (:DEFINITION KEYWORD-VALUE-LIST-KEYS))
 (320 12 (:REWRITE CDR-OF-APPEND))
 (314 314 (:REWRITE CONSP-WHEN-LEN-EQUAL-CONSTANT))
 (304 304 (:REWRITE LEN-OF-CDDR-WHEN-EQUAL-OF-LEN))
 (276 276 (:TYPE-PRESCRIPTION KEYWORD-VALUE-LIST-KEYS))
 (265 165 (:REWRITE DEFAULT-<-2))
 (264 8 (:REWRITE CAR-OF-APPEND))
 (240 4 (:DEFINITION GET-XARGS-FROM-DECLARE))
 (196 4 (:DEFINITION GET-XARGS-FROM-DECLARE-ARGS))
 (166 165 (:REWRITE DEFAULT-<-1))
 (144 144 (:REWRITE CONSP-WHEN-LEN-GREATER))
 (128 4 (:REWRITE CONSP-OF-APPEND))
 (84 4 (:DEFINITION GET-XARGS-FROM-DECLARE-ARG))
 (60 60 (:REWRITE CONSP-OF-CDR-WHEN-LEN-KNOWN))
 (48 28 (:REWRITE EQUAL-OF-LEN-AND-0))
 (44 20 (:TYPE-PRESCRIPTION TRUE-LISTP-APPEND))
 (40 24 (:REWRITE APPEND-WHEN-NOT-CONSP-ARG1-CHEAP))
 (32 32 (:TYPE-PRESCRIPTION ASSOC-KEYWORD))
 (28 28 (:TYPE-PRESCRIPTION DECLAREP))
 (20 20 (:TYPE-PRESCRIPTION BINARY-APPEND))
 (16 16 (:TYPE-PRESCRIPTION REMOVE-DUPLICATES-EQUAL))
 (16 16 (:TYPE-PRESCRIPTION GET-XARGS-FROM-DECLARES))
 (16 16 (:TYPE-PRESCRIPTION GET-XARGS-FROM-DECLARE-ARGS))
 (16 16 (:TYPE-PRESCRIPTION GET-DECLARES-FROM-DEFUN))
 (16 16 (:TYPE-PRESCRIPTION BUTLAST))
 (16 8 (:LINEAR <=-OF-LEN-OF-ASSOC-KEYWORD-FORWARD-LINEAR))
 (8 8 (:TYPE-PRESCRIPTION ALL-DECLARE-ARGP))
 )
(GET-NAME-FROM-DEFUN)
(GET-FORMALS-FROM-DEFUN)
(GET-BODY-FROM-DEFUN)
(GET-ARITY-FROM-DEFUN)
(REPLACE-DECLARES-IN-DEFUN)
(DEFUN-FORMP-OF-REPLACE-DECLARES-IN-DEFUN
 (15488 2212 (:REWRITE DEFAULT-CDR))
 (10149 166 (:REWRITE CAR-OF-BUTLAST))
 (7932 1145 (:REWRITE DEFAULT-CAR))
 (7030 6819 (:REWRITE DEFAULT-+-2))
 (6982 166 (:REWRITE CDR-OF-BUTLAST))
 (6831 6819 (:REWRITE DEFAULT-+-1))
 (3331 83 (:REWRITE CONSP-OF-BUTLAST))
 (2375 2375 (:REWRITE CONSP-WHEN-LEN-EQUAL-CONSTANT))
 (1855 1855 (:REWRITE LEN-OF-CDDR-WHEN-EQUAL-OF-LEN))
 (1270 1008 (:REWRITE DEFAULT-<-2))
 (1174 1008 (:REWRITE DEFAULT-<-1))
 (737 737 (:REWRITE CONSP-WHEN-LEN-GREATER))
 (461 461 (:REWRITE CONSP-OF-CDR-WHEN-LEN-KNOWN))
 (424 84 (:REWRITE EQUAL-OF-LEN-AND-0))
 (85 85 (:TYPE-PRESCRIPTION LAST))
 (83 83 (:TYPE-PRESCRIPTION BUTLAST))
 (13 13 (:REWRITE TRUE-LIST-FIX-WHEN-NOT-CONSP-CHEAP))
 )
(DEFUN-HAS-A-GUARDP
 (2032 8 (:DEFINITION REMOVE-STRINGS))
 (1994 378 (:REWRITE LEN-OF-CDR))
 (1000 16 (:REWRITE CAR-OF-BUTLAST))
 (931 63 (:REWRITE DEFAULT-CDR))
 (688 16 (:REWRITE CDR-OF-BUTLAST))
 (567 53 (:REWRITE DEFAULT-CAR))
 (482 482 (:REWRITE DEFAULT-+-2))
 (482 482 (:REWRITE DEFAULT-+-1))
 (465 465 (:REWRITE LEN-WHEN-NOT-CONSP-CHEAP))
 (328 8 (:REWRITE CONSP-OF-BUTLAST))
 (312 104 (:REWRITE FOLD-CONSTS-IN-+))
 (152 152 (:REWRITE LEN-OF-CDDR-WHEN-EQUAL-OF-LEN))
 (90 90 (:REWRITE CONSP-WHEN-LEN-EQUAL-CONSTANT))
 (49 41 (:REWRITE DEFAULT-<-2))
 (42 41 (:REWRITE DEFAULT-<-1))
 (24 24 (:REWRITE CONSP-WHEN-LEN-GREATER))
 (16 16 (:REWRITE CONSP-OF-CDR-WHEN-LEN-KNOWN))
 (9 9 (:LINEAR LEN-POSITIVE-WHEN-CONSP-LINEAR-CHEAP))
 (8 8 (:TYPE-PRESCRIPTION BUTLAST))
 )
(DEFUN-HAS-VERIFY-GUARDS-NILP
 (3048 12 (:DEFINITION REMOVE-STRINGS))
 (2986 566 (:REWRITE LEN-OF-CDR))
 (1500 24 (:REWRITE CAR-OF-BUTLAST))
 (1359 99 (:REWRITE DEFAULT-CDR))
 (1032 24 (:REWRITE CDR-OF-BUTLAST))
 (891 77 (:REWRITE DEFAULT-CAR))
 (722 722 (:REWRITE DEFAULT-+-2))
 (722 722 (:REWRITE DEFAULT-+-1))
 (697 697 (:REWRITE LEN-WHEN-NOT-CONSP-CHEAP))
 (492 12 (:REWRITE CONSP-OF-BUTLAST))
 (468 156 (:REWRITE FOLD-CONSTS-IN-+))
 (228 228 (:REWRITE LEN-OF-CDDR-WHEN-EQUAL-OF-LEN))
 (138 138 (:REWRITE CONSP-WHEN-LEN-EQUAL-CONSTANT))
 (73 61 (:REWRITE DEFAULT-<-2))
 (62 61 (:REWRITE DEFAULT-<-1))
 (36 36 (:REWRITE CONSP-WHEN-LEN-GREATER))
 (24 24 (:REWRITE CONSP-OF-CDR-WHEN-LEN-KNOWN))
 (13 13 (:LINEAR LEN-POSITIVE-WHEN-CONSP-LINEAR-CHEAP))
 (12 12 (:TYPE-PRESCRIPTION BUTLAST))
 )
(DEFUN-HAS-VERIFY-GUARDS-TP
 (3048 12 (:DEFINITION REMOVE-STRINGS))
 (2986 566 (:REWRITE LEN-OF-CDR))
 (1500 24 (:REWRITE CAR-OF-BUTLAST))
 (1359 99 (:REWRITE DEFAULT-CDR))
 (1032 24 (:REWRITE CDR-OF-BUTLAST))
 (891 77 (:REWRITE DEFAULT-CAR))
 (722 722 (:REWRITE DEFAULT-+-2))
 (722 722 (:REWRITE DEFAULT-+-1))
 (697 697 (:REWRITE LEN-WHEN-NOT-CONSP-CHEAP))
 (492 12 (:REWRITE CONSP-OF-BUTLAST))
 (468 156 (:REWRITE FOLD-CONSTS-IN-+))
 (228 228 (:REWRITE LEN-OF-CDDR-WHEN-EQUAL-OF-LEN))
 (138 138 (:REWRITE CONSP-WHEN-LEN-EQUAL-CONSTANT))
 (73 61 (:REWRITE DEFAULT-<-2))
 (62 61 (:REWRITE DEFAULT-<-1))
 (36 36 (:REWRITE CONSP-WHEN-LEN-GREATER))
 (24 24 (:REWRITE CONSP-OF-CDR-WHEN-LEN-KNOWN))
 (13 13 (:LINEAR LEN-POSITIVE-WHEN-CONSP-LINEAR-CHEAP))
 (12 12 (:TYPE-PRESCRIPTION BUTLAST))
 )
(DEFUN-HAS-MODE-PROGRAMP
 (3048 12 (:DEFINITION REMOVE-STRINGS))
 (2986 566 (:REWRITE LEN-OF-CDR))
 (1500 24 (:REWRITE CAR-OF-BUTLAST))
 (1359 99 (:REWRITE DEFAULT-CDR))
 (1032 24 (:REWRITE CDR-OF-BUTLAST))
 (891 77 (:REWRITE DEFAULT-CAR))
 (722 722 (:REWRITE DEFAULT-+-2))
 (722 722 (:REWRITE DEFAULT-+-1))
 (697 697 (:REWRITE LEN-WHEN-NOT-CONSP-CHEAP))
 (492 12 (:REWRITE CONSP-OF-BUTLAST))
 (468 156 (:REWRITE FOLD-CONSTS-IN-+))
 (228 228 (:REWRITE LEN-OF-CDDR-WHEN-EQUAL-OF-LEN))
 (138 138 (:REWRITE CONSP-WHEN-LEN-EQUAL-CONSTANT))
 (73 61 (:REWRITE DEFAULT-<-2))
 (62 61 (:REWRITE DEFAULT-<-1))
 (36 36 (:REWRITE CONSP-WHEN-LEN-GREATER))
 (24 24 (:REWRITE CONSP-OF-CDR-WHEN-LEN-KNOWN))
 (13 13 (:LINEAR LEN-POSITIVE-WHEN-CONSP-LINEAR-CHEAP))
 (12 12 (:TYPE-PRESCRIPTION BUTLAST))
 )
(DEFUN-DEMANDS-GUARD-VERIFICATIONP)
(ADD-VERIFY-GUARDS-NIL-TO-DEFUN
 (4064 16 (:DEFINITION REMOVE-STRINGS))
 (3978 754 (:REWRITE LEN-OF-CDR))
 (2000 32 (:REWRITE CAR-OF-BUTLAST))
 (1779 127 (:REWRITE DEFAULT-CDR))
 (1376 32 (:REWRITE CDR-OF-BUTLAST))
 (1215 101 (:REWRITE DEFAULT-CAR))
 (962 962 (:REWRITE DEFAULT-+-2))
 (962 962 (:REWRITE DEFAULT-+-1))
 (929 929 (:REWRITE LEN-WHEN-NOT-CONSP-CHEAP))
 (656 16 (:REWRITE CONSP-OF-BUTLAST))
 (624 208 (:REWRITE FOLD-CONSTS-IN-+))
 (304 304 (:REWRITE LEN-OF-CDDR-WHEN-EQUAL-OF-LEN))
 (186 186 (:REWRITE CONSP-WHEN-LEN-EQUAL-CONSTANT))
 (101 85 (:REWRITE DEFAULT-<-2))
 (86 85 (:REWRITE DEFAULT-<-1))
 (48 48 (:REWRITE CONSP-WHEN-LEN-GREATER))
 (32 32 (:REWRITE CONSP-OF-CDR-WHEN-LEN-KNOWN))
 (17 17 (:LINEAR LEN-POSITIVE-WHEN-CONSP-LINEAR-CHEAP))
 (16 16 (:TYPE-PRESCRIPTION BUTLAST))
 )
(ADD-VERIFY-GUARDS-T-TO-DEFUN
 (4064 16 (:DEFINITION REMOVE-STRINGS))
 (3978 754 (:REWRITE LEN-OF-CDR))
 (2000 32 (:REWRITE CAR-OF-BUTLAST))
 (1779 127 (:REWRITE DEFAULT-CDR))
 (1376 32 (:REWRITE CDR-OF-BUTLAST))
 (1215 101 (:REWRITE DEFAULT-CAR))
 (962 962 (:REWRITE DEFAULT-+-2))
 (962 962 (:REWRITE DEFAULT-+-1))
 (929 929 (:REWRITE LEN-WHEN-NOT-CONSP-CHEAP))
 (656 16 (:REWRITE CONSP-OF-BUTLAST))
 (624 208 (:REWRITE FOLD-CONSTS-IN-+))
 (304 304 (:REWRITE LEN-OF-CDDR-WHEN-EQUAL-OF-LEN))
 (186 186 (:REWRITE CONSP-WHEN-LEN-EQUAL-CONSTANT))
 (101 85 (:REWRITE DEFAULT-<-2))
 (86 85 (:REWRITE DEFAULT-<-1))
 (48 48 (:REWRITE CONSP-WHEN-LEN-GREATER))
 (32 32 (:REWRITE CONSP-OF-CDR-WHEN-LEN-KNOWN))
 (17 17 (:LINEAR LEN-POSITIVE-WHEN-CONSP-LINEAR-CHEAP))
 (16 16 (:TYPE-PRESCRIPTION BUTLAST))
 )
(REMOVE-XARG-IN-DEFUN
 (4064 16 (:DEFINITION REMOVE-STRINGS))
 (3978 754 (:REWRITE LEN-OF-CDR))
 (2000 32 (:REWRITE CAR-OF-BUTLAST))
 (1779 127 (:REWRITE DEFAULT-CDR))
 (1376 32 (:REWRITE CDR-OF-BUTLAST))
 (1215 101 (:REWRITE DEFAULT-CAR))
 (962 962 (:REWRITE DEFAULT-+-2))
 (962 962 (:REWRITE DEFAULT-+-1))
 (929 929 (:REWRITE LEN-WHEN-NOT-CONSP-CHEAP))
 (656 16 (:REWRITE CONSP-OF-BUTLAST))
 (624 208 (:REWRITE FOLD-CONSTS-IN-+))
 (304 304 (:REWRITE LEN-OF-CDDR-WHEN-EQUAL-OF-LEN))
 (186 186 (:REWRITE CONSP-WHEN-LEN-EQUAL-CONSTANT))
 (101 85 (:REWRITE DEFAULT-<-2))
 (86 85 (:REWRITE DEFAULT-<-1))
 (48 48 (:REWRITE CONSP-WHEN-LEN-GREATER))
 (32 32 (:REWRITE CONSP-OF-CDR-WHEN-LEN-KNOWN))
 (17 17 (:LINEAR LEN-POSITIVE-WHEN-CONSP-LINEAR-CHEAP))
 (16 16 (:TYPE-PRESCRIPTION BUTLAST))
 (8 8 (:REWRITE DEFAULT-SYMBOL-PACKAGE-NAME))
 (4 4 (:REWRITE KEYWORDP-WHEN-ASSOC-KEYWORD))
 )
(DEFUN-FORMP-OF-REMOVE-XARG-IN-DEFUN
 (1 1 (:REWRITE DEFAULT-SYMBOL-PACKAGE-NAME))
 )
(REPLACE-XARG-IN-DEFUN
 (4064 16 (:DEFINITION REMOVE-STRINGS))
 (3978 754 (:REWRITE LEN-OF-CDR))
 (2000 32 (:REWRITE CAR-OF-BUTLAST))
 (1779 127 (:REWRITE DEFAULT-CDR))
 (1376 32 (:REWRITE CDR-OF-BUTLAST))
 (1215 101 (:REWRITE DEFAULT-CAR))
 (962 962 (:REWRITE DEFAULT-+-2))
 (962 962 (:REWRITE DEFAULT-+-1))
 (929 929 (:REWRITE LEN-WHEN-NOT-CONSP-CHEAP))
 (656 16 (:REWRITE CONSP-OF-BUTLAST))
 (624 208 (:REWRITE FOLD-CONSTS-IN-+))
 (304 304 (:REWRITE LEN-OF-CDDR-WHEN-EQUAL-OF-LEN))
 (186 186 (:REWRITE CONSP-WHEN-LEN-EQUAL-CONSTANT))
 (101 85 (:REWRITE DEFAULT-<-2))
 (86 85 (:REWRITE DEFAULT-<-1))
 (48 48 (:REWRITE CONSP-WHEN-LEN-GREATER))
 (32 32 (:REWRITE CONSP-OF-CDR-WHEN-LEN-KNOWN))
 (17 17 (:LINEAR LEN-POSITIVE-WHEN-CONSP-LINEAR-CHEAP))
 (16 16 (:TYPE-PRESCRIPTION BUTLAST))
 (12 12 (:REWRITE DEFAULT-SYMBOL-PACKAGE-NAME))
 (8 8 (:REWRITE KEYWORDP-WHEN-ASSOC-KEYWORD))
 )
(DEFUN-FORMP-OF-REPLACE-XARG-IN-DEFUN
 (2 2 (:REWRITE DEFAULT-SYMBOL-PACKAGE-NAME))
 (1 1 (:REWRITE KEYWORDP-WHEN-ASSOC-KEYWORD))
 )
(REMOVE-HINTS-FROM-DEFUN
 (9144 36 (:DEFINITION REMOVE-STRINGS))
 (8938 1694 (:REWRITE LEN-OF-CDR))
 (4500 72 (:REWRITE CAR-OF-BUTLAST))
 (3899 287 (:REWRITE DEFAULT-CDR))
 (3096 72 (:REWRITE CDR-OF-BUTLAST))
 (2835 221 (:REWRITE DEFAULT-CAR))
 (2162 2162 (:REWRITE DEFAULT-+-2))
 (2162 2162 (:REWRITE DEFAULT-+-1))
 (2089 2089 (:REWRITE LEN-WHEN-NOT-CONSP-CHEAP))
 (1476 36 (:REWRITE CONSP-OF-BUTLAST))
 (1404 468 (:REWRITE FOLD-CONSTS-IN-+))
 (684 684 (:REWRITE LEN-OF-CDDR-WHEN-EQUAL-OF-LEN))
 (426 426 (:REWRITE CONSP-WHEN-LEN-EQUAL-CONSTANT))
 (221 185 (:REWRITE DEFAULT-<-2))
 (186 185 (:REWRITE DEFAULT-<-1))
 (108 108 (:REWRITE CONSP-WHEN-LEN-GREATER))
 (72 72 (:REWRITE CONSP-OF-CDR-WHEN-LEN-KNOWN))
 (37 37 (:LINEAR LEN-POSITIVE-WHEN-CONSP-LINEAR-CHEAP))
 (36 36 (:TYPE-PRESCRIPTION BUTLAST))
 )
(ENSURE-DEFUN-DEMANDS-GUARD-VERIFICATION)
