(TRUE-LIST-FIX-WHEN-TRUE-LISTP
 (5 5 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 )
(TRUE-LIST-FIX-WHEN-NOT-CONS-CHEAP
 (3 1 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (1 1 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (1 1 (:DEFINITION TRUE-LISTP))
 )
(TRUE-LISTP-OF-TRUE-LIST-FIX)
(LEN-OF-TRUE-LIST-FIX
 (45 5 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (31 6 (:DEFINITION TRUE-LISTP))
 (27 27 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (16 15 (:REWRITE DEFAULT-CDR))
 (14 7 (:REWRITE DEFAULT-+-2))
 (7 7 (:REWRITE DEFAULT-+-1))
 (3 3 (:REWRITE DEFAULT-CAR))
 )
(CONSP-OF-TRUE-LIST-FIX
 (45 5 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (31 6 (:DEFINITION TRUE-LISTP))
 (27 27 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (10 10 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 )
(TRUE-LIST-FIX-IFF
 (69 8 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (47 10 (:DEFINITION TRUE-LISTP))
 (40 40 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (15 15 (:REWRITE DEFAULT-CDR))
 (8 8 (:REWRITE TRUE-LIST-FIX-WHEN-NOT-CONS-CHEAP))
 (5 5 (:REWRITE DEFAULT-CAR))
 )
(CAR-OF-TRUE-LIST-FIX
 (69 8 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (46 9 (:DEFINITION TRUE-LISTP))
 (42 42 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (13 13 (:REWRITE DEFAULT-CDR))
 (2 2 (:REWRITE CONSP-OF-TRUE-LIST-FIX))
 )
(CDR-OF-TRUE-LIST-FIX
 (53 6 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (36 7 (:DEFINITION TRUE-LISTP))
 (32 32 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (17 14 (:REWRITE DEFAULT-CDR))
 (6 6 (:REWRITE TRUE-LIST-FIX-WHEN-NOT-CONS-CHEAP))
 (4 4 (:REWRITE DEFAULT-CAR))
 )
(TRUE-LIST-FIX-OF-CONS
 (53 6 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (36 7 (:DEFINITION TRUE-LISTP))
 (32 32 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (10 10 (:REWRITE DEFAULT-CDR))
 (6 6 (:REWRITE TRUE-LIST-FIX-WHEN-NOT-CONS-CHEAP))
 (3 3 (:REWRITE DEFAULT-CAR))
 )
(DOUBLE-CDR-INDUCT)
(EQUAL-OF-TRUE-LIST-FIX-AND-TRUE-LIST-FIX-FORWARD
 (196 22 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (134 26 (:DEFINITION TRUE-LISTP))
 (118 118 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (64 64 (:REWRITE DEFAULT-CDR))
 (30 15 (:REWRITE DEFAULT-+-2))
 (15 15 (:REWRITE DEFAULT-CAR))
 (15 15 (:REWRITE DEFAULT-+-1))
 )
