(RP::CDR-PSEUDO-TERMP
 (6 1 (:REWRITE PSEUDO-TERMP-LIST-CDR))
 (6 1 (:REWRITE PSEUDO-TERM-LISTP-CDR))
 (3 3 (:REWRITE DEFAULT-CAR))
 (3 2 (:REWRITE PSEUDO-TERMP-OPENER))
 (2 2 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (2 2 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (2 2 (:REWRITE PSEUDO-TERM-LISTP-OF-ATOM))
 (1 1 (:REWRITE FN-CHECK-DEF-NOT-QUOTE))
 (1 1 (:REWRITE DEFAULT-CDR))
 )
(RP::STRIP-CDRS-PSEUDO-TERMLISTP
 (35 1 (:DEFINITION PSEUDO-TERM-LISTP))
 (7 7 (:REWRITE DEFAULT-CAR))
 (7 1 (:REWRITE PSEUDO-TERM-LISTP-CDR))
 (6 1 (:REWRITE PSEUDO-TERMP-LIST-CDR))
 (6 1 (:REWRITE PSEUDO-TERMP-CAR))
 (6 1 (:REWRITE RP::CDR-PSEUDO-TERMP))
 (5 5 (:REWRITE DEFAULT-CDR))
 (5 4 (:REWRITE PSEUDO-TERM-LISTP-OF-ATOM))
 (5 1 (:DEFINITION ASSOC-EQUAL))
 (4 4 (:REWRITE TERM-LISTP-IMPLIES-PSEUDO-TERM-LISTP))
 (4 3 (:REWRITE PSEUDO-TERMP-OPENER))
 (4 1 (:REWRITE PSEUDO-TERMP-OF-LOOKUP-IN-SUBST))
 (4 1 (:REWRITE PSEUDO-TERMP-OF-LOOKUP-IN-PSEUDO-TERM-VAL-ALISTP))
 (4 1 (:DEFINITION STRIP-CDRS))
 (4 1 (:DEFINITION QUOTEP))
 (2 2 (:TYPE-PRESCRIPTION PSEUDO-TERM-VAL-ALISTP))
 (2 2 (:TYPE-PRESCRIPTION PSEUDO-TERM-SUBSTP))
 (2 2 (:REWRITE TERMP-IMPLIES-PSEUDO-TERMP))
 (1 1 (:TYPE-PRESCRIPTION QUOTEP))
 (1 1 (:REWRITE PSEUDO-TERM-VAL-ALISTP-OF-ATOM))
 (1 1 (:REWRITE PSEUDO-TERM-SUBSTP-OF-ATOM))
 (1 1 (:REWRITE FN-CHECK-DEF-NOT-QUOTE))
 )
