(TRUE-LIST-FIX-WHEN-TRUE-LISTP
 (5 5 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 )
(TRUE-LISTP-OF-TRUE-LIST-FIX)
(LEN-OF-TRUE-LIST-FIX
 (48 6 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (32 7 (:DEFINITION TRUE-LISTP))
 (28 28 (: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
 (48 6 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (32 7 (:DEFINITION TRUE-LISTP))
 (28 28 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (10 10 (:REWRITE DEFAULT-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 )
(TRUE-LIST-FIX-IFF
 (72 9 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (48 11 (:DEFINITION TRUE-LISTP))
 (41 41 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (15 15 (:REWRITE DEFAULT-CDR))
 (5 5 (:REWRITE DEFAULT-CAR))
 )
(CAR-OF-TRUE-LIST-FIX
 (72 9 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (47 10 (:DEFINITION TRUE-LISTP))
 (43 43 (: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))
 (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))
 (3 3 (:REWRITE DEFAULT-CAR))
 )
(DOUBLE-CDR-INDUCT)
(EQUAL-OF-TRUE-LIST-FIX-AND-TRUE-LIST-FIX-FORWARD
 (199 23 (:REWRITE TRUE-LIST-FIX-WHEN-TRUE-LISTP))
 (135 27 (:DEFINITION TRUE-LISTP))
 (119 119 (:TYPE-PRESCRIPTION TRUE-LISTP))
 (64 64 (:REWRITE DEFAULT-CDR))
 (30 15 (:REWRITE DEFAULT-+-2))
 (15 15 (:REWRITE DEFAULT-CAR))
 (15 15 (:REWRITE DEFAULT-+-1))
 )
