(STR::APPEND-SINGLETON-CROCK)
(STR::CHARLIST-HAS-SOME-DOWN-ALPHA-P
 (12 4 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (12 1 (:DEFINITION CHARACTER-LISTP))
 (8 8 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (7 7 (:REWRITE DEFAULT-CAR))
 (7 7 (:REWRITE CONSP-BY-LEN))
 (2 2 (:REWRITE DEFAULT-CDR))
 )
(STR::UPCASE-CHARLIST-AUX
 (12 1 (:DEFINITION CHARACTER-LISTP))
 (4 4 (:REWRITE CONSP-BY-LEN))
 (2 2 (:REWRITE DEFAULT-CDR))
 (2 2 (:REWRITE DEFAULT-CAR))
 )
(STR::UPCASE-CHARLIST)
(STR::UPCASE-CHARLIST-WHEN-ATOM
 (1 1 (:REWRITE CONSP-BY-LEN))
 )
(STR::UPCASE-CHARLIST-OF-CONS
 (30 5 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (15 5 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (13 6 (:REWRITE STR::UPCASE-CHARLIST-WHEN-ATOM))
 (10 10 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (10 10 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (7 7 (:REWRITE CONSP-BY-LEN))
 (3 3 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::ICHARLISTEQV-IMPLIES-EQUAL-UPCASE-CHARLIST-1
 (303 7 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-SAME-LENS))
 (197 17 (:DEFINITION LEN))
 (100 35 (:REWRITE LEN-WHEN-ATOM))
 (86 86 (:TYPE-PRESCRIPTION LEN))
 (86 86 (:REWRITE CONSP-BY-LEN))
 (42 21 (:REWRITE DEFAULT-+-2))
 (41 41 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (36 6 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (29 29 (:REWRITE DEFAULT-CDR))
 (21 21 (:REWRITE DEFAULT-+-1))
 (18 6 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (16 14 (:REWRITE DEFAULT-CAR))
 (14 6 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-CONSP-LEFT))
 (12 12 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (12 12 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (8 8 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 (3 1 (:REWRITE |(equal 0 (len x))|))
 (2 2 (:REWRITE EQUAL-CONSTANT-+))
 )
(STR::CHARACTER-LISTP-UPCASE-CHARLIST
 (18 3 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (12 3 (:REWRITE CHARACTERP-OF-CAR-WHEN-CHARACTER-LISTP))
 (12 3 (:REWRITE CHARACTER-LISTP-OF-CDR-WHEN-CHARACTER-LISTP))
 (11 11 (:REWRITE CONSP-BY-LEN))
 (9 3 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (8 7 (:REWRITE DEFAULT-CAR))
 (7 6 (:REWRITE DEFAULT-CDR))
 (6 6 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (6 6 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::CONSP-OF-UPCASE-CHARLIST
 (18 3 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (14 14 (:REWRITE CONSP-BY-LEN))
 (9 3 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (6 6 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (6 6 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (3 3 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 (3 3 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::UPCASE-CHARLIST-UNDER-IFF
 (30 5 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (15 5 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (12 12 (:REWRITE CONSP-BY-LEN))
 (10 10 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (10 10 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (5 5 (:REWRITE DEFAULT-CAR))
 (4 4 (:REWRITE DEFAULT-CDR))
 (4 4 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::LEN-OF-UPCASE-CHARLIST
 (26 26 (:REWRITE CONSP-BY-LEN))
 (20 8 (:REWRITE DEFAULT-CDR))
 (18 3 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (16 8 (:REWRITE DEFAULT-+-2))
 (12 12 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (9 3 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (8 8 (:REWRITE DEFAULT-+-1))
 (6 6 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (6 6 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (3 3 (:REWRITE DEFAULT-CAR))
 )
(STR::UPCASE-CHARLIST-AUX-IS-UPCASE-CHARLIST
 (52 52 (:REWRITE CONSP-BY-LEN))
 (51 14 (:REWRITE DEFAULT-CAR))
 (46 11 (:REWRITE DEFAULT-CDR))
 (36 6 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (22 4 (:REWRITE REV-WHEN-NOT-CONSP))
 (18 6 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (16 16 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (12 12 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (12 12 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (9 1 (:REWRITE CDR-OF-APPEND-WHEN-CONSP))
 (3 3 (:TYPE-PRESCRIPTION REVAPPEND))
 (2 2 (:REWRITE APPEND-ATOM-UNDER-LIST-EQUIV))
 )
(STR::UPCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-DOWN-ALPHA-P
 (18 6 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (14 14 (:REWRITE DEFAULT-CAR))
 (14 14 (:REWRITE CONSP-BY-LEN))
 (12 12 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (11 5 (:REWRITE STR::UPCASE-CHARLIST-WHEN-ATOM))
 (8 2 (:REWRITE CHARACTER-LISTP-OF-CDR-WHEN-CHARACTER-LISTP))
 (7 7 (:REWRITE DEFAULT-CDR))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::UPCASE-CHARLIST
 (76 26 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (50 50 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (41 41 (:REWRITE DEFAULT-CAR))
 (40 40 (:REWRITE DEFAULT-CDR))
 (40 16 (:REWRITE STR::UPCASE-CHARLIST-WHEN-ATOM))
 (37 37 (:REWRITE CONSP-BY-LEN))
 (26 26 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (10 10 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 (5 1 (:REWRITE REV-WHEN-NOT-CONSP))
 (2 1 (:REWRITE STR::CONSP-OF-UPCASE-CHARLIST))
 )
(STR::STRING-UPCASE1-IS-UPCASE-CHARLIST
 (100 6 (:REWRITE STR::UPCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-DOWN-ALPHA-P))
 (82 7 (:DEFINITION STR::CHARLIST-HAS-SOME-DOWN-ALPHA-P))
 (39 13 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (36 6 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (28 28 (:TYPE-PRESCRIPTION STR::CHARLIST-HAS-SOME-DOWN-ALPHA-P))
 (26 26 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (26 26 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (16 16 (:REWRITE DEFAULT-CAR))
 (15 15 (:REWRITE CONSP-BY-LEN))
 (11 11 (:REWRITE DEFAULT-CDR))
 (5 5 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (1 1 (:TYPE-PRESCRIPTION CHARACTER-LISTP))
 (1 1 (:DEFINITION CHARACTER-LISTP))
 )
(STR::NOT-CHARLIST-HAS-SOME-DOWN-ALPHA-P-OF-UPCASE-CHARLIST
 (100 6 (:REWRITE STR::UPCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-DOWN-ALPHA-P))
 (39 13 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (26 26 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (24 14 (:REWRITE DEFAULT-CAR))
 (23 23 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (23 13 (:REWRITE DEFAULT-CDR))
 (18 3 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (16 16 (:REWRITE CONSP-BY-LEN))
 (13 9 (:REWRITE STR::CONSP-OF-UPCASE-CHARLIST))
 (6 6 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (1 1 (:TYPE-PRESCRIPTION CHARACTER-LISTP))
 (1 1 (:DEFINITION CHARACTER-LISTP))
 )
(STR::CHARLIST-HAS-SOME-UP-ALPHA-P
 (12 1 (:DEFINITION CHARACTER-LISTP))
 (7 7 (:REWRITE DEFAULT-CAR))
 (7 7 (:REWRITE CONSP-BY-LEN))
 (2 2 (:REWRITE DEFAULT-CDR))
 )
(STR::DOWNCASE-CHARLIST-AUX
 (12 1 (:DEFINITION CHARACTER-LISTP))
 (4 4 (:REWRITE CONSP-BY-LEN))
 (2 2 (:REWRITE DEFAULT-CDR))
 (2 2 (:REWRITE DEFAULT-CAR))
 )
(STR::DOWNCASE-CHARLIST)
(STR::DOWNCASE-CHARLIST-WHEN-ATOM
 (1 1 (:REWRITE CONSP-BY-LEN))
 )
(STR::DOWNCASE-CHARLIST-OF-CONS
 (15 5 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (13 6 (:REWRITE STR::DOWNCASE-CHARLIST-WHEN-ATOM))
 (10 10 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (7 7 (:REWRITE CONSP-BY-LEN))
 (3 3 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::ICHARLISTEQV-IMPLIES-EQUAL-DOWNCASE-CHARLIST-1
 (303 7 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-SAME-LENS))
 (197 17 (:DEFINITION LEN))
 (100 35 (:REWRITE LEN-WHEN-ATOM))
 (86 86 (:TYPE-PRESCRIPTION LEN))
 (86 86 (:REWRITE CONSP-BY-LEN))
 (42 21 (:REWRITE DEFAULT-+-2))
 (41 41 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (29 29 (:REWRITE DEFAULT-CDR))
 (21 21 (:REWRITE DEFAULT-+-1))
 (18 6 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (16 14 (:REWRITE DEFAULT-CAR))
 (14 6 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-CONSP-LEFT))
 (12 12 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (8 8 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 (3 1 (:REWRITE |(equal 0 (len x))|))
 (2 2 (:REWRITE EQUAL-CONSTANT-+))
 )
(STR::CHARACTER-LISTP-DOWNCASE-CHARLIST
 (12 3 (:REWRITE CHARACTERP-OF-CAR-WHEN-CHARACTER-LISTP))
 (12 3 (:REWRITE CHARACTER-LISTP-OF-CDR-WHEN-CHARACTER-LISTP))
 (11 11 (:REWRITE CONSP-BY-LEN))
 (9 3 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (8 7 (:REWRITE DEFAULT-CAR))
 (7 6 (:REWRITE DEFAULT-CDR))
 (6 6 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::CONSP-OF-DOWNCASE-CHARLIST
 (14 14 (:REWRITE CONSP-BY-LEN))
 (9 3 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (6 6 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (3 3 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 (3 3 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::DOWNCASE-CHARLIST-UNDER-IFF
 (15 5 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (12 12 (:REWRITE CONSP-BY-LEN))
 (10 10 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (5 5 (:REWRITE DEFAULT-CAR))
 (4 4 (:REWRITE DEFAULT-CDR))
 (4 4 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::LEN-OF-DOWNCASE-CHARLIST
 (26 26 (:REWRITE CONSP-BY-LEN))
 (20 8 (:REWRITE DEFAULT-CDR))
 (16 8 (:REWRITE DEFAULT-+-2))
 (12 12 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (9 3 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (8 8 (:REWRITE DEFAULT-+-1))
 (6 6 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (3 3 (:REWRITE DEFAULT-CAR))
 )
(STR::DOWNCASE-CHARLIST-AUX-IS-DOWNCASE-CHARLIST
 (52 52 (:REWRITE CONSP-BY-LEN))
 (51 14 (:REWRITE DEFAULT-CAR))
 (46 11 (:REWRITE DEFAULT-CDR))
 (22 4 (:REWRITE REV-WHEN-NOT-CONSP))
 (18 6 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (16 16 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (12 12 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (9 1 (:REWRITE CDR-OF-APPEND-WHEN-CONSP))
 (3 3 (:TYPE-PRESCRIPTION REVAPPEND))
 (2 2 (:REWRITE APPEND-ATOM-UNDER-LIST-EQUIV))
 )
(STR::DOWNCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-UP-ALPHA-P
 (14 14 (:REWRITE DEFAULT-CAR))
 (14 14 (:REWRITE CONSP-BY-LEN))
 (11 5 (:REWRITE STR::DOWNCASE-CHARLIST-WHEN-ATOM))
 (8 2 (:REWRITE CHARACTER-LISTP-OF-CDR-WHEN-CHARACTER-LISTP))
 (7 7 (:REWRITE DEFAULT-CDR))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::DOWNCASE-CHARLIST
 (41 41 (:REWRITE DEFAULT-CAR))
 (40 40 (:REWRITE DEFAULT-CDR))
 (40 16 (:REWRITE STR::DOWNCASE-CHARLIST-WHEN-ATOM))
 (37 37 (:REWRITE CONSP-BY-LEN))
 (26 26 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (10 10 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 (5 1 (:REWRITE REV-WHEN-NOT-CONSP))
 (2 1 (:REWRITE STR::CONSP-OF-DOWNCASE-CHARLIST))
 )
(STR::STRING-DOWNCASE1-REDEF
 (79 6 (:REWRITE STR::DOWNCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-UP-ALPHA-P))
 (61 7 (:DEFINITION STR::CHARLIST-HAS-SOME-UP-ALPHA-P))
 (28 28 (:TYPE-PRESCRIPTION STR::CHARLIST-HAS-SOME-UP-ALPHA-P))
 (26 26 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (18 6 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (16 16 (:REWRITE DEFAULT-CAR))
 (15 15 (:REWRITE CONSP-BY-LEN))
 (11 11 (:REWRITE DEFAULT-CDR))
 (5 5 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (1 1 (:TYPE-PRESCRIPTION CHARACTER-LISTP))
 (1 1 (:DEFINITION CHARACTER-LISTP))
 )
(STR::STRING-HAS-SOME-DOWN-ALPHA-P)
(STR::STRING-HAS-SOME-DOWN-ALPHA-P
 (1424 40 (:REWRITE NTH-WHEN-BIGGER))
 (1115 65 (:DEFINITION LEN))
 (1060 20 (:DEFINITION NTH))
 (715 130 (:REWRITE LEN-WHEN-ATOM))
 (559 102 (:REWRITE DEFAULT-CDR))
 (328 207 (:REWRITE STR::CONSP-OF-EXPLODE))
 (323 323 (:REWRITE CONSP-BY-LEN))
 (172 106 (:REWRITE DEFAULT-+-2))
 (134 16 (:REWRITE NTHCDR-WHEN-ZP))
 (126 74 (:REWRITE DEFAULT-<-2))
 (124 121 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (116 116 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (114 41 (:REWRITE ZP-OPEN))
 (107 106 (:REWRITE DEFAULT-+-1))
 (103 23 (:REWRITE DEFAULT-CAR))
 (100 74 (:REWRITE DEFAULT-<-1))
 (86 16 (:REWRITE NTHCDR-WHEN-ATOM))
 (63 21 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (62 2 (:REWRITE CHARACTERP-NTH))
 (42 42 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (39 39 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (24 24 (:LINEAR LEN-OF-NONEMPTY-STRING-IS-POSITIVE))
 (22 7 (:REWRITE <-0-+-NEGATIVE-1))
 (20 20 (:TYPE-PRESCRIPTION ZP))
 (20 20 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 (10 2 (:REWRITE |(< 0 (len x))|))
 (8 8 (:REWRITE OPEN-SMALL-NTHCDR))
 (3 3 (:REWRITE NATP-RW))
 (2 2 (:TYPE-PRESCRIPTION CHARACTER-LISTP))
 (2 2 (:REWRITE LEN-OF-NONEMPTY-STRING-IS-POSITIVE))
 (2 2 (:REWRITE CHARACTER-LISTP-OF-EXPLODE))
 )
(STR::UPCASE-STRING-AUX)
(STR::UPCASE-STRING-AUX
 (705 39 (:DEFINITION LEN))
 (446 65 (:REWRITE DEFAULT-CDR))
 (412 12 (:REWRITE NTH-WHEN-BIGGER))
 (381 78 (:REWRITE LEN-WHEN-ATOM))
 (318 6 (:DEFINITION NTH))
 (212 212 (:REWRITE CONSP-BY-LEN))
 (210 4 (:DEFINITION BINARY-APPEND))
 (202 15 (:REWRITE STR::CONSP-OF-UPCASE-CHARLIST))
 (191 16 (:REWRITE CONSP-OF-REV))
 (188 117 (:REWRITE STR::CONSP-OF-EXPLODE))
 (118 14 (:REWRITE NTHCDR-WHEN-ZP))
 (102 62 (:REWRITE DEFAULT-+-2))
 (95 13 (:REWRITE DEFAULT-CAR))
 (90 24 (:REWRITE ZP-OPEN))
 (79 79 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (74 14 (:REWRITE NTHCDR-WHEN-ATOM))
 (69 45 (:REWRITE DEFAULT-<-2))
 (63 62 (:REWRITE DEFAULT-+-1))
 (63 4 (:REWRITE REV-WHEN-NOT-CONSP))
 (55 45 (:REWRITE DEFAULT-<-1))
 (51 48 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (48 8 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (33 11 (:REWRITE STR::UPCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-DOWN-ALPHA-P))
 (31 1 (:REWRITE CHARACTERP-NTH))
 (24 8 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (22 22 (:TYPE-PRESCRIPTION STR::CHARLIST-HAS-SOME-DOWN-ALPHA-P))
 (22 22 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (19 6 (:REWRITE <-0-+-NEGATIVE-1))
 (17 17 (:TYPE-PRESCRIPTION ZP))
 (16 16 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (16 16 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (14 14 (:LINEAR LEN-OF-NONEMPTY-STRING-IS-POSITIVE))
 (10 2 (:REWRITE |(< 0 (len x))|))
 (9 9 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 (8 8 (:TYPE-PRESCRIPTION REVAPPEND))
 (7 7 (:REWRITE OPEN-SMALL-NTHCDR))
 (2 2 (:REWRITE NATP-RW))
 (2 2 (:REWRITE LEN-OF-NONEMPTY-STRING-IS-POSITIVE))
 (1 1 (:TYPE-PRESCRIPTION CHARACTER-LISTP))
 (1 1 (:REWRITE CHARACTER-LISTP-OF-EXPLODE))
 )
(STR::UPCASE-STRING)
(STR::UPCASE-STRING
 (76 4 (:DEFINITION LEN))
 (48 8 (:REWRITE LEN-WHEN-ATOM))
 (38 38 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (28 16 (:REWRITE STR::CONSP-OF-EXPLODE))
 (20 20 (:REWRITE CONSP-BY-LEN))
 (20 4 (:REWRITE DEFAULT-CDR))
 (17 3 (:REWRITE REV-WHEN-NOT-CONSP))
 (14 14 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (13 3 (:REWRITE STR::UPCASE-CHARLIST-WHEN-ATOM))
 (10 2 (:REWRITE STR::CONSP-OF-UPCASE-CHARLIST))
 (8 4 (:REWRITE DEFAULT-+-2))
 (4 4 (:REWRITE DEFAULT-+-1))
 (4 4 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (2 1 (:REWRITE REVERSE-REMOVAL))
 )
(STR::ISTREQV-IMPLIES-EQUAL-UPCASE-STRING-1
 (63 1 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-SAME-LENS))
 (38 2 (:DEFINITION LEN))
 (24 4 (:REWRITE LEN-WHEN-ATOM))
 (22 22 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (16 9 (:REWRITE STR::CONSP-OF-EXPLODE))
 (12 12 (:TYPE-PRESCRIPTION LEN))
 (11 11 (:REWRITE CONSP-BY-LEN))
 (10 2 (:REWRITE DEFAULT-CDR))
 (7 2 (:REWRITE STR::UPCASE-CHARLIST-WHEN-ATOM))
 (6 1 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-CONSP-RIGHT))
 (6 1 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-CONSP-LEFT))
 (4 4 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (4 2 (:REWRITE STR::UPCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-DOWN-ALPHA-P))
 (4 2 (:REWRITE DEFAULT-+-2))
 (2 2 (:TYPE-PRESCRIPTION STR::CHARLIST-HAS-SOME-DOWN-ALPHA-P))
 (2 2 (:REWRITE DEFAULT-+-1))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (2 2 (:LINEAR LEN-OF-NONEMPTY-STRING-IS-POSITIVE))
 )
(STR::LEN-OF-UPCASE-STRING
 (38 2 (:DEFINITION LEN))
 (31 3 (:LINEAR LEN-OF-NONEMPTY-STRING-IS-POSITIVE))
 (19 4 (:REWRITE LEN-WHEN-ATOM))
 (18 18 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (18 2 (:REWRITE STR::EQUAL-OF-IMPLODE-WITH-EMPTY-STRING))
 (14 8 (:REWRITE STR::CONSP-OF-EXPLODE))
 (14 2 (:DEFINITION ATOM))
 (10 10 (:TYPE-PRESCRIPTION STRINGP-OF-IMPLODE))
 (10 10 (:REWRITE CONSP-BY-LEN))
 (10 2 (:REWRITE DEFAULT-CDR))
 (10 2 (:REWRITE STR::CONSP-OF-UPCASE-CHARLIST))
 (6 6 (:DEFINITION NOT))
 (6 1 (:REWRITE STR::UPCASE-CHARLIST-WHEN-ATOM))
 (4 2 (:REWRITE DEFAULT-+-2))
 (3 1 (:REWRITE STR::UPCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-DOWN-ALPHA-P))
 (2 2 (:TYPE-PRESCRIPTION STR::CHARLIST-HAS-SOME-DOWN-ALPHA-P))
 (2 2 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (2 2 (:REWRITE DEFAULT-+-1))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::LENGTH-OF-UPCASE-STRING
 (38 2 (:DEFINITION LEN))
 (24 4 (:REWRITE LEN-WHEN-ATOM))
 (18 18 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (12 7 (:REWRITE STR::CONSP-OF-EXPLODE))
 (10 2 (:REWRITE DEFAULT-CDR))
 (9 9 (:REWRITE CONSP-BY-LEN))
 (6 1 (:REWRITE STR::UPCASE-CHARLIST-WHEN-ATOM))
 (5 5 (:DEFINITION NOT))
 (4 2 (:REWRITE DEFAULT-+-2))
 (3 1 (:REWRITE STR::UPCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-DOWN-ALPHA-P))
 (2 2 (:TYPE-PRESCRIPTION STR::CHARLIST-HAS-SOME-DOWN-ALPHA-P))
 (2 2 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (2 2 (:REWRITE DEFAULT-+-1))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (1 1 (:LINEAR LEN-OF-NONEMPTY-STRING-IS-POSITIVE))
 )
(STR::EQUAL-OF-EMPTY-STRING-WITH-UPCASE-STRING
 (6 1 (:REWRITE STR::UPCASE-CHARLIST-WHEN-ATOM))
 (3 3 (:REWRITE CONSP-BY-LEN))
 (3 1 (:REWRITE STR::UPCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-DOWN-ALPHA-P))
 (2 2 (:TYPE-PRESCRIPTION STR::CHARLIST-HAS-SOME-DOWN-ALPHA-P))
 (2 2 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 )
(STR::STRING-UPCASE-IS-UPCASE-STRING)
(STR::STRING-HAS-SOME-UP-ALPHA-P)
(STR::STRING-HAS-SOME-UP-ALPHA-P
 (1352 38 (:REWRITE NTH-WHEN-BIGGER))
 (1083 63 (:DEFINITION LEN))
 (1007 19 (:DEFINITION NTH))
 (693 126 (:REWRITE LEN-WHEN-ATOM))
 (548 99 (:REWRITE DEFAULT-CDR))
 (319 201 (:REWRITE STR::CONSP-OF-EXPLODE))
 (313 313 (:REWRITE CONSP-BY-LEN))
 (166 102 (:REWRITE DEFAULT-+-2))
 (134 16 (:REWRITE NTHCDR-WHEN-ZP))
 (122 72 (:REWRITE DEFAULT-<-2))
 (119 116 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (113 40 (:REWRITE ZP-OPEN))
 (112 112 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (103 102 (:REWRITE DEFAULT-+-1))
 (98 22 (:REWRITE DEFAULT-CAR))
 (97 72 (:REWRITE DEFAULT-<-1))
 (86 16 (:REWRITE NTHCDR-WHEN-ATOM))
 (62 2 (:REWRITE CHARACTERP-NTH))
 (38 38 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (23 23 (:LINEAR LEN-OF-NONEMPTY-STRING-IS-POSITIVE))
 (22 7 (:REWRITE <-0-+-NEGATIVE-1))
 (20 20 (:TYPE-PRESCRIPTION ZP))
 (19 19 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 (10 2 (:REWRITE |(< 0 (len x))|))
 (8 8 (:REWRITE OPEN-SMALL-NTHCDR))
 (3 3 (:REWRITE NATP-RW))
 (2 2 (:TYPE-PRESCRIPTION CHARACTER-LISTP))
 (2 2 (:REWRITE LEN-OF-NONEMPTY-STRING-IS-POSITIVE))
 (2 2 (:REWRITE CHARACTER-LISTP-OF-EXPLODE))
 )
(STR::DOWNCASE-STRING-AUX)
(STR::DOWNCASE-STRING-AUX
 (705 39 (:DEFINITION LEN))
 (446 65 (:REWRITE DEFAULT-CDR))
 (412 12 (:REWRITE NTH-WHEN-BIGGER))
 (381 78 (:REWRITE LEN-WHEN-ATOM))
 (318 6 (:DEFINITION NTH))
 (212 212 (:REWRITE CONSP-BY-LEN))
 (210 4 (:DEFINITION BINARY-APPEND))
 (202 15 (:REWRITE STR::CONSP-OF-DOWNCASE-CHARLIST))
 (191 16 (:REWRITE CONSP-OF-REV))
 (188 117 (:REWRITE STR::CONSP-OF-EXPLODE))
 (118 14 (:REWRITE NTHCDR-WHEN-ZP))
 (103 63 (:REWRITE DEFAULT-+-2))
 (95 13 (:REWRITE DEFAULT-CAR))
 (90 24 (:REWRITE ZP-OPEN))
 (79 79 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (74 14 (:REWRITE NTHCDR-WHEN-ATOM))
 (69 45 (:REWRITE DEFAULT-<-2))
 (64 63 (:REWRITE DEFAULT-+-1))
 (63 4 (:REWRITE REV-WHEN-NOT-CONSP))
 (55 45 (:REWRITE DEFAULT-<-1))
 (51 48 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (33 11 (:REWRITE STR::DOWNCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-UP-ALPHA-P))
 (31 1 (:REWRITE CHARACTERP-NTH))
 (24 8 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (22 22 (:TYPE-PRESCRIPTION STR::CHARLIST-HAS-SOME-UP-ALPHA-P))
 (22 22 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (19 6 (:REWRITE <-0-+-NEGATIVE-1))
 (17 17 (:TYPE-PRESCRIPTION ZP))
 (16 16 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (14 14 (:LINEAR LEN-OF-NONEMPTY-STRING-IS-POSITIVE))
 (10 2 (:REWRITE |(< 0 (len x))|))
 (9 9 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 (8 8 (:TYPE-PRESCRIPTION REVAPPEND))
 (7 7 (:REWRITE OPEN-SMALL-NTHCDR))
 (2 2 (:REWRITE NATP-RW))
 (2 2 (:REWRITE LEN-OF-NONEMPTY-STRING-IS-POSITIVE))
 (1 1 (:TYPE-PRESCRIPTION CHARACTER-LISTP))
 (1 1 (:REWRITE CHARACTER-LISTP-OF-EXPLODE))
 )
(STR::DOWNCASE-STRING)
(STR::DOWNCASE-STRING
 (76 4 (:DEFINITION LEN))
 (48 8 (:REWRITE LEN-WHEN-ATOM))
 (38 38 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (28 16 (:REWRITE STR::CONSP-OF-EXPLODE))
 (20 20 (:REWRITE CONSP-BY-LEN))
 (20 4 (:REWRITE DEFAULT-CDR))
 (17 3 (:REWRITE REV-WHEN-NOT-CONSP))
 (14 14 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (13 3 (:REWRITE STR::DOWNCASE-CHARLIST-WHEN-ATOM))
 (10 2 (:REWRITE STR::CONSP-OF-DOWNCASE-CHARLIST))
 (8 4 (:REWRITE DEFAULT-+-2))
 (4 4 (:REWRITE DEFAULT-+-1))
 (4 4 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (2 1 (:REWRITE REVERSE-REMOVAL))
 )
(STR::ISTREQV-IMPLIES-EQUAL-DOWNCASE-STRING-1
 (63 1 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-SAME-LENS))
 (38 2 (:DEFINITION LEN))
 (24 4 (:REWRITE LEN-WHEN-ATOM))
 (22 22 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (16 9 (:REWRITE STR::CONSP-OF-EXPLODE))
 (12 12 (:TYPE-PRESCRIPTION LEN))
 (11 11 (:REWRITE CONSP-BY-LEN))
 (10 2 (:REWRITE DEFAULT-CDR))
 (7 2 (:REWRITE STR::DOWNCASE-CHARLIST-WHEN-ATOM))
 (6 1 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-CONSP-RIGHT))
 (6 1 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-CONSP-LEFT))
 (4 4 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (4 2 (:REWRITE STR::DOWNCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-UP-ALPHA-P))
 (4 2 (:REWRITE DEFAULT-+-2))
 (2 2 (:TYPE-PRESCRIPTION STR::CHARLIST-HAS-SOME-UP-ALPHA-P))
 (2 2 (:REWRITE DEFAULT-+-1))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (2 2 (:LINEAR LEN-OF-NONEMPTY-STRING-IS-POSITIVE))
 )
(STR::LEN-OF-DOWNCASE-STRING
 (38 2 (:DEFINITION LEN))
 (31 3 (:LINEAR LEN-OF-NONEMPTY-STRING-IS-POSITIVE))
 (19 4 (:REWRITE LEN-WHEN-ATOM))
 (18 18 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (18 2 (:REWRITE STR::EQUAL-OF-IMPLODE-WITH-EMPTY-STRING))
 (14 8 (:REWRITE STR::CONSP-OF-EXPLODE))
 (14 2 (:DEFINITION ATOM))
 (10 10 (:TYPE-PRESCRIPTION STRINGP-OF-IMPLODE))
 (10 10 (:REWRITE CONSP-BY-LEN))
 (10 2 (:REWRITE DEFAULT-CDR))
 (10 2 (:REWRITE STR::CONSP-OF-DOWNCASE-CHARLIST))
 (6 6 (:DEFINITION NOT))
 (6 1 (:REWRITE STR::DOWNCASE-CHARLIST-WHEN-ATOM))
 (4 2 (:REWRITE DEFAULT-+-2))
 (3 1 (:REWRITE STR::DOWNCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-UP-ALPHA-P))
 (2 2 (:TYPE-PRESCRIPTION STR::CHARLIST-HAS-SOME-UP-ALPHA-P))
 (2 2 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (2 2 (:REWRITE DEFAULT-+-1))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::LENGTH-OF-DOWNCASE-STRING
 (38 2 (:DEFINITION LEN))
 (24 4 (:REWRITE LEN-WHEN-ATOM))
 (18 18 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (12 7 (:REWRITE STR::CONSP-OF-EXPLODE))
 (10 2 (:REWRITE DEFAULT-CDR))
 (9 9 (:REWRITE CONSP-BY-LEN))
 (6 1 (:REWRITE STR::DOWNCASE-CHARLIST-WHEN-ATOM))
 (5 5 (:DEFINITION NOT))
 (4 2 (:REWRITE DEFAULT-+-2))
 (3 1 (:REWRITE STR::DOWNCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-UP-ALPHA-P))
 (2 2 (:TYPE-PRESCRIPTION STR::CHARLIST-HAS-SOME-UP-ALPHA-P))
 (2 2 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (2 2 (:REWRITE DEFAULT-+-1))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (1 1 (:LINEAR LEN-OF-NONEMPTY-STRING-IS-POSITIVE))
 )
(STR::EQUAL-OF-EMPTY-STRING-WITH-DOWNCASE-STRING
 (6 1 (:REWRITE STR::DOWNCASE-CHARLIST-WHEN-ATOM))
 (3 3 (:REWRITE CONSP-BY-LEN))
 (3 1 (:REWRITE STR::DOWNCASE-CHARLIST-DOES-NOTHING-UNLESS-CHARLIST-HAS-SOME-UP-ALPHA-P))
 (2 2 (:TYPE-PRESCRIPTION STR::CHARLIST-HAS-SOME-UP-ALPHA-P))
 (2 2 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 )
(STR::STRING-DOWNCASE-IS-DOWNCASE-STRING)
(STR::UPCASE-STRING-LIST-AUX
 (5 5 (:REWRITE DEFAULT-CAR))
 (5 5 (:REWRITE CONSP-BY-LEN))
 (4 4 (:REWRITE DEFAULT-CDR))
 (1 1 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::UPCASE-STRING-LIST)
(STR::STRING-LISTP-OF-UPCASE-STRING-LIST
 (13 13 (:REWRITE CONSP-BY-LEN))
 (10 9 (:REWRITE DEFAULT-CDR))
 (10 9 (:REWRITE DEFAULT-CAR))
 )
(STR::UPCASE-STRING-LIST-AUX-IS-UPCASE-STRING-LIST
 (48 48 (:REWRITE CONSP-BY-LEN))
 (39 14 (:REWRITE DEFAULT-CAR))
 (36 11 (:REWRITE DEFAULT-CDR))
 (20 4 (:REWRITE REV-WHEN-NOT-CONSP))
 (8 1 (:REWRITE CDR-OF-APPEND-WHEN-CONSP))
 (5 5 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (3 3 (:TYPE-PRESCRIPTION REVAPPEND))
 (2 2 (:REWRITE APPEND-ATOM-UNDER-LIST-EQUIV))
 )
(STR::UPCASE-STRING-LIST
 (13 13 (:REWRITE DEFAULT-CDR))
 (13 13 (:REWRITE DEFAULT-CAR))
 (10 10 (:REWRITE CONSP-BY-LEN))
 (5 1 (:REWRITE REV-WHEN-NOT-CONSP))
 (4 4 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::DOWNCASE-STRING-LIST-AUX
 (5 5 (:REWRITE DEFAULT-CAR))
 (5 5 (:REWRITE CONSP-BY-LEN))
 (4 4 (:REWRITE DEFAULT-CDR))
 (1 1 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::DOWNCASE-STRING-LIST)
(STR::STRING-LISTP-OF-DOWNCASE-STRING-LIST
 (13 13 (:REWRITE CONSP-BY-LEN))
 (10 9 (:REWRITE DEFAULT-CDR))
 (10 9 (:REWRITE DEFAULT-CAR))
 )
(STR::DOWNCASE-STRING-LIST-AUX-IS-DOWNCASE-STRING-LIST
 (48 48 (:REWRITE CONSP-BY-LEN))
 (39 14 (:REWRITE DEFAULT-CAR))
 (36 11 (:REWRITE DEFAULT-CDR))
 (20 4 (:REWRITE REV-WHEN-NOT-CONSP))
 (8 1 (:REWRITE CDR-OF-APPEND-WHEN-CONSP))
 (5 5 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (3 3 (:TYPE-PRESCRIPTION REVAPPEND))
 (2 2 (:REWRITE APPEND-ATOM-UNDER-LIST-EQUIV))
 )
(STR::DOWNCASE-STRING-LIST
 (13 13 (:REWRITE DEFAULT-CDR))
 (13 13 (:REWRITE DEFAULT-CAR))
 (10 10 (:REWRITE CONSP-BY-LEN))
 (5 1 (:REWRITE REV-WHEN-NOT-CONSP))
 (4 4 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::UPCASE-FIRST-CHARLIST
 (15 5 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (13 13 (:REWRITE DEFAULT-CAR))
 (10 10 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (9 9 (:REWRITE CONSP-BY-LEN))
 (7 7 (:REWRITE DEFAULT-CDR))
 (1 1 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::CHARACTER-LISTP-OF-UPCASE-FIRST-CHARLIST
 (73 2 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-CHARACTER-LISTP))
 (51 9 (:REWRITE CHARACTER-LISTP-OF-CDR-WHEN-CHARACTER-LISTP))
 (16 7 (:REWRITE CHARACTERP-OF-CAR-WHEN-CHARACTER-LISTP))
 (12 2 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (11 10 (:REWRITE DEFAULT-CDR))
 (11 10 (:REWRITE DEFAULT-CAR))
 (8 8 (:REWRITE CONSP-BY-LEN))
 (6 2 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-ATOM))
 (6 2 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (5 5 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (4 4 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (4 4 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 )
(STR::CHARLISTEQV-IMPLIES-EQUAL-UPCASE-FIRST-CHARLIST-1
 (57 2 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-CHARACTER-LISTP))
 (45 4 (:DEFINITION CHARACTER-LISTP))
 (31 6 (:REWRITE CHARACTER-LISTP-OF-CDR-WHEN-CHARACTER-LISTP))
 (28 28 (:TYPE-PRESCRIPTION CHARACTER-LISTP))
 (22 22 (:REWRITE CONSP-BY-LEN))
 (13 12 (:REWRITE DEFAULT-CDR))
 (12 6 (:REWRITE DEFAULT-+-2))
 (12 2 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (11 11 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (8 4 (:REWRITE CHARACTERP-OF-CAR-WHEN-CHARACTER-LISTP))
 (7 6 (:REWRITE DEFAULT-CAR))
 (6 6 (:REWRITE DEFAULT-+-1))
 (6 2 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-ATOM))
 (6 2 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (4 4 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (4 4 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (2 1 (:REWRITE STR::CHARLISTEQV-WHEN-NOT-CONSP-RIGHT))
 (2 1 (:REWRITE STR::CHARLISTEQV-WHEN-NOT-CONSP-LEFT))
 (1 1 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 )
(STR::ICHARLISTEQV-IMPLIES-ICHARLISTEQV-UPCASE-FIRST-CHARLIST-1
 (25 25 (:REWRITE CONSP-BY-LEN))
 (16 8 (:REWRITE DEFAULT-+-2))
 (12 2 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (11 10 (:REWRITE DEFAULT-CDR))
 (9 9 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (8 8 (:REWRITE DEFAULT-+-1))
 (6 2 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (4 4 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (4 4 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (4 2 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-CONSP-RIGHT))
 (4 2 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-CONSP-LEFT))
 (3 2 (:REWRITE DEFAULT-CAR))
 (1 1 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 )
(STR::UPCASE-FIRST-CHARLIST-WHEN-ATOM
 (1 1 (:REWRITE CONSP-BY-LEN))
 )
(STR::LEN-OF-UPCASE-FIRST-CHARLIST
 (24 10 (:REWRITE LEN-WHEN-ATOM))
 (14 14 (:REWRITE CONSP-BY-LEN))
 (14 7 (:REWRITE DEFAULT-+-2))
 (8 8 (:REWRITE DEFAULT-CDR))
 (7 7 (:REWRITE DEFAULT-+-1))
 (7 7 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (6 1 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (3 1 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (2 2 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (2 2 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (2 2 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 (2 1 (:REWRITE STR::UPCASE-FIRST-CHARLIST-WHEN-ATOM))
 (1 1 (:REWRITE DEFAULT-CAR))
 )
(STR::CONSP-OF-UPCASE-FIRST-CHARLIST
 (28 1 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-CHARACTER-LISTP))
 (22 2 (:DEFINITION CHARACTER-LISTP))
 (15 3 (:REWRITE CHARACTER-LISTP-OF-CDR-WHEN-CHARACTER-LISTP))
 (14 14 (:TYPE-PRESCRIPTION CHARACTER-LISTP))
 (6 6 (:REWRITE CONSP-BY-LEN))
 (6 1 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (4 2 (:REWRITE CHARACTERP-OF-CAR-WHEN-CHARACTER-LISTP))
 (3 3 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 (3 1 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-ATOM))
 (3 1 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (2 2 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (2 2 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (2 1 (:REWRITE STR::UPCASE-FIRST-CHARLIST-WHEN-ATOM))
 )
(STR::UPCASE-FIRST-CHARLIST-UNDER-IFF
 (28 1 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-CHARACTER-LISTP))
 (22 2 (:DEFINITION CHARACTER-LISTP))
 (15 3 (:REWRITE CHARACTER-LISTP-OF-CDR-WHEN-CHARACTER-LISTP))
 (14 14 (:TYPE-PRESCRIPTION CHARACTER-LISTP))
 (6 1 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (4 4 (:REWRITE CONSP-BY-LEN))
 (4 2 (:REWRITE CHARACTERP-OF-CAR-WHEN-CHARACTER-LISTP))
 (3 3 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 (3 1 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-ATOM))
 (3 1 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (2 2 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (2 2 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (2 1 (:REWRITE STR::UPCASE-FIRST-CHARLIST-WHEN-ATOM))
 )
(STR::UPCASE-FIRST
 (230 46 (:REWRITE LEN-WHEN-ATOM))
 (137 1 (:DEFINITION TAKE))
 (112 31 (:REWRITE DEFAULT-CDR))
 (112 2 (:REWRITE TAKE-OF-LEN-FREE))
 (110 2 (:REWRITE NTH-WHEN-BIGGER))
 (101 101 (:REWRITE CONSP-BY-LEN))
 (60 31 (:REWRITE DEFAULT-+-2))
 (42 9 (:REWRITE DEFAULT-CAR))
 (38 38 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (36 24 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (34 1 (:REWRITE NATP-POSP--1))
 (33 31 (:REWRITE DEFAULT-+-1))
 (32 1 (:REWRITE NATP-POSP))
 (27 27 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (21 9 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (13 2 (:REWRITE TAKE-WHEN-ATOM))
 (12 12 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (11 11 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 (10 1 (:REWRITE ZP-OPEN))
 (8 4 (:REWRITE DEFAULT-<-1))
 (7 4 (:REWRITE DEFAULT-<-2))
 (6 6 (:TYPE-PRESCRIPTION TRUE-LISTP-SUBSEQ-TYPE-PRESCRIPTION))
 (6 1 (:REWRITE STR::UPCASE-FIRST-CHARLIST-WHEN-ATOM))
 (4 1 (:REWRITE <-0-+-NEGATIVE-1))
 (2 2 (:TYPE-PRESCRIPTION NATP))
 (2 2 (:REWRITE EQUAL-CONSTANT-+))
 (2 2 (:REWRITE CONSP-OF-CDDDR-BY-LEN))
 (2 1 (:REWRITE POSP-NATP))
 (2 1 (:REWRITE DEFAULT-UNARY-MINUS))
 )
(STR::STRINGP-OF-UPCASE-FIRST)
(STR::STREQV-IMPLIES-EQUAL-UPCASE-FIRST-1)
(STR::ISTREQV-IMPLIES-ISTREQV-UPCASE-FIRST-1
 (168 32 (:REWRITE LEN-WHEN-ATOM))
 (95 26 (:REWRITE DEFAULT-CDR))
 (80 80 (:REWRITE CONSP-BY-LEN))
 (40 20 (:REWRITE DEFAULT-+-2))
 (26 26 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (22 4 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-CONSP-RIGHT))
 (22 4 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-CONSP-LEFT))
 (20 20 (:REWRITE DEFAULT-+-1))
 (20 6 (:REWRITE DEFAULT-CAR))
 (20 5 (:REWRITE STR::UPCASE-CHAR-DOES-NOTHING-UNLESS-DOWN-ALPHA-P))
 (13 1 (:REWRITE LEFT-CANCELLATION-FOR-+))
 (12 2 (:REWRITE STR::UPCASE-FIRST-CHARLIST-WHEN-ATOM))
 (9 3 (:REWRITE STR::DOWN-ALPHA-P-WHEN-UP-ALPHA-P))
 (6 6 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (6 6 (:TYPE-PRESCRIPTION STR::DOWN-ALPHA-P$INLINE))
 (4 4 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 (4 2 (:DEFINITION FIX))
 (1 1 (:REWRITE EQUAL-CONSTANT-+))
 )
(STR::DOWNCASE-FIRST-CHARLIST
 (13 13 (:REWRITE DEFAULT-CAR))
 (9 9 (:REWRITE CONSP-BY-LEN))
 (7 7 (:REWRITE DEFAULT-CDR))
 (1 1 (:REWRITE CONSP-OF-CDR-BY-LEN))
 )
(STR::CHARACTER-LISTP-OF-DOWNCASE-FIRST-CHARLIST
 (73 2 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-CHARACTER-LISTP))
 (51 9 (:REWRITE CHARACTER-LISTP-OF-CDR-WHEN-CHARACTER-LISTP))
 (16 7 (:REWRITE CHARACTERP-OF-CAR-WHEN-CHARACTER-LISTP))
 (11 10 (:REWRITE DEFAULT-CDR))
 (11 10 (:REWRITE DEFAULT-CAR))
 (8 8 (:REWRITE CONSP-BY-LEN))
 (6 2 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-ATOM))
 (6 2 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (5 5 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (4 4 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 )
(STR::CHARLISTEQV-IMPLIES-EQUAL-DOWNCASE-FIRST-CHARLIST-1
 (57 2 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-CHARACTER-LISTP))
 (45 4 (:DEFINITION CHARACTER-LISTP))
 (31 6 (:REWRITE CHARACTER-LISTP-OF-CDR-WHEN-CHARACTER-LISTP))
 (28 28 (:TYPE-PRESCRIPTION CHARACTER-LISTP))
 (22 22 (:REWRITE CONSP-BY-LEN))
 (13 12 (:REWRITE DEFAULT-CDR))
 (12 6 (:REWRITE DEFAULT-+-2))
 (11 11 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (8 4 (:REWRITE CHARACTERP-OF-CAR-WHEN-CHARACTER-LISTP))
 (7 6 (:REWRITE DEFAULT-CAR))
 (6 6 (:REWRITE DEFAULT-+-1))
 (6 2 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-ATOM))
 (6 2 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (4 4 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (2 1 (:REWRITE STR::CHARLISTEQV-WHEN-NOT-CONSP-RIGHT))
 (2 1 (:REWRITE STR::CHARLISTEQV-WHEN-NOT-CONSP-LEFT))
 (1 1 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 )
(STR::ICHARLISTEQV-IMPLIES-ICHARLISTEQV-DOWNCASE-FIRST-CHARLIST-1
 (25 25 (:REWRITE CONSP-BY-LEN))
 (16 8 (:REWRITE DEFAULT-+-2))
 (11 10 (:REWRITE DEFAULT-CDR))
 (9 9 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (8 8 (:REWRITE DEFAULT-+-1))
 (6 2 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (4 4 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (4 2 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-CONSP-RIGHT))
 (4 2 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-CONSP-LEFT))
 (3 2 (:REWRITE DEFAULT-CAR))
 (1 1 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 )
(STR::DOWNCASE-FIRST-CHARLIST-WHEN-ATOM
 (1 1 (:REWRITE CONSP-BY-LEN))
 )
(STR::LEN-OF-DOWNCASE-FIRST-CHARLIST
 (24 10 (:REWRITE LEN-WHEN-ATOM))
 (14 14 (:REWRITE CONSP-BY-LEN))
 (14 7 (:REWRITE DEFAULT-+-2))
 (8 8 (:REWRITE DEFAULT-CDR))
 (7 7 (:REWRITE DEFAULT-+-1))
 (7 7 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (3 1 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (2 2 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (2 2 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 (2 1 (:REWRITE STR::DOWNCASE-FIRST-CHARLIST-WHEN-ATOM))
 (1 1 (:REWRITE DEFAULT-CAR))
 )
(STR::CONSP-OF-DOWNCASE-FIRST-CHARLIST
 (28 1 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-CHARACTER-LISTP))
 (22 2 (:DEFINITION CHARACTER-LISTP))
 (15 3 (:REWRITE CHARACTER-LISTP-OF-CDR-WHEN-CHARACTER-LISTP))
 (14 14 (:TYPE-PRESCRIPTION CHARACTER-LISTP))
 (6 6 (:REWRITE CONSP-BY-LEN))
 (4 2 (:REWRITE CHARACTERP-OF-CAR-WHEN-CHARACTER-LISTP))
 (3 3 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 (3 1 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-ATOM))
 (3 1 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (2 2 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (2 1 (:REWRITE STR::DOWNCASE-FIRST-CHARLIST-WHEN-ATOM))
 )
(STR::DOWNCASE-FIRST-CHARLIST-UNDER-IFF
 (28 1 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-CHARACTER-LISTP))
 (22 2 (:DEFINITION CHARACTER-LISTP))
 (15 3 (:REWRITE CHARACTER-LISTP-OF-CDR-WHEN-CHARACTER-LISTP))
 (14 14 (:TYPE-PRESCRIPTION CHARACTER-LISTP))
 (4 4 (:REWRITE CONSP-BY-LEN))
 (4 2 (:REWRITE CHARACTERP-OF-CAR-WHEN-CHARACTER-LISTP))
 (3 3 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 (3 1 (:REWRITE STR::MAKE-CHARACTER-LIST-WHEN-ATOM))
 (3 1 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (2 2 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (2 2 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (2 1 (:REWRITE STR::DOWNCASE-FIRST-CHARLIST-WHEN-ATOM))
 )
(STR::DOWNCASE-FIRST
 (230 46 (:REWRITE LEN-WHEN-ATOM))
 (137 1 (:DEFINITION TAKE))
 (112 31 (:REWRITE DEFAULT-CDR))
 (112 2 (:REWRITE TAKE-OF-LEN-FREE))
 (110 2 (:REWRITE NTH-WHEN-BIGGER))
 (101 101 (:REWRITE CONSP-BY-LEN))
 (60 31 (:REWRITE DEFAULT-+-2))
 (42 9 (:REWRITE DEFAULT-CAR))
 (38 38 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (36 24 (:TYPE-PRESCRIPTION |x < y  =>  0 < -x+y|))
 (34 1 (:REWRITE NATP-POSP--1))
 (33 31 (:REWRITE DEFAULT-+-1))
 (32 1 (:REWRITE NATP-POSP))
 (27 27 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (13 2 (:REWRITE TAKE-WHEN-ATOM))
 (11 11 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 (10 1 (:REWRITE ZP-OPEN))
 (8 4 (:REWRITE DEFAULT-<-1))
 (7 4 (:REWRITE DEFAULT-<-2))
 (6 6 (:TYPE-PRESCRIPTION TRUE-LISTP-SUBSEQ-TYPE-PRESCRIPTION))
 (6 1 (:REWRITE STR::DOWNCASE-FIRST-CHARLIST-WHEN-ATOM))
 (4 1 (:REWRITE <-0-+-NEGATIVE-1))
 (2 2 (:TYPE-PRESCRIPTION NATP))
 (2 2 (:REWRITE EQUAL-CONSTANT-+))
 (2 2 (:REWRITE CONSP-OF-CDDDR-BY-LEN))
 (2 1 (:REWRITE POSP-NATP))
 (2 1 (:REWRITE DEFAULT-UNARY-MINUS))
 )
(STR::STRINGP-OF-DOWNCASE-FIRST)
(STR::STREQV-IMPLIES-EQUAL-DOWNCASE-FIRST-1)
(STR::ISTREQV-IMPLIES-ISTREQV-DOWNCASE-FIRST-1
 (168 32 (:REWRITE LEN-WHEN-ATOM))
 (95 26 (:REWRITE DEFAULT-CDR))
 (80 80 (:REWRITE CONSP-BY-LEN))
 (40 20 (:REWRITE DEFAULT-+-2))
 (26 26 (:REWRITE CONSP-OF-CDR-BY-LEN))
 (22 4 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-CONSP-RIGHT))
 (22 4 (:REWRITE STR::ICHARLISTEQV-WHEN-NOT-CONSP-LEFT))
 (20 20 (:REWRITE DEFAULT-+-1))
 (20 6 (:REWRITE DEFAULT-CAR))
 (13 1 (:REWRITE LEFT-CANCELLATION-FOR-+))
 (12 2 (:REWRITE STR::DOWNCASE-FIRST-CHARLIST-WHEN-ATOM))
 (11 5 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (6 6 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (4 4 (:REWRITE CONSP-OF-CDDR-BY-LEN))
 (4 2 (:DEFINITION FIX))
 (1 1 (:REWRITE EQUAL-CONSTANT-+))
 )
