(OPEN-CHANNEL-LISTP-OF-ADD-PAIR
 (2230 2158 (:REWRITE DEFAULT-CAR))
 (2208 2055 (:REWRITE DEFAULT-CDR))
 (700 350 (:REWRITE DEFAULT-+-2))
 (350 350 (:REWRITE DEFAULT-+-1))
 (112 85 (:REWRITE SYMBOL<-TRANSITIVE))
 (110 110 (:REWRITE DEFAULT-<-2))
 (110 110 (:REWRITE DEFAULT-<-1))
 (85 85 (:REWRITE SYMBOL<-TRICHOTOMY))
 (76 76 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(OPEN-CHANNELS-P-OF-ADD-PAIR
 (891 9 (:DEFINITION OPEN-CHANNEL-LISTP))
 (526 526 (:REWRITE DEFAULT-CAR))
 (482 482 (:REWRITE DEFAULT-CDR))
 (288 24 (:DEFINITION ADD-PAIR))
 (176 88 (:REWRITE DEFAULT-+-2))
 (88 88 (:REWRITE DEFAULT-+-1))
 (26 26 (:REWRITE DEFAULT-<-2))
 (26 26 (:REWRITE DEFAULT-<-1))
 (24 24 (:TYPE-PRESCRIPTION SYMBOL<))
 (24 24 (:REWRITE SYMBOL<-TRICHOTOMY))
 (24 24 (:REWRITE SYMBOL<-TRANSITIVE))
 (24 24 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(OPEN-CHANNELS-P-OF-REMOVE1-ASSOC-EQUAL
 (763 763 (:REWRITE DEFAULT-CAR))
 (636 636 (:REWRITE DEFAULT-CDR))
 (152 40 (:REWRITE SYMBOL<-TRICHOTOMY))
 (136 24 (:REWRITE SYMBOL<-ASYMMETRIC))
 (48 24 (:REWRITE DEFAULT-+-2))
 (40 40 (:REWRITE SYMBOL<-TRANSITIVE))
 (40 40 (:REWRITE DEFAULT-<-2))
 (40 40 (:REWRITE DEFAULT-<-1))
 (24 24 (:REWRITE DEFAULT-+-1))
 )
(LOOKUP-IN-READABLE-FILES-P
 (528 528 (:REWRITE DEFAULT-CAR))
 (46 46 (:REWRITE DEFAULT-<-2))
 (46 46 (:REWRITE DEFAULT-<-1))
 (34 17 (:REWRITE DEFAULT-+-2))
 (17 17 (:REWRITE DEFAULT-+-1))
 )
(STATE-P1-OF-OPEN-INPUT-CHANNEL
 (690 6 (:DEFINITION EXPLODE-NONNEGATIVE-INTEGER))
 (529 511 (:REWRITE DEFAULT-CAR))
 (454 436 (:REWRITE DEFAULT-CDR))
 (440 88 (:DEFINITION ASSOC-EQUAL))
 (418 38 (:DEFINITION FGETPROP))
 (372 12 (:DEFINITION FLOOR))
 (312 6 (:DEFINITION MOD))
 (228 228 (:TYPE-PRESCRIPTION NONNEGATIVE-INTEGER-QUOTIENT))
 (192 12 (:DEFINITION NONNEGATIVE-INTEGER-QUOTIENT))
 (186 6 (:DEFINITION DIGIT-TO-CHAR))
 (185 127 (:REWRITE DEFAULT-+-2))
 (127 127 (:REWRITE DEFAULT-+-1))
 (120 18 (:REWRITE COMMUTATIVITY-OF-*))
 (96 6 (:DEFINITION BINARY-APPEND))
 (96 6 (:DEFINITION ADD-PAIR))
 (60 60 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (60 12 (:REWRITE DISTRIBUTIVITY))
 (54 48 (:REWRITE DEFAULT-*-2))
 (54 48 (:REWRITE DEFAULT-*-1))
 (54 12 (:REWRITE APPEND-WHEN-NOT-CONSP))
 (52 52 (:REWRITE DEFAULT-<-2))
 (52 52 (:REWRITE DEFAULT-<-1))
 (48 6 (:REWRITE ASSOCIATIVITY-OF-+))
 (36 24 (:REWRITE STR::CONSP-OF-EXPLODE))
 (36 12 (:REWRITE COMMUTATIVITY-OF-+))
 (36 12 (:DEFINITION NFIX))
 (24 18 (:REWRITE DEFAULT-UNARY-MINUS))
 (24 6 (:REWRITE INTERN-IN-PACKAGE-OF-SYMBOL-IS-IDENTITY))
 (12 12 (:TYPE-PRESCRIPTION MEMBER-SYMBOL-NAME))
 (12 12 (:REWRITE DEFAULT-NUMERATOR))
 (12 12 (:REWRITE DEFAULT-DENOMINATOR))
 (12 12 (:DEFINITION IFIX))
 (12 6 (:REWRITE DEFAULT-INTERN-IN-PACKAGE-OF-SYMBOL))
 (6 6 (:TYPE-PRESCRIPTION SYMBOL<))
 (6 6 (:TYPE-PRESCRIPTION NATP))
 (6 6 (:REWRITE SYMBOL<-TRICHOTOMY))
 (6 6 (:REWRITE SYMBOL<-TRANSITIVE))
 (6 6 (:REWRITE SYMBOL<-ASYMMETRIC))
 (6 6 (:REWRITE FOLD-CONSTS-IN-+))
 (6 6 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 )
(SYMBOLP-OF-OPEN-INPUT-CHANNEL
 (482 1 (:DEFINITION EXPLODE-ATOM))
 (425 3 (:DEFINITION EXPLODE-NONNEGATIVE-INTEGER))
 (229 6 (:DEFINITION FLOOR))
 (176 3 (:DEFINITION MOD))
 (156 156 (:TYPE-PRESCRIPTION NONNEGATIVE-INTEGER-QUOTIENT))
 (128 8 (:DEFINITION NONNEGATIVE-INTEGER-QUOTIENT))
 (123 3 (:DEFINITION DIGIT-TO-CHAR))
 (64 43 (:REWRITE DEFAULT-+-2))
 (52 9 (:REWRITE COMMUTATIVITY-OF-*))
 (46 43 (:REWRITE DEFAULT-+-1))
 (34 4 (:DEFINITION BINARY-APPEND))
 (32 10 (:REWRITE COMMUTATIVITY-OF-+))
 (27 22 (:REWRITE DEFAULT-*-2))
 (26 22 (:REWRITE DEFAULT-*-1))
 (25 25 (:REWRITE DEFAULT-<-2))
 (25 25 (:REWRITE DEFAULT-<-1))
 (24 17 (:REWRITE DEFAULT-UNARY-MINUS))
 (24 8 (:REWRITE APPEND-WHEN-NOT-CONSP))
 (24 8 (:DEFINITION NFIX))
 (21 4 (:REWRITE DISTRIBUTIVITY))
 (19 2 (:REWRITE ASSOCIATIVITY-OF-+))
 (16 1 (:DEFINITION ADD-PAIR))
 (15 15 (:TYPE-PRESCRIPTION TRUE-LISTP-EXPLODE-ATOM))
 (15 12 (:REWRITE DEFAULT-CAR))
 (11 8 (:REWRITE DEFAULT-CDR))
 (10 10 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (8 8 (:DEFINITION IFIX))
 (8 2 (:REWRITE ZP-OPEN))
 (7 7 (:REWRITE DEFAULT-NUMERATOR))
 (7 7 (:REWRITE DEFAULT-DENOMINATOR))
 (7 1 (:REWRITE IMAGPART-+))
 (6 6 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (6 4 (:REWRITE STR::CONSP-OF-EXPLODE))
 (5 1 (:REWRITE REALPART-+))
 (5 1 (:REWRITE DISTRIBUTIVITY-OF-MINUS-OVER-+))
 (5 1 (:DEFINITION ASSOC-EQUAL))
 (4 1 (:REWRITE INTERN-IN-PACKAGE-OF-SYMBOL-IS-IDENTITY))
 (3 2 (:REWRITE DEFAULT-REALPART))
 (3 2 (:REWRITE DEFAULT-IMAGPART))
 (2 2 (:TYPE-PRESCRIPTION MEMBER-SYMBOL-NAME))
 (2 2 (:REWRITE FOLD-CONSTS-IN-+))
 (2 1 (:REWRITE UNICITY-OF-0))
 (2 1 (:REWRITE DEFAULT-INTERN-IN-PACKAGE-OF-SYMBOL))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 (1 1 (:REWRITE RATIONALP-+))
 (1 1 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (1 1 (:REWRITE DEFAULT-SYMBOL-NAME))
 (1 1 (:DEFINITION FIX))
 )
(OPEN-INPUT-CHANNEL-P1-OF-OPEN-INPUT-CHANNEL
 (1035 9 (:DEFINITION EXPLODE-NONNEGATIVE-INTEGER))
 (558 18 (:DEFINITION FLOOR))
 (468 9 (:DEFINITION MOD))
 (342 342 (:TYPE-PRESCRIPTION NONNEGATIVE-INTEGER-QUOTIENT))
 (288 18 (:DEFINITION NONNEGATIVE-INTEGER-QUOTIENT))
 (279 9 (:DEFINITION DIGIT-TO-CHAR))
 (180 27 (:REWRITE COMMUTATIVITY-OF-*))
 (155 109 (:REWRITE DEFAULT-+-2))
 (144 9 (:DEFINITION BINARY-APPEND))
 (136 109 (:REWRITE DEFAULT-CAR))
 (120 9 (:DEFINITION ADD-PAIR))
 (109 109 (:REWRITE DEFAULT-+-1))
 (97 70 (:REWRITE DEFAULT-CDR))
 (90 90 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (90 18 (:REWRITE DISTRIBUTIVITY))
 (81 72 (:REWRITE DEFAULT-*-2))
 (81 72 (:REWRITE DEFAULT-*-1))
 (81 18 (:REWRITE APPEND-WHEN-NOT-CONSP))
 (72 9 (:REWRITE ASSOCIATIVITY-OF-+))
 (65 13 (:DEFINITION ASSOC-EQUAL))
 (64 64 (:REWRITE DEFAULT-<-2))
 (64 64 (:REWRITE DEFAULT-<-1))
 (54 36 (:REWRITE STR::CONSP-OF-EXPLODE))
 (54 18 (:REWRITE COMMUTATIVITY-OF-+))
 (54 18 (:DEFINITION NFIX))
 (36 27 (:REWRITE DEFAULT-UNARY-MINUS))
 (36 9 (:REWRITE INTERN-IN-PACKAGE-OF-SYMBOL-IS-IDENTITY))
 (22 2 (:DEFINITION FGETPROP))
 (18 18 (:TYPE-PRESCRIPTION MEMBER-SYMBOL-NAME))
 (18 18 (:REWRITE DEFAULT-NUMERATOR))
 (18 18 (:REWRITE DEFAULT-DENOMINATOR))
 (18 18 (:DEFINITION IFIX))
 (18 9 (:REWRITE DEFAULT-INTERN-IN-PACKAGE-OF-SYMBOL))
 (9 9 (:TYPE-PRESCRIPTION SYMBOL<))
 (9 9 (:REWRITE SYMBOL<-TRICHOTOMY))
 (9 9 (:REWRITE SYMBOL<-TRANSITIVE))
 (9 9 (:REWRITE SYMBOL<-ASYMMETRIC))
 (9 9 (:REWRITE FOLD-CONSTS-IN-+))
 (9 9 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (5 1 (:DEFINITION LEN))
 )
(LOOKUP-IN-OPEN-CHANNELS-P
 (1627 1627 (:REWRITE DEFAULT-CAR))
 (1373 1373 (:REWRITE DEFAULT-CDR))
 (608 160 (:REWRITE SYMBOL<-TRICHOTOMY))
 (544 96 (:REWRITE SYMBOL<-ASYMMETRIC))
 (160 160 (:REWRITE SYMBOL<-TRANSITIVE))
 (138 69 (:REWRITE DEFAULT-+-2))
 (80 80 (:REWRITE DEFAULT-<-2))
 (80 80 (:REWRITE DEFAULT-<-1))
 (69 69 (:REWRITE DEFAULT-+-1))
 )
(OPEN-CHANNEL1-OF-READ
 (152 152 (:REWRITE DEFAULT-CDR))
 (117 117 (:REWRITE DEFAULT-CAR))
 (104 52 (:REWRITE DEFAULT-+-2))
 (52 52 (:REWRITE DEFAULT-+-1))
 (6 6 (:REWRITE DEFAULT-<-2))
 (6 6 (:REWRITE DEFAULT-<-1))
 )
(READ-FILE-LISTP1-FROM-OPEN-CHANNEL1
 (104 104 (:REWRITE DEFAULT-CDR))
 (76 76 (:REWRITE DEFAULT-CAR))
 (32 16 (:REWRITE DEFAULT-+-2))
 (16 16 (:REWRITE DEFAULT-+-1))
 (14 3 (:DEFINITION TYPED-IO-LISTP))
 (5 5 (:REWRITE DEFAULT-<-2))
 (5 5 (:REWRITE DEFAULT-<-1))
 )
(STATE-P1-OF-CLOSE-INPUT-CHANNEL-FREE
 (59 59 (:REWRITE DEFAULT-CAR))
 (50 10 (:DEFINITION ASSOC-EQUAL))
 (49 49 (:REWRITE DEFAULT-CDR))
 (44 4 (:DEFINITION FGETPROP))
 (6 1 (:DEFINITION REMOVE1-ASSOC-EQUAL))
 (5 3 (:REWRITE DEFAULT-+-2))
 (3 3 (:REWRITE DEFAULT-+-1))
 (1 1 (:TYPE-PRESCRIPTION READ-FILE-LISTP1))
 (1 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE DEFAULT-<-1))
 )
(STATE-P1-OF-CLOSE-INPUT-CHANNEL-TYPES
 (18 6 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (12 3 (:DEFINITION STATE-P))
 (6 6 (:TYPE-PRESCRIPTION STATE-P))
 )
(STATE-P1-OF-CLOSE-INPUT-CHANNEL-OF-OPEN
 (9 1 (:REWRITE STATE-P1-OF-CLOSE-INPUT-CHANNEL-TYPES))
 (6 2 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (4 1 (:DEFINITION STATE-P))
 (2 2 (:TYPE-PRESCRIPTION STATE-P))
 )
(STATE-P1-OF-READ-CHAR$
 (62 62 (:REWRITE DEFAULT-CAR))
 (55 11 (:DEFINITION ASSOC-EQUAL))
 (49 49 (:REWRITE DEFAULT-CDR))
 (44 4 (:DEFINITION FGETPROP))
 (12 1 (:DEFINITION ADD-PAIR))
 (4 2 (:REWRITE DEFAULT-+-2))
 (2 2 (:REWRITE DEFAULT-+-1))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 (1 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE DEFAULT-<-1))
 )
(OPEN-INPUT-CHANNEL-P1-OF-READ-CHAR$
 (20 20 (:REWRITE DEFAULT-CAR))
 (15 3 (:DEFINITION ASSOC-EQUAL))
 (13 13 (:REWRITE DEFAULT-CDR))
 (12 1 (:DEFINITION ADD-PAIR))
 (6 2 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (4 1 (:DEFINITION STATE-P))
 (2 2 (:TYPE-PRESCRIPTION STATE-P))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(CHARACTER-CADR-OF-OPEN-CHANNEL1
 (19 19 (:REWRITE DEFAULT-CDR))
 (15 15 (:REWRITE DEFAULT-CAR))
 (14 7 (:REWRITE DEFAULT-+-2))
 (7 7 (:REWRITE DEFAULT-+-1))
 )
(CHARACTERP-OF-READ-CHAR$
 (115 115 (:REWRITE DEFAULT-CAR))
 (79 79 (:REWRITE DEFAULT-CDR))
 (72 6 (:DEFINITION ADD-PAIR))
 (22 2 (:DEFINITION FGETPROP))
 (6 6 (:TYPE-PRESCRIPTION SYMBOL<))
 (6 6 (:REWRITE SYMBOL<-TRICHOTOMY))
 (6 6 (:REWRITE SYMBOL<-TRANSITIVE))
 (6 6 (:REWRITE SYMBOL<-ASYMMETRIC))
 (5 1 (:DEFINITION LEN))
 (2 1 (:REWRITE DEFAULT-+-2))
 (1 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE DEFAULT-<-1))
 (1 1 (:REWRITE DEFAULT-+-1))
 )
(PEEK-CHAR$-REMOVAL
 (34 17 (:TYPE-PRESCRIPTION CHARACTERP-OF-READ-CHAR$))
 (17 17 (:TYPE-PRESCRIPTION STATE-P1))
 (14 14 (:REWRITE DEFAULT-CAR))
 (12 1 (:DEFINITION ADD-PAIR))
 (10 10 (:REWRITE DEFAULT-CDR))
 (10 2 (:DEFINITION ASSOC-EQUAL))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(STATE-P1-OF-READ-BYTE$
 (62 62 (:REWRITE DEFAULT-CAR))
 (55 11 (:DEFINITION ASSOC-EQUAL))
 (49 49 (:REWRITE DEFAULT-CDR))
 (44 4 (:DEFINITION FGETPROP))
 (12 1 (:DEFINITION ADD-PAIR))
 (4 2 (:REWRITE DEFAULT-+-2))
 (2 2 (:REWRITE DEFAULT-+-1))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 (1 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE DEFAULT-<-1))
 )
(OPEN-INPUT-CHANNEL-P1-OF-READ-BYTE$
 (20 20 (:REWRITE DEFAULT-CAR))
 (15 3 (:DEFINITION ASSOC-EQUAL))
 (13 13 (:REWRITE DEFAULT-CDR))
 (12 1 (:DEFINITION ADD-PAIR))
 (6 2 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (4 1 (:DEFINITION STATE-P))
 (2 2 (:TYPE-PRESCRIPTION STATE-P))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(BYTEP-CADR-OF-OPEN-CHANNEL1
 (65 65 (:REWRITE DEFAULT-CDR))
 (62 62 (:REWRITE DEFAULT-CAR))
 (50 25 (:REWRITE DEFAULT-+-2))
 (25 25 (:REWRITE DEFAULT-+-1))
 (9 9 (:REWRITE DEFAULT-<-2))
 (9 9 (:REWRITE DEFAULT-<-1))
 )
(BYTEP-OF-READ-BYTE$
 (80 80 (:REWRITE DEFAULT-CAR))
 (60 5 (:DEFINITION ADD-PAIR))
 (58 58 (:REWRITE DEFAULT-CDR))
 (55 11 (:DEFINITION ASSOC-EQUAL))
 (22 2 (:DEFINITION FGETPROP))
 (5 5 (:TYPE-PRESCRIPTION SYMBOL<))
 (5 5 (:REWRITE SYMBOL<-TRICHOTOMY))
 (5 5 (:REWRITE SYMBOL<-TRANSITIVE))
 (5 5 (:REWRITE SYMBOL<-ASYMMETRIC))
 (5 1 (:DEFINITION LEN))
 (2 1 (:REWRITE DEFAULT-+-2))
 (1 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE DEFAULT-<-1))
 (1 1 (:REWRITE DEFAULT-+-1))
 )
(BYTEP-OF-READ-BYTE$-TYPE
 (101 101 (:REWRITE DEFAULT-CAR))
 (96 8 (:DEFINITION ADD-PAIR))
 (67 67 (:REWRITE DEFAULT-CDR))
 (65 13 (:DEFINITION ASSOC-EQUAL))
 (8 8 (:TYPE-PRESCRIPTION SYMBOL<))
 (8 8 (:REWRITE SYMBOL<-TRICHOTOMY))
 (8 8 (:REWRITE SYMBOL<-TRANSITIVE))
 (8 8 (:REWRITE SYMBOL<-ASYMMETRIC))
 (7 3 (:REWRITE BYTEP-CADR-OF-OPEN-CHANNEL1))
 (4 4 (:REWRITE DEFAULT-<-2))
 (4 4 (:REWRITE DEFAULT-<-1))
 (2 2 (:TYPE-PRESCRIPTION OPEN-CHANNEL1))
 (2 2 (:REWRITE LOOKUP-IN-OPEN-CHANNELS-P))
 )
(BYTEP-OF-READ-BYTE$-LINEAR
 (111 111 (:REWRITE DEFAULT-CAR))
 (108 9 (:DEFINITION ADD-PAIR))
 (74 74 (:REWRITE DEFAULT-CDR))
 (70 14 (:DEFINITION ASSOC-EQUAL))
 (9 9 (:TYPE-PRESCRIPTION SYMBOL<))
 (9 9 (:REWRITE SYMBOL<-TRICHOTOMY))
 (9 9 (:REWRITE SYMBOL<-TRANSITIVE))
 (9 9 (:REWRITE SYMBOL<-ASYMMETRIC))
 (7 3 (:REWRITE BYTEP-CADR-OF-OPEN-CHANNEL1))
 (6 6 (:REWRITE DEFAULT-<-2))
 (6 6 (:REWRITE DEFAULT-<-1))
 (2 2 (:TYPE-PRESCRIPTION OPEN-CHANNEL1))
 (2 2 (:REWRITE LOOKUP-IN-OPEN-CHANNELS-P))
 )
(L1
 (35 35 (:REWRITE DEFAULT-CAR))
 (35 7 (:DEFINITION ASSOC-EQUAL))
 (26 26 (:REWRITE DEFAULT-CDR))
 (22 2 (:DEFINITION FGETPROP))
 (5 1 (:DEFINITION LEN))
 (2 1 (:REWRITE DEFAULT-+-2))
 (1 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE DEFAULT-<-1))
 (1 1 (:REWRITE DEFAULT-+-1))
 )
(L2)
(L3)
(L4
 (25 5 (:DEFINITION ASSOC-EQUAL))
 (22 22 (:REWRITE DEFAULT-CAR))
 (18 7 (:REWRITE L3))
 (14 14 (:REWRITE DEFAULT-CDR))
 )
(NO-BYTES-AFTER-READ-BYTE$-NULL
 (56 3 (:DEFINITION ADD-PAIR))
 (35 26 (:REWRITE DEFAULT-CAR))
 (22 20 (:REWRITE DEFAULT-CDR))
 (20 20 (:TYPE-PRESCRIPTION ADD-PAIR))
 (12 4 (:REWRITE L3))
 (10 2 (:DEFINITION ASSOC-EQUAL))
 (6 3 (:REWRITE SYMBOL<-TRICHOTOMY))
 (6 3 (:REWRITE SYMBOL<-ASYMMETRIC))
 (6 2 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (4 4 (:TYPE-PRESCRIPTION TYPED-IO-LISTP))
 (4 4 (:DEFINITION TYPED-IO-LISTP))
 (4 1 (:DEFINITION STATE-P))
 (3 3 (:TYPE-PRESCRIPTION SYMBOL<))
 (3 3 (:REWRITE SYMBOL<-TRANSITIVE))
 (2 2 (:TYPE-PRESCRIPTION STATE-P))
 )
(STATE-P1-OF-READ-OBJECT
 (206 206 (:REWRITE DEFAULT-CAR))
 (167 167 (:REWRITE DEFAULT-CDR))
 (154 14 (:DEFINITION FGETPROP))
 (24 2 (:DEFINITION ADD-PAIR))
 (14 7 (:REWRITE DEFAULT-+-2))
 (7 7 (:REWRITE DEFAULT-+-1))
 (5 5 (:REWRITE DEFAULT-<-2))
 (5 5 (:REWRITE DEFAULT-<-1))
 (2 2 (:TYPE-PRESCRIPTION SYMBOL<))
 (2 2 (:TYPE-PRESCRIPTION NATP))
 (2 2 (:REWRITE SYMBOL<-TRICHOTOMY))
 (2 2 (:REWRITE SYMBOL<-TRANSITIVE))
 (2 2 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(OPEN-INPUT-CHANNEL-P1-OF-READ-OBJECT
 (48 48 (:REWRITE DEFAULT-CAR))
 (32 32 (:REWRITE DEFAULT-CDR))
 (24 2 (:DEFINITION ADD-PAIR))
 (12 4 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (8 2 (:DEFINITION STATE-P))
 (4 4 (:TYPE-PRESCRIPTION STATE-P))
 (2 2 (:TYPE-PRESCRIPTION SYMBOL<))
 (2 2 (:REWRITE SYMBOL<-TRICHOTOMY))
 (2 2 (:REWRITE SYMBOL<-TRANSITIVE))
 (2 2 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(LEMMA
 (3 3 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 )
(LEMMA2-CHAR
 (19 19 (:REWRITE DEFAULT-CDR))
 (15 15 (:REWRITE DEFAULT-CAR))
 (14 7 (:REWRITE DEFAULT-+-2))
 (7 7 (:REWRITE DEFAULT-+-1))
 )
(LEMMA2-BYTE
 (34 10 (:REWRITE LEMMA2-CHAR))
 (23 23 (:REWRITE DEFAULT-CAR))
 (19 19 (:REWRITE DEFAULT-CDR))
 (14 7 (:REWRITE DEFAULT-+-2))
 (7 7 (:REWRITE DEFAULT-+-1))
 )
(UPDATE-NTH-OF-NTH-SAME
 (22 15 (:REWRITE DEFAULT-<-2))
 (21 14 (:REWRITE DEFAULT-+-2))
 (18 18 (:REWRITE DEFAULT-CDR))
 (16 15 (:REWRITE DEFAULT-<-1))
 (14 14 (:REWRITE DEFAULT-+-1))
 (12 12 (:REWRITE DEFAULT-CAR))
 (8 8 (:REWRITE ZP-OPEN))
 (1 1 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(STATE-PRESERVED-BY-READ-CHAR$-WHEN-EOF
 (116 4 (:DEFINITION FGETPROP))
 (91 91 (:REWRITE DEFAULT-CAR))
 (85 17 (:DEFINITION ASSOC-EQUAL))
 (69 69 (:REWRITE DEFAULT-CDR))
 (55 21 (:REWRITE LEMMA2-BYTE))
 (24 2 (:DEFINITION ADD-PAIR))
 (6 3 (:REWRITE DEFAULT-+-2))
 (3 3 (:REWRITE DEFAULT-+-1))
 (2 2 (:TYPE-PRESCRIPTION SYMBOL<))
 (2 2 (:REWRITE SYMBOL<-TRICHOTOMY))
 (2 2 (:REWRITE SYMBOL<-TRANSITIVE))
 (2 2 (:REWRITE SYMBOL<-ASYMMETRIC))
 (2 2 (:REWRITE DEFAULT-<-2))
 (2 2 (:REWRITE DEFAULT-<-1))
 )
(STATE-PRESERVED-BY-READ-BYTE$-WHEN-EOF
 (116 4 (:DEFINITION FGETPROP))
 (91 91 (:REWRITE DEFAULT-CAR))
 (85 17 (:DEFINITION ASSOC-EQUAL))
 (69 69 (:REWRITE DEFAULT-CDR))
 (52 20 (:REWRITE LEMMA2-CHAR))
 (24 2 (:DEFINITION ADD-PAIR))
 (6 3 (:REWRITE DEFAULT-+-2))
 (3 3 (:REWRITE DEFAULT-+-1))
 (2 2 (:TYPE-PRESCRIPTION SYMBOL<))
 (2 2 (:REWRITE SYMBOL<-TRICHOTOMY))
 (2 2 (:REWRITE SYMBOL<-TRANSITIVE))
 (2 2 (:REWRITE SYMBOL<-ASYMMETRIC))
 (2 2 (:REWRITE DEFAULT-<-2))
 (2 2 (:REWRITE DEFAULT-<-1))
 )
(STATE-PRESERVED-BY-READ-OBJECT-WHEN-EOF
 (58 2 (:DEFINITION FGETPROP))
 (43 43 (:REWRITE DEFAULT-CAR))
 (40 8 (:DEFINITION ASSOC-EQUAL))
 (38 38 (:TYPE-PRESCRIPTION OPEN-CHANNEL1))
 (34 34 (:REWRITE DEFAULT-CDR))
 (31 11 (:REWRITE LEMMA2-CHAR))
 (31 11 (:REWRITE LEMMA2-BYTE))
 (12 1 (:DEFINITION ADD-PAIR))
 (5 1 (:DEFINITION LEN))
 (2 2 (:REWRITE LOOKUP-IN-OPEN-CHANNELS-P))
 (2 1 (:REWRITE DEFAULT-+-2))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 (1 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE DEFAULT-<-1))
 (1 1 (:REWRITE DEFAULT-+-1))
 )
(STRINGP-OF-READ-FILE-INTO-STRING1
 (194 97 (:TYPE-PRESCRIPTION CHARACTERP-OF-READ-CHAR$))
 (97 97 (:TYPE-PRESCRIPTION STATE-P1))
 (48 16 (:REWRITE REV-WHEN-NOT-CONSP))
 (45 9 (:REWRITE CHARACTERP-OF-READ-CHAR$))
 (42 12 (:REWRITE STATE-PRESERVED-BY-READ-CHAR$-WHEN-EOF))
 (25 9 (:REWRITE REVERSE-REMOVAL))
 (16 16 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (16 16 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (16 8 (:REWRITE STR::CONSP-OF-EXPLODE))
 (10 10 (:REWRITE ZP-OPEN))
 (8 8 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (6 6 (:REWRITE DEFAULT-+-2))
 (6 6 (:REWRITE DEFAULT-+-1))
 )
(STATE-P1-OF-READ-FILE-INTO-STRING1
 (18 6 (:REWRITE REV-WHEN-NOT-CONSP))
 (18 6 (:REWRITE CHARACTERP-OF-READ-CHAR$))
 (9 3 (:REWRITE REVERSE-REMOVAL))
 (7 7 (:REWRITE ZP-OPEN))
 (6 6 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (6 6 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (6 3 (:REWRITE STR::CONSP-OF-EXPLODE))
 (3 3 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (2 2 (:REWRITE DEFAULT-+-2))
 (2 2 (:REWRITE DEFAULT-+-1))
 )
(STATE-P1-OF-OPEN-OUTPUT-CHANNEL
 (690 6 (:DEFINITION EXPLODE-NONNEGATIVE-INTEGER))
 (499 481 (:REWRITE DEFAULT-CAR))
 (442 424 (:REWRITE DEFAULT-CDR))
 (418 38 (:DEFINITION FGETPROP))
 (380 76 (:DEFINITION ASSOC-EQUAL))
 (372 12 (:DEFINITION FLOOR))
 (312 6 (:DEFINITION MOD))
 (228 228 (:TYPE-PRESCRIPTION NONNEGATIVE-INTEGER-QUOTIENT))
 (192 12 (:DEFINITION NONNEGATIVE-INTEGER-QUOTIENT))
 (186 6 (:DEFINITION DIGIT-TO-CHAR))
 (182 124 (:REWRITE DEFAULT-+-2))
 (124 124 (:REWRITE DEFAULT-+-1))
 (120 18 (:REWRITE COMMUTATIVITY-OF-*))
 (96 6 (:DEFINITION BINARY-APPEND))
 (96 6 (:DEFINITION ADD-PAIR))
 (60 60 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (60 12 (:REWRITE DISTRIBUTIVITY))
 (54 48 (:REWRITE DEFAULT-*-2))
 (54 48 (:REWRITE DEFAULT-*-1))
 (54 12 (:REWRITE APPEND-WHEN-NOT-CONSP))
 (52 52 (:REWRITE DEFAULT-<-2))
 (52 52 (:REWRITE DEFAULT-<-1))
 (48 6 (:REWRITE ASSOCIATIVITY-OF-+))
 (36 24 (:REWRITE STR::CONSP-OF-EXPLODE))
 (36 12 (:REWRITE COMMUTATIVITY-OF-+))
 (36 12 (:DEFINITION NFIX))
 (24 18 (:REWRITE DEFAULT-UNARY-MINUS))
 (24 6 (:REWRITE INTERN-IN-PACKAGE-OF-SYMBOL-IS-IDENTITY))
 (12 12 (:TYPE-PRESCRIPTION MEMBER-SYMBOL-NAME))
 (12 12 (:REWRITE DEFAULT-NUMERATOR))
 (12 12 (:REWRITE DEFAULT-DENOMINATOR))
 (12 12 (:DEFINITION IFIX))
 (12 6 (:REWRITE DEFAULT-INTERN-IN-PACKAGE-OF-SYMBOL))
 (6 6 (:TYPE-PRESCRIPTION SYMBOL<))
 (6 6 (:TYPE-PRESCRIPTION NATP))
 (6 6 (:REWRITE SYMBOL<-TRICHOTOMY))
 (6 6 (:REWRITE SYMBOL<-TRANSITIVE))
 (6 6 (:REWRITE SYMBOL<-ASYMMETRIC))
 (6 6 (:REWRITE FOLD-CONSTS-IN-+))
 (6 6 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 )
(SYMBOLP-OF-OPEN-OUTPUT-CHANNEL
 (1928 4 (:DEFINITION EXPLODE-ATOM))
 (1700 12 (:DEFINITION EXPLODE-NONNEGATIVE-INTEGER))
 (916 24 (:DEFINITION FLOOR))
 (704 12 (:DEFINITION MOD))
 (624 624 (:TYPE-PRESCRIPTION NONNEGATIVE-INTEGER-QUOTIENT))
 (512 32 (:DEFINITION NONNEGATIVE-INTEGER-QUOTIENT))
 (492 12 (:DEFINITION DIGIT-TO-CHAR))
 (260 175 (:REWRITE DEFAULT-+-2))
 (208 36 (:REWRITE COMMUTATIVITY-OF-*))
 (187 175 (:REWRITE DEFAULT-+-1))
 (128 40 (:REWRITE COMMUTATIVITY-OF-+))
 (108 88 (:REWRITE DEFAULT-*-2))
 (104 88 (:REWRITE DEFAULT-*-1))
 (104 14 (:DEFINITION BINARY-APPEND))
 (100 100 (:REWRITE DEFAULT-<-2))
 (100 100 (:REWRITE DEFAULT-<-1))
 (96 68 (:REWRITE DEFAULT-UNARY-MINUS))
 (96 32 (:DEFINITION NFIX))
 (84 16 (:REWRITE DISTRIBUTIVITY))
 (78 28 (:REWRITE APPEND-WHEN-NOT-CONSP))
 (76 8 (:REWRITE ASSOCIATIVITY-OF-+))
 (60 60 (:TYPE-PRESCRIPTION TRUE-LISTP-EXPLODE-ATOM))
 (33 27 (:REWRITE DEFAULT-CAR))
 (32 32 (:DEFINITION IFIX))
 (32 8 (:REWRITE ZP-OPEN))
 (32 2 (:DEFINITION ADD-PAIR))
 (28 28 (:REWRITE DEFAULT-NUMERATOR))
 (28 28 (:REWRITE DEFAULT-DENOMINATOR))
 (28 4 (:REWRITE IMAGPART-+))
 (27 21 (:REWRITE DEFAULT-CDR))
 (25 25 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (20 20 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (20 4 (:REWRITE REALPART-+))
 (20 4 (:REWRITE DISTRIBUTIVITY-OF-MINUS-OVER-+))
 (16 4 (:REWRITE INTERN-IN-PACKAGE-OF-SYMBOL-IS-IDENTITY))
 (12 8 (:REWRITE DEFAULT-REALPART))
 (12 8 (:REWRITE DEFAULT-IMAGPART))
 (12 8 (:REWRITE STR::CONSP-OF-EXPLODE))
 (9 3 (:DEFINITION MEMBER-EQUAL))
 (8 8 (:TYPE-PRESCRIPTION MEMBER-SYMBOL-NAME))
 (8 8 (:REWRITE FOLD-CONSTS-IN-+))
 (8 4 (:REWRITE UNICITY-OF-0))
 (8 4 (:REWRITE DEFAULT-INTERN-IN-PACKAGE-OF-SYMBOL))
 (4 4 (:REWRITE RATIONALP-+))
 (4 4 (:REWRITE DEFAULT-SYMBOL-NAME))
 (4 4 (:DEFINITION FIX))
 (2 2 (:TYPE-PRESCRIPTION SYMBOL<))
 (2 2 (:REWRITE SYMBOL<-TRICHOTOMY))
 (2 2 (:REWRITE SYMBOL<-TRANSITIVE))
 (2 2 (:REWRITE SYMBOL<-ASYMMETRIC))
 (2 2 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 )
(OPEN-OUTPUT-CHANNEL-P1-OF-OPEN-OUTPUT-CHANNEL
 (1035 9 (:DEFINITION EXPLODE-NONNEGATIVE-INTEGER))
 (558 18 (:DEFINITION FLOOR))
 (468 9 (:DEFINITION MOD))
 (342 342 (:TYPE-PRESCRIPTION NONNEGATIVE-INTEGER-QUOTIENT))
 (288 18 (:DEFINITION NONNEGATIVE-INTEGER-QUOTIENT))
 (279 9 (:DEFINITION DIGIT-TO-CHAR))
 (180 27 (:REWRITE COMMUTATIVITY-OF-*))
 (155 109 (:REWRITE DEFAULT-+-2))
 (144 9 (:DEFINITION BINARY-APPEND))
 (120 9 (:DEFINITION ADD-PAIR))
 (118 91 (:REWRITE DEFAULT-CAR))
 (109 109 (:REWRITE DEFAULT-+-1))
 (90 90 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (90 18 (:REWRITE DISTRIBUTIVITY))
 (88 61 (:REWRITE DEFAULT-CDR))
 (81 72 (:REWRITE DEFAULT-*-2))
 (81 72 (:REWRITE DEFAULT-*-1))
 (81 18 (:REWRITE APPEND-WHEN-NOT-CONSP))
 (72 9 (:REWRITE ASSOCIATIVITY-OF-+))
 (64 64 (:REWRITE DEFAULT-<-2))
 (64 64 (:REWRITE DEFAULT-<-1))
 (54 36 (:REWRITE STR::CONSP-OF-EXPLODE))
 (54 18 (:REWRITE COMMUTATIVITY-OF-+))
 (54 18 (:DEFINITION NFIX))
 (36 27 (:REWRITE DEFAULT-UNARY-MINUS))
 (36 9 (:REWRITE INTERN-IN-PACKAGE-OF-SYMBOL-IS-IDENTITY))
 (22 2 (:DEFINITION FGETPROP))
 (20 4 (:DEFINITION ASSOC-EQUAL))
 (18 18 (:TYPE-PRESCRIPTION MEMBER-SYMBOL-NAME))
 (18 18 (:REWRITE DEFAULT-NUMERATOR))
 (18 18 (:REWRITE DEFAULT-DENOMINATOR))
 (18 18 (:DEFINITION IFIX))
 (18 9 (:REWRITE DEFAULT-INTERN-IN-PACKAGE-OF-SYMBOL))
 (9 9 (:TYPE-PRESCRIPTION SYMBOL<))
 (9 9 (:REWRITE SYMBOL<-TRICHOTOMY))
 (9 9 (:REWRITE SYMBOL<-TRANSITIVE))
 (9 9 (:REWRITE SYMBOL<-ASYMMETRIC))
 (9 9 (:REWRITE FOLD-CONSTS-IN-+))
 (9 9 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (5 1 (:DEFINITION LEN))
 )
(OPEN-OUTPUT-CHANNEL-P1-OF-PUT-GLOBAL
 (15 15 (:REWRITE DEFAULT-CAR))
 (12 1 (:DEFINITION ADD-PAIR))
 (10 2 (:DEFINITION ASSOC-EQUAL))
 (8 8 (:REWRITE DEFAULT-CDR))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(WRITTEN-FILE-FROM-OPEN-CHANNEL1
 (116 116 (:REWRITE DEFAULT-CDR))
 (86 86 (:REWRITE DEFAULT-CAR))
 (32 16 (:REWRITE DEFAULT-+-2))
 (16 16 (:REWRITE DEFAULT-+-1))
 (7 7 (:REWRITE DEFAULT-<-2))
 (7 7 (:REWRITE DEFAULT-<-1))
 )
(STATE-P1-OF-CLOSE-OUTPUT-CHANNEL-FREE
 (59 59 (:REWRITE DEFAULT-CAR))
 (51 51 (:REWRITE DEFAULT-CDR))
 (50 10 (:DEFINITION ASSOC-EQUAL))
 (44 4 (:DEFINITION FGETPROP))
 (6 1 (:DEFINITION REMOVE1-ASSOC-EQUAL))
 (5 3 (:REWRITE DEFAULT-+-2))
 (3 3 (:REWRITE DEFAULT-+-1))
 (1 1 (:TYPE-PRESCRIPTION WRITTEN-FILE))
 (1 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE DEFAULT-<-1))
 )
(STATE-P1-OF-CLOSE-OUTPUT-CHANNEL-TYPES
 (18 6 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (12 3 (:DEFINITION STATE-P))
 (6 6 (:TYPE-PRESCRIPTION STATE-P))
 )
(STATE-P1-OF-CLOSE-OUTPUT-CHANNEL-OF-OPEN
 (9 1 (:REWRITE STATE-P1-OF-CLOSE-OUTPUT-CHANNEL-TYPES))
 (6 2 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (4 1 (:DEFINITION STATE-P))
 (2 2 (:TYPE-PRESCRIPTION STATE-P))
 )
(OPEN-CHANNEL1-OF-CONS-BYTE
 (41 41 (:REWRITE DEFAULT-CDR))
 (32 32 (:REWRITE DEFAULT-CAR))
 (32 16 (:REWRITE DEFAULT-+-2))
 (16 16 (:REWRITE DEFAULT-+-1))
 (6 6 (:REWRITE DEFAULT-<-2))
 (6 6 (:REWRITE DEFAULT-<-1))
 )
(OPEN-CHANNEL1-OF-CONS-OBJECT
 (80 1 (:REWRITE OPEN-CHANNEL1-OF-CONS-BYTE))
 (60 60 (:REWRITE DEFAULT-CDR))
 (50 25 (:REWRITE DEFAULT-+-2))
 (35 35 (:REWRITE DEFAULT-CAR))
 (25 25 (:REWRITE DEFAULT-+-1))
 )
(TYPED-IO-LISTP-OF-APPEND
 (614 320 (:REWRITE DEFAULT-CDR))
 (364 340 (:REWRITE DEFAULT-CAR))
 (341 341 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (276 92 (:REWRITE LIST-FIX-WHEN-TRUE-LISTP))
 (262 131 (:REWRITE DEFAULT-+-2))
 (131 131 (:REWRITE DEFAULT-+-1))
 (130 126 (:REWRITE DEFAULT-<-1))
 (126 126 (:REWRITE DEFAULT-<-2))
 (91 91 (:REWRITE LIST-FIX-WHEN-NOT-CONSP))
 (45 45 (:REWRITE CDR-OF-APPEND-WHEN-CONSP))
 (4 4 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(TYPED-IO-LISTP-OF-REV
 (390 234 (:REWRITE DEFAULT-CDR))
 (289 165 (:REWRITE DEFAULT-CAR))
 (240 16 (:DEFINITION BINARY-APPEND))
 (184 92 (:REWRITE DEFAULT-+-2))
 (150 150 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (128 32 (:REWRITE APPEND-WHEN-NOT-CONSP))
 (92 92 (:REWRITE DEFAULT-+-1))
 (74 74 (:REWRITE LIST-FIX-WHEN-NOT-CONSP))
 (73 72 (:REWRITE DEFAULT-<-1))
 (72 72 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 )
(OPEN-CHANNEL1-OF-REVAPPEND-CHARLIST
 (340 322 (:REWRITE DEFAULT-CDR))
 (258 240 (:REWRITE DEFAULT-CAR))
 (228 114 (:REWRITE DEFAULT-+-2))
 (114 114 (:REWRITE DEFAULT-+-1))
 (58 4 (:REWRITE LIST-FIX-WHEN-LEN-ZERO))
 (45 3 (:DEFINITION BINARY-APPEND))
 (12 12 (:REWRITE CONSP-OF-REV))
 (4 4 (:REWRITE LIST-FIX-WHEN-NOT-CONSP))
 (3 3 (:REWRITE REV-WHEN-NOT-CONSP))
 )
(STATE-P1-OF-PRINC$
 (361 333 (:REWRITE DEFAULT-CAR))
 (305 61 (:DEFINITION ASSOC-EQUAL))
 (299 253 (:REWRITE DEFAULT-CDR))
 (198 18 (:DEFINITION FGETPROP))
 (168 12 (:DEFINITION BINARY-APPEND))
 (106 26 (:REWRITE APPEND-WHEN-NOT-CONSP))
 (72 6 (:DEFINITION ADD-PAIR))
 (60 60 (:TYPE-PRESCRIPTION REV))
 (48 24 (:REWRITE CONSP-OF-REV))
 (38 2 (:DEFINITION STRING-DOWNCASE1))
 (36 36 (:TYPE-PRESCRIPTION EXPLODE-ATOM+))
 (31 31 (:TYPE-PRESCRIPTION TRUE-LISTP-OF-EXPLODE-ATOM))
 (31 31 (:TYPE-PRESCRIPTION CONSP-OF-EXPLODE-ATOM-WHEN-INTEGERP))
 (30 6 (:REWRITE REV-WHEN-NOT-CONSP))
 (23 11 (:REWRITE APPEND-ATOM-UNDER-LIST-EQUIV))
 (18 9 (:REWRITE DEFAULT-+-2))
 (14 8 (:REWRITE APPEND-OF-CONS))
 (14 2 (:REWRITE STR::CHAR-DOWNCASE-IS-DOWNCASE-CHAR))
 (10 10 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (10 2 (:REWRITE STR::CHARACTER-LISTP-WHEN-DEC-DIGIT-CHAR-LISTP))
 (9 9 (:REWRITE DEFAULT-+-1))
 (8 6 (:REWRITE STR::CONSP-OF-EXPLODE))
 (6 6 (:TYPE-PRESCRIPTION SYMBOL<))
 (6 6 (:REWRITE SYMBOL<-TRICHOTOMY))
 (6 6 (:REWRITE SYMBOL<-TRANSITIVE))
 (6 6 (:REWRITE SYMBOL<-ASYMMETRIC))
 (6 6 (:REWRITE DEFAULT-<-2))
 (6 6 (: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 4 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (4 4 (:REWRITE DEFAULT-SYMBOL-NAME))
 (4 2 (:TYPE-PRESCRIPTION TRUE-LISTP-APPEND))
 (4 2 (:REWRITE STR::DEC-DIGIT-CHAR-LISTP-WHEN-NOT-CONSP))
 (2 2 (:TYPE-PRESCRIPTION NATP))
 (2 2 (:TYPE-PRESCRIPTION BINARY-APPEND))
 (2 2 (:REWRITE DEFAULT-REALPART))
 (2 2 (:REWRITE DEFAULT-IMAGPART))
 )
(OPEN-OUTPUT-CHANNEL-P1-OF-PRINC$
 (4000 30 (:DEFINITION EXPLODE-NONNEGATIVE-INTEGER))
 (1884 60 (:DEFINITION FLOOR))
 (1350 30 (:DEFINITION MOD))
 (1332 1332 (:TYPE-PRESCRIPTION NONNEGATIVE-INTEGER-QUOTIENT))
 (1152 72 (:DEFINITION NONNEGATIVE-INTEGER-QUOTIENT))
 (1110 30 (:DEFINITION DIGIT-TO-CHAR))
 (540 12 (:DEFINITION PRINT-BASE-P))
 (528 60 (:DEFINITION MEMBER-EQUAL))
 (515 103 (:DEFINITION ASSOC-EQUAL))
 (456 391 (:REWRITE DEFAULT-CAR))
 (411 26 (:DEFINITION BINARY-APPEND))
 (390 270 (:REWRITE DEFAULT-+-2))
 (324 259 (:REWRITE DEFAULT-CDR))
 (282 270 (:REWRITE DEFAULT-+-1))
 (276 78 (:REWRITE COMMUTATIVITY-OF-*))
 (264 84 (:REWRITE COMMUTATIVITY-OF-+))
 (252 54 (:REWRITE APPEND-WHEN-NOT-CONSP))
 (216 72 (:DEFINITION NFIX))
 (214 214 (:REWRITE DEFAULT-<-2))
 (214 214 (:REWRITE DEFAULT-<-1))
 (210 168 (:REWRITE DEFAULT-*-2))
 (210 168 (:REWRITE DEFAULT-*-1))
 (184 136 (:REWRITE DEFAULT-UNARY-MINUS))
 (95 95 (:TYPE-PRESCRIPTION TRUE-LISTP-OF-EXPLODE-ATOM))
 (95 95 (:TYPE-PRESCRIPTION CONSP-OF-EXPLODE-ATOM-WHEN-INTEGERP))
 (82 70 (:REWRITE DEFAULT-NUMERATOR))
 (76 70 (:REWRITE DEFAULT-DENOMINATOR))
 (72 72 (:DEFINITION IFIX))
 (72 6 (:DEFINITION ADD-PAIR))
 (65 25 (:REWRITE APPEND-ATOM-UNDER-LIST-EQUIV))
 (56 24 (:REWRITE CONSP-OF-REV))
 (38 38 (:TYPE-PRESCRIPTION TRUE-LISTP-OF-EXPLODE-NONNEGATIVE-INTEGER-TYPE))
 (38 38 (:TYPE-PRESCRIPTION EXPLODE-NONNEGATIVE-INTEGER))
 (38 2 (:DEFINITION STRING-DOWNCASE1))
 (36 36 (:TYPE-PRESCRIPTION EXPLODE-ATOM+))
 (30 12 (:REWRITE DEFAULT-UNARY-/))
 (26 6 (:REWRITE REV-WHEN-NOT-CONSP))
 (24 24 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (24 16 (:REWRITE STR::CONSP-OF-EXPLODE))
 (24 8 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (22 22 (:TYPE-PRESCRIPTION STR::TRUE-LISTP-OF-EXPLODE))
 (18 12 (:REWRITE RATIONALP-*))
 (16 4 (:DEFINITION STATE-P))
 (14 8 (:REWRITE APPEND-OF-CONS))
 (14 2 (:REWRITE STR::CHAR-DOWNCASE-IS-DOWNCASE-CHAR))
 (12 12 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (11 11 (:REWRITE DEFAULT-SYMBOL-NAME))
 (10 10 (:REWRITE ZP-OPEN))
 (8 8 (:TYPE-PRESCRIPTION STATE-P))
 (6 6 (:TYPE-PRESCRIPTION SYMBOL<))
 (6 6 (:REWRITE SYMBOL<-TRICHOTOMY))
 (6 6 (:REWRITE SYMBOL<-TRANSITIVE))
 (6 6 (:REWRITE SYMBOL<-ASYMMETRIC))
 (6 6 (:REWRITE RATIONALP-UNARY-/))
 (6 2 (:REWRITE STR::DOWNCASE-CHAR-DOES-NOTHING-UNLESS-UP-ALPHA-P))
 (5 1 (:REWRITE STR::CHARACTER-LISTP-WHEN-DEC-DIGIT-CHAR-LISTP))
 (4 4 (:TYPE-PRESCRIPTION STR::UP-ALPHA-P$INLINE))
 (4 4 (:REWRITE DEFAULT-REALPART))
 (4 4 (:REWRITE DEFAULT-IMAGPART))
 (2 1 (:REWRITE STR::DEC-DIGIT-CHAR-LISTP-WHEN-NOT-CONSP))
 )
(STATE-P1-OF-WRITE-BYTE$
 (61 61 (:REWRITE DEFAULT-CAR))
 (55 11 (:DEFINITION ASSOC-EQUAL))
 (47 47 (:REWRITE DEFAULT-CDR))
 (44 4 (:DEFINITION FGETPROP))
 (12 1 (:DEFINITION ADD-PAIR))
 (4 2 (:REWRITE DEFAULT-+-2))
 (3 3 (:REWRITE DEFAULT-<-2))
 (3 3 (:REWRITE DEFAULT-<-1))
 (3 1 (:REWRITE OPEN-CHANNEL1-OF-CONS-OBJECT))
 (2 2 (:REWRITE DEFAULT-+-1))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(OPEN-OUTPUT-CHANNEL-P1-OF-WRITE-BYTE$
 (19 19 (:REWRITE DEFAULT-CAR))
 (15 3 (:DEFINITION ASSOC-EQUAL))
 (12 1 (:DEFINITION ADD-PAIR))
 (11 11 (:REWRITE DEFAULT-CDR))
 (6 2 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (4 1 (:DEFINITION STATE-P))
 (2 2 (:TYPE-PRESCRIPTION STATE-P))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(STATE-P1-OF-PRINT-OBJECT$
 (61 61 (:REWRITE DEFAULT-CAR))
 (55 11 (:DEFINITION ASSOC-EQUAL))
 (47 47 (:REWRITE DEFAULT-CDR))
 (44 4 (:DEFINITION FGETPROP))
 (12 1 (:DEFINITION ADD-PAIR))
 (4 2 (:REWRITE DEFAULT-+-2))
 (2 2 (:REWRITE DEFAULT-+-1))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 (1 1 (:REWRITE DEFAULT-<-2))
 (1 1 (:REWRITE DEFAULT-<-1))
 )
(OPEN-OUTPUT-CHANNEL-P1-OF-PRINT-OBJECT$
 (19 19 (:REWRITE DEFAULT-CAR))
 (15 3 (:DEFINITION ASSOC-EQUAL))
 (12 1 (:DEFINITION ADD-PAIR))
 (11 11 (:REWRITE DEFAULT-CDR))
 (6 2 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (4 1 (:DEFINITION STATE-P))
 (2 2 (:TYPE-PRESCRIPTION STATE-P))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(HONS-ENABLEDP-OF-PRINT-OBJECT$
 (28 28 (:REWRITE DEFAULT-CAR))
 (22 2 (:DEFINITION FGETPROP))
 (21 21 (:REWRITE DEFAULT-CDR))
 (20 4 (:DEFINITION ASSOC-EQUAL))
 (12 1 (:DEFINITION ADD-PAIR))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(GET-SERIALIZE-CHARACTER-OF-PRINT-OBJECT$
 (20 4 (:DEFINITION ASSOC-EQUAL))
 (18 18 (:REWRITE DEFAULT-CAR))
 (12 1 (:DEFINITION ADD-PAIR))
 (11 11 (:REWRITE DEFAULT-CDR))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(SERIALIZE-CHARACTERP)
(STATE-P1-OF-SET-SERIALIZE-CHARACTER
 (12 4 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (11 1 (:DEFINITION FGETPROP))
 (8 2 (:DEFINITION STATE-P))
 (5 5 (:REWRITE DEFAULT-CDR))
 (5 5 (:REWRITE DEFAULT-CAR))
 (4 4 (:TYPE-PRESCRIPTION STATE-P))
 )
(OPEN-OUTPUT-CHANNEL-P1-OF-SET-SERIALIZE-CHARACTER
 (92 92 (:REWRITE DEFAULT-CAR))
 (60 12 (:DEFINITION ASSOC-EQUAL))
 (60 5 (:DEFINITION ADD-PAIR))
 (53 53 (:REWRITE DEFAULT-CDR))
 (33 3 (:DEFINITION FGETPROP))
 (24 8 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (16 4 (:DEFINITION STATE-P))
 (8 8 (:TYPE-PRESCRIPTION STATE-P))
 (5 5 (:TYPE-PRESCRIPTION SYMBOL<))
 (5 5 (:REWRITE SYMBOL<-TRICHOTOMY))
 (5 5 (:REWRITE SYMBOL<-TRANSITIVE))
 (5 5 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(GET-SERIALIZE-CHARACTER-OF-SET-SERIALIZE-CHARACTER
 (44 4 (:DEFINITION FGETPROP))
 (20 20 (:REWRITE DEFAULT-CDR))
 (20 20 (:REWRITE DEFAULT-CAR))
 )
(HONS-ENABLEDP-OF-SET-SERIALIZE-CHARACTER
 (121 11 (:DEFINITION FGETPROP))
 (113 113 (:REWRITE DEFAULT-CAR))
 (87 87 (:REWRITE DEFAULT-CDR))
 (60 5 (:DEFINITION ADD-PAIR))
 (55 11 (:DEFINITION ASSOC-EQUAL))
 (5 5 (:TYPE-PRESCRIPTION SYMBOL<))
 (5 5 (:REWRITE SYMBOL<-TRICHOTOMY))
 (5 5 (:REWRITE SYMBOL<-TRANSITIVE))
 (5 5 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(BOUNDP-GLOBAL1-OF-SET-SERIALIZE-CHARACTER
 (55 5 (:DEFINITION FGETPROP))
 (25 25 (:REWRITE DEFAULT-CDR))
 (25 25 (:REWRITE DEFAULT-CAR))
 )
(PRINT-BASE-P-IMPLIES-POSP)
(PRINT-BASE-P-BOUND)
(EXPLODE-NONNEGATIVE-INTEGER-LENGTH-INCR
 (90 90 (:TYPE-PRESCRIPTION MOD-TYPE . 4))
 (90 90 (:TYPE-PRESCRIPTION MOD-TYPE . 3))
 (90 90 (:TYPE-PRESCRIPTION MOD-TYPE . 2))
 (90 90 (:TYPE-PRESCRIPTION MOD-TYPE . 1))
 (90 90 (:TYPE-PRESCRIPTION INTEGERP-MOD))
 (36 8 (:TYPE-PRESCRIPTION TRUE-LISTP-EXPLODE-NONNEGATIVE-INTEGER))
 (26 14 (:REWRITE DEFAULT-+-2))
 (24 16 (:REWRITE DEFAULT-<-2))
 (24 16 (:REWRITE DEFAULT-<-1))
 (24 3 (:REWRITE MOD-=-0 . 2))
 (21 7 (:REWRITE COMMUTATIVITY-OF-*))
 (20 2 (:REWRITE FLOOR-=-X/Y . 3))
 (16 7 (:REWRITE DEFAULT-UNARY-/))
 (14 14 (:REWRITE DEFAULT-+-1))
 (14 14 (:REWRITE DEFAULT-*-2))
 (14 14 (:REWRITE DEFAULT-*-1))
 (14 2 (:REWRITE FLOOR-=-X/Y . 2))
 (13 13 (:REWRITE DEFAULT-CDR))
 (12 12 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (10 3 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 2))
 (10 3 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 2))
 (8 8 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (8 8 (:TYPE-PRESCRIPTION EXPLODE-NONNEGATIVE-INTEGER))
 (8 2 (:REWRITE FLOOR-TYPE-4 . 2))
 (8 2 (:REWRITE FLOOR-TYPE-3 . 2))
 (5 5 (:REWRITE ZP-OPEN))
 (4 4 (:TYPE-PRESCRIPTION FLOOR-TYPE-3 . 2))
 (4 4 (:TYPE-PRESCRIPTION FLOOR-TYPE-3 . 1))
 (4 4 (:TYPE-PRESCRIPTION FLOOR-TYPE-1 . 2))
 (4 4 (:TYPE-PRESCRIPTION FLOOR-TYPE-1 . 1))
 (4 4 (:TYPE-PRESCRIPTION FLOOR))
 (3 3 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 3))
 (3 3 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 3))
 (2 2 (:REWRITE FLOOR-TYPE-4 . 3))
 (2 2 (:REWRITE FLOOR-TYPE-3 . 3))
 )
(EXPLODE-NONNEGATIVE-INTEGER-LENGTH-INCR-STRICT
 (77 77 (:TYPE-PRESCRIPTION FLOOR-TYPE-3 . 2))
 (77 77 (:TYPE-PRESCRIPTION FLOOR-TYPE-1 . 2))
 (77 77 (:TYPE-PRESCRIPTION FLOOR-TYPE-1 . 1))
 (62 11 (:TYPE-PRESCRIPTION TRUE-LISTP-EXPLODE-NONNEGATIVE-INTEGER))
 (55 26 (:REWRITE DEFAULT-+-2))
 (38 24 (:REWRITE DEFAULT-<-2))
 (32 5 (:REWRITE FLOOR-=-X/Y . 3))
 (30 24 (:REWRITE DEFAULT-*-2))
 (30 24 (:REWRITE DEFAULT-*-1))
 (29 24 (:REWRITE DEFAULT-<-1))
 (29 5 (:REWRITE FLOOR-=-X/Y . 2))
 (26 26 (:REWRITE DEFAULT-+-1))
 (19 19 (:REWRITE DEFAULT-CDR))
 (14 11 (:REWRITE DEFAULT-UNARY-/))
 (11 11 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (9 6 (:REWRITE FLOOR-TYPE-4 . 2))
 (7 1 (:REWRITE MOD-=-0 . 2))
 (6 6 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (6 6 (:REWRITE FLOOR-TYPE-4 . 3))
 (6 6 (:REWRITE FLOOR-TYPE-3 . 3))
 (6 1 (:REWRITE DEFAULT-UNARY-MINUS))
 (4 2 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 2))
 (3 1 (:LINEAR FLOOR-TYPE-2 . 1))
 (2 2 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 3))
 (2 2 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 3))
 (1 1 (:LINEAR FLOOR-TYPE-2 . 2))
 (1 1 (:LINEAR FLOOR-TYPE-1 . 2))
 (1 1 (:LINEAR FLOOR-TYPE-1 . 1))
 )
(ANS-NOT-ZERO-WHEN-MEMBER-NONZERO
 (135 135 (:TYPE-PRESCRIPTION MOD-TYPE . 4))
 (135 135 (:TYPE-PRESCRIPTION MOD-TYPE . 3))
 (135 135 (:TYPE-PRESCRIPTION MOD-TYPE . 2))
 (135 135 (:TYPE-PRESCRIPTION MOD-TYPE . 1))
 (135 135 (:TYPE-PRESCRIPTION INTEGERP-MOD))
 (24 3 (:REWRITE MOD-=-0 . 2))
 (22 22 (:TYPE-PRESCRIPTION FLOOR-TYPE-3 . 2))
 (22 22 (:TYPE-PRESCRIPTION FLOOR-TYPE-1 . 2))
 (22 22 (:TYPE-PRESCRIPTION FLOOR-TYPE-1 . 1))
 (21 7 (:REWRITE COMMUTATIVITY-OF-*))
 (20 2 (:REWRITE FLOOR-=-X/Y . 3))
 (16 7 (:REWRITE DEFAULT-UNARY-/))
 (14 14 (:REWRITE DEFAULT-*-2))
 (14 14 (:REWRITE DEFAULT-*-1))
 (14 2 (:REWRITE FLOOR-=-X/Y . 2))
 (13 10 (:REWRITE DEFAULT-<-2))
 (13 10 (:REWRITE DEFAULT-<-1))
 (12 12 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (10 3 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 2))
 (10 3 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 2))
 (8 8 (:REWRITE ZP-OPEN))
 (8 2 (:REWRITE FLOOR-TYPE-4 . 2))
 (8 2 (:REWRITE FLOOR-TYPE-3 . 2))
 (6 6 (:REWRITE DEFAULT-CDR))
 (6 6 (:REWRITE DEFAULT-CAR))
 (3 3 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 3))
 (3 3 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 3))
 (2 2 (:REWRITE FLOOR-TYPE-4 . 3))
 (2 2 (:REWRITE FLOOR-TYPE-3 . 3))
 )
(POSP-X/BASE)
(EXPLODE-NONNEGATIVE-INTEGER-OF-POSITIVE-IS-NOT-ZERO-LIST
 (5523 310 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 2))
 (5030 128 (:LINEAR FLOOR-BOUNDED-BY-/))
 (4497 310 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 3))
 (3239 3239 (:TYPE-PRESCRIPTION MOD-TYPE . 3))
 (3239 3239 (:TYPE-PRESCRIPTION MOD-TYPE . 2))
 (3239 3239 (:TYPE-PRESCRIPTION MOD-TYPE . 1))
 (3183 310 (:REWRITE MOD-=-0 . 2))
 (2853 326 (:REWRITE FLOOR-=-X/Y . 2))
 (2682 96 (:LINEAR FLOOR-TYPE-2 . 1))
 (2536 2536 (:TYPE-PRESCRIPTION FLOOR-TYPE-3 . 2))
 (2536 2536 (:TYPE-PRESCRIPTION FLOOR-TYPE-1 . 2))
 (2536 2536 (:TYPE-PRESCRIPTION FLOOR-TYPE-1 . 1))
 (2475 2255 (:REWRITE DEFAULT-*-2))
 (2415 2255 (:REWRITE DEFAULT-*-1))
 (1666 310 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 2))
 (1216 1096 (:REWRITE DEFAULT-UNARY-/))
 (1128 32 (:REWRITE FLOOR-FLOOR-INTEGER))
 (1060 66 (:REWRITE ZP-OPEN))
 (1018 841 (:REWRITE DEFAULT-<-1))
 (888 841 (:REWRITE DEFAULT-<-2))
 (820 64 (:REWRITE FLOOR-TYPE-2))
 (749 327 (:REWRITE FLOOR-TYPE-3 . 2))
 (570 570 (:TYPE-PRESCRIPTION NONNEGATIVE-PRODUCT))
 (470 310 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 3))
 (357 327 (:REWRITE FLOOR-TYPE-4 . 2))
 (344 188 (:REWRITE DEFAULT-+-2))
 (327 327 (:REWRITE FLOOR-TYPE-4 . 3))
 (327 327 (:REWRITE FLOOR-TYPE-3 . 3))
 (188 188 (:REWRITE DEFAULT-+-1))
 (99 99 (:REWRITE DEFAULT-CAR))
 (96 96 (:LINEAR FLOOR-TYPE-2 . 2))
 (89 89 (:REWRITE DEFAULT-CDR))
 (65 65 (:LINEAR MOD-TYPE . 3))
 (64 64 (:LINEAR MOD-TYPE . 1))
 (64 64 (:LINEAR FLOOR-TYPE-1 . 2))
 (64 64 (:LINEAR FLOOR-TYPE-1 . 1))
 )
(CHARLIST-SUFFIXP)
(SYMB-ENDS-IN-DASH-ZERO)
(SUFFIXP-DASH-ZERO-IMPLIES-MEMBER-DASH
 (6 6 (:REWRITE DEFAULT-CDR))
 (6 6 (:REWRITE DEFAULT-CAR))
 )
(EXPLODE-NONNEG-NO-DASH
 (120 120 (:TYPE-PRESCRIPTION MOD-TYPE . 4))
 (120 120 (:TYPE-PRESCRIPTION MOD-TYPE . 3))
 (120 120 (:TYPE-PRESCRIPTION MOD-TYPE . 2))
 (120 120 (:TYPE-PRESCRIPTION MOD-TYPE . 1))
 (120 120 (:TYPE-PRESCRIPTION INTEGERP-MOD))
 (30 3 (:REWRITE MOD-=-0 . 2))
 (24 2 (:REWRITE FLOOR-=-X/Y . 3))
 (21 7 (:REWRITE COMMUTATIVITY-OF-*))
 (20 2 (:REWRITE FLOOR-=-X/Y . 2))
 (16 16 (:TYPE-PRESCRIPTION POSP-X/BASE))
 (16 7 (:REWRITE DEFAULT-UNARY-/))
 (14 14 (:REWRITE DEFAULT-*-2))
 (14 14 (:REWRITE DEFAULT-*-1))
 (13 10 (:REWRITE DEFAULT-<-2))
 (13 10 (:REWRITE DEFAULT-<-1))
 (12 12 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (12 12 (:REWRITE DEFAULT-CDR))
 (12 12 (:REWRITE DEFAULT-CAR))
 (10 3 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 2))
 (10 3 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 2))
 (8 8 (:REWRITE ZP-OPEN))
 (8 2 (:REWRITE FLOOR-TYPE-4 . 2))
 (8 2 (:REWRITE FLOOR-TYPE-3 . 2))
 (4 4 (:TYPE-PRESCRIPTION FLOOR-TYPE-3 . 2))
 (4 4 (:TYPE-PRESCRIPTION FLOOR-TYPE-3 . 1))
 (4 4 (:TYPE-PRESCRIPTION FLOOR-TYPE-1 . 2))
 (4 4 (:TYPE-PRESCRIPTION FLOOR-TYPE-1 . 1))
 (3 3 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 3))
 (3 3 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 3))
 (2 2 (:REWRITE FLOOR-TYPE-4 . 3))
 (2 2 (:REWRITE FLOOR-TYPE-3 . 3))
 )
(CHARACTER-LISTP-EXPLODE-NONNEG
 (105 105 (:TYPE-PRESCRIPTION MOD-TYPE . 4))
 (105 105 (:TYPE-PRESCRIPTION MOD-TYPE . 3))
 (105 105 (:TYPE-PRESCRIPTION MOD-TYPE . 2))
 (105 105 (:TYPE-PRESCRIPTION MOD-TYPE . 1))
 (105 105 (:TYPE-PRESCRIPTION INTEGERP-MOD))
 (30 3 (:REWRITE MOD-=-0 . 2))
 (24 2 (:REWRITE FLOOR-=-X/Y . 3))
 (21 7 (:REWRITE COMMUTATIVITY-OF-*))
 (20 2 (:REWRITE FLOOR-=-X/Y . 2))
 (16 16 (:TYPE-PRESCRIPTION POSP-X/BASE))
 (16 7 (:REWRITE DEFAULT-UNARY-/))
 (14 14 (:REWRITE DEFAULT-*-2))
 (14 14 (:REWRITE DEFAULT-*-1))
 (13 13 (:REWRITE DEFAULT-CDR))
 (13 13 (:REWRITE DEFAULT-CAR))
 (13 10 (:REWRITE DEFAULT-<-2))
 (13 10 (:REWRITE DEFAULT-<-1))
 (12 12 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (10 3 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 2))
 (10 3 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 2))
 (8 2 (:REWRITE FLOOR-TYPE-4 . 2))
 (8 2 (:REWRITE FLOOR-TYPE-3 . 2))
 (7 7 (:REWRITE ZP-OPEN))
 (4 4 (:TYPE-PRESCRIPTION FLOOR-TYPE-3 . 2))
 (4 4 (:TYPE-PRESCRIPTION FLOOR-TYPE-3 . 1))
 (4 4 (:TYPE-PRESCRIPTION FLOOR-TYPE-1 . 2))
 (4 4 (:TYPE-PRESCRIPTION FLOOR-TYPE-1 . 1))
 (3 3 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 3))
 (3 3 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 3))
 (2 2 (:REWRITE FLOOR-TYPE-4 . 3))
 (2 2 (:REWRITE FLOOR-TYPE-3 . 3))
 )
(CHARLIST-SUFFIXP-APPEND-DASH-X
 (465 254 (:REWRITE DEFAULT-CDR))
 (342 291 (:REWRITE DEFAULT-CAR))
 (54 54 (:REWRITE CDR-OF-APPEND-WHEN-CONSP))
 (2 2 (:REWRITE APPEND-ATOM-UNDER-LIST-EQUIV))
 )
(SYMB-ENDS-IN-DASH-ZERO-OF-MAKE-OUTPUT-CHANNEL
 (1095 5 (:DEFINITION EXPLODE-NONNEGATIVE-INTEGER))
 (905 5 (:DEFINITION DIGIT-TO-CHAR))
 (150 150 (:TYPE-PRESCRIPTION RATIONALP-MOD))
 (150 150 (:TYPE-PRESCRIPTION MOD-TYPE . 4))
 (150 150 (:TYPE-PRESCRIPTION MOD-TYPE . 3))
 (150 150 (:TYPE-PRESCRIPTION MOD-TYPE . 2))
 (150 150 (:TYPE-PRESCRIPTION MOD-TYPE . 1))
 (150 150 (:TYPE-PRESCRIPTION INTEGERP-MOD))
 (48 3 (:DEFINITION BINARY-APPEND))
 (45 15 (:REWRITE COMMUTATIVITY-OF-*))
 (45 5 (:REWRITE FLOOR-=-X/Y . 2))
 (40 5 (:REWRITE MOD-=-0 . 2))
 (40 5 (:REWRITE FLOOR-=-X/Y . 3))
 (38 3 (:DEFINITION MEMBER-EQUAL))
 (36 11 (:REWRITE DEFAULT-CDR))
 (35 35 (:TYPE-PRESCRIPTION POSP-X/BASE))
 (32 10 (:REWRITE DEFAULT-CAR))
 (30 30 (:REWRITE DEFAULT-*-2))
 (30 30 (:REWRITE DEFAULT-*-1))
 (23 16 (:REWRITE STR::CONSP-OF-EXPLODE))
 (23 6 (:REWRITE APPEND-WHEN-NOT-CONSP))
 (16 4 (:REWRITE INTERN-IN-PACKAGE-OF-SYMBOL-IS-IDENTITY))
 (15 15 (:REWRITE DEFAULT-<-2))
 (15 15 (:REWRITE DEFAULT-<-1))
 (15 5 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 2))
 (15 5 (:REWRITE FLOOR-TYPE-3 . 2))
 (11 3 (:REWRITE DEFAULT-SYMBOL-NAME))
 (8 8 (:TYPE-PRESCRIPTION MEMBER-SYMBOL-NAME))
 (8 4 (:REWRITE DEFAULT-INTERN-IN-PACKAGE-OF-SYMBOL))
 (5 5 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 3))
 (5 5 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 3))
 (5 5 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 2))
 (5 5 (:REWRITE FLOOR-TYPE-4 . 3))
 (5 5 (:REWRITE FLOOR-TYPE-4 . 2))
 (5 5 (:REWRITE FLOOR-TYPE-3 . 3))
 (4 4 (:TYPE-PRESCRIPTION SYMBOLP-INTERN-IN-PACKAGE-OF-SYMBOL))
 (3 3 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 (1 1 (:REWRITE STR::EXPLODE-UNDER-IFF))
 )
(SYMB-ENDS-IN-DASH-ZERO-OF-MAKE-INPUT-CHANNEL
 (438 2 (:DEFINITION EXPLODE-NONNEGATIVE-INTEGER))
 (362 2 (:DEFINITION DIGIT-TO-CHAR))
 (60 60 (:TYPE-PRESCRIPTION RATIONALP-MOD))
 (60 60 (:TYPE-PRESCRIPTION MOD-TYPE . 4))
 (60 60 (:TYPE-PRESCRIPTION MOD-TYPE . 3))
 (60 60 (:TYPE-PRESCRIPTION MOD-TYPE . 2))
 (60 60 (:TYPE-PRESCRIPTION MOD-TYPE . 1))
 (60 60 (:TYPE-PRESCRIPTION INTEGERP-MOD))
 (32 2 (:DEFINITION BINARY-APPEND))
 (23 7 (:REWRITE DEFAULT-CDR))
 (23 7 (:REWRITE DEFAULT-CAR))
 (18 6 (:REWRITE COMMUTATIVITY-OF-*))
 (18 2 (:REWRITE FLOOR-=-X/Y . 2))
 (16 2 (:REWRITE MOD-=-0 . 2))
 (16 2 (:REWRITE FLOOR-=-X/Y . 3))
 (14 14 (:TYPE-PRESCRIPTION POSP-X/BASE))
 (14 4 (:REWRITE APPEND-WHEN-NOT-CONSP))
 (12 12 (:REWRITE DEFAULT-*-2))
 (12 12 (:REWRITE DEFAULT-*-1))
 (10 7 (:REWRITE STR::CONSP-OF-EXPLODE))
 (9 1 (:DEFINITION MEMBER-EQUAL))
 (6 6 (:REWRITE DEFAULT-<-2))
 (6 6 (:REWRITE DEFAULT-<-1))
 (6 2 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 2))
 (6 2 (:REWRITE FLOOR-TYPE-3 . 2))
 (4 1 (:REWRITE INTERN-IN-PACKAGE-OF-SYMBOL-IS-IDENTITY))
 (3 1 (:REWRITE DEFAULT-SYMBOL-NAME))
 (2 2 (:TYPE-PRESCRIPTION MEMBER-SYMBOL-NAME))
 (2 2 (:REWRITE MOD-X-Y-=-X-FOR-RATIONALS . 3))
 (2 2 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 3))
 (2 2 (:REWRITE MOD-X-Y-=-X+Y-FOR-RATIONALS . 2))
 (2 2 (:REWRITE FLOOR-TYPE-4 . 3))
 (2 2 (:REWRITE FLOOR-TYPE-4 . 2))
 (2 2 (:REWRITE FLOOR-TYPE-3 . 3))
 (2 1 (:REWRITE DEFAULT-INTERN-IN-PACKAGE-OF-SYMBOL))
 (1 1 (:TYPE-PRESCRIPTION SYMBOLP-INTERN-IN-PACKAGE-OF-SYMBOL))
 (1 1 (:REWRITE STR::EXPLODE-WHEN-NOT-STRINGP))
 )
(MAKE-OUTPUT-CHANNEL-NOT-STANDARD-CO)
(MAKE-INPUT-CHANNEL-NOT-STANDARD-CI)
(MAKE-INPUT-CHANNEL-NOT-STANDARD-OI)
(OPEN-OUTPUT-CHANNEL-IS-NOT-STANDARD-CO
 (14 1 (:DEFINITION ADD-PAIR))
 (12 4 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (8 2 (:DEFINITION STATE-P))
 (7 7 (:REWRITE DEFAULT-CAR))
 (6 2 (:DEFINITION MEMBER-EQUAL))
 (4 4 (:TYPE-PRESCRIPTION STATE-P))
 (4 4 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-+-2))
 (3 3 (:REWRITE DEFAULT-+-1))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(OPEN-INPUT-CHANNEL-IS-NOT-STANDARD-CI
 (14 1 (:DEFINITION ADD-PAIR))
 (12 4 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (11 11 (:REWRITE DEFAULT-CAR))
 (10 2 (:DEFINITION ASSOC-EQUAL))
 (8 2 (:DEFINITION STATE-P))
 (5 5 (:REWRITE DEFAULT-CDR))
 (4 4 (:TYPE-PRESCRIPTION STATE-P))
 (3 3 (:REWRITE DEFAULT-+-2))
 (3 3 (:REWRITE DEFAULT-+-1))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
(OPEN-INPUT-CHANNEL-IS-NOT-STANDARD-OI
 (14 1 (:DEFINITION ADD-PAIR))
 (12 4 (:REWRITE STATE-P-IMPLIES-AND-FORWARD-TO-STATE-P1))
 (11 11 (:REWRITE DEFAULT-CAR))
 (10 2 (:DEFINITION ASSOC-EQUAL))
 (8 2 (:DEFINITION STATE-P))
 (5 5 (:REWRITE DEFAULT-CDR))
 (4 4 (:TYPE-PRESCRIPTION STATE-P))
 (3 3 (:REWRITE DEFAULT-+-2))
 (3 3 (:REWRITE DEFAULT-+-1))
 (1 1 (:TYPE-PRESCRIPTION SYMBOL<))
 (1 1 (:REWRITE SYMBOL<-TRICHOTOMY))
 (1 1 (:REWRITE SYMBOL<-TRANSITIVE))
 (1 1 (:REWRITE SYMBOL<-ASYMMETRIC))
 )
