(C$::TOKEN-TO-MSG
 (11 3 (:REWRITE C$::TOKEN-OPTIONP-WHEN-TOKENP))
 (2 2 (:REWRITE C$::TOKENP-WHEN-MEMBER-EQUAL-OF-TOKEN-LISTP))
 )
(C$::MSGP-OF-TOKEN-TO-MSG)
(C$::TOKEN-TO-MSG-OF-TOKEN-OPTION-FIX-TOKEN
 (10 1 (:REWRITE C$::TOKEN-OPTION-FIX-WHEN-TOKEN-OPTIONP))
 (7 1 (:REWRITE C$::TOKEN-OPTIONP-WHEN-TOKENP))
 (3 3 (:TYPE-PRESCRIPTION C$::TOKEN-OPTIONP))
 (2 2 (:TYPE-PRESCRIPTION C$::TOKENP))
 (2 2 (:REWRITE C$::TOKENP-WHEN-MEMBER-EQUAL-OF-TOKEN-LISTP))
 (2 1 (:REWRITE C$::TOKENP-WHEN-TOKEN-OPTIONP))
 (1 1 (:REWRITE C$::TOKEN-OPTION-FIX-WHEN-NONE))
 )
(C$::TOKEN-TO-MSG-TOKEN-OPTION-EQUIV-CONGRUENCE-ON-TOKEN)
(C$::CHAR-TO-MSG
 (28 1 (:REWRITE STR::CHARACTER-LISTP-WHEN-OCT-DIGIT-CHAR-LIST*P))
 (28 1 (:REWRITE STR::CHARACTER-LISTP-WHEN-HEX-DIGIT-CHAR-LIST*P))
 (22 1 (:REWRITE STR::CHARACTER-LISTP-WHEN-DEC-DIGIT-CHAR-LIST*P))
 (21 1 (:REWRITE STR::OCT-DIGIT-CHAR-LIST*P-OF-CONS))
 (21 1 (:REWRITE STR::HEX-DIGIT-CHAR-LIST*P-OF-CONS))
 (17 1 (:REWRITE STR::DEC-DIGIT-CHAR-LIST*P-OF-CONS))
 (11 3 (:REWRITE NATP-WHEN-NAT-OPTIONP))
 (5 1 (:REWRITE NAT-OPTIONP-WHEN-NATP))
 (4 4 (:REWRITE STR::OCT-DIGIT-CHAR-P-WHEN-MEMBER-EQUAL-OF-OCT-DIGIT-CHAR-LISTP))
 (4 4 (:REWRITE STR::OCT-DIGIT-CHAR-P-WHEN-MEMBER-EQUAL-OF-OCT-DIGIT-CHAR-LIST*P))
 (4 4 (:REWRITE STR::HEX-DIGIT-CHAR-P-WHEN-MEMBER-EQUAL-OF-HEX-DIGIT-CHAR-LISTP))
 (4 4 (:REWRITE STR::HEX-DIGIT-CHAR-P-WHEN-MEMBER-EQUAL-OF-HEX-DIGIT-CHAR-LIST*P))
 (4 4 (:REWRITE STR::DEC-DIGIT-CHAR-P-WHEN-MEMBER-EQUAL-OF-DEC-DIGIT-CHAR-LISTP))
 (4 2 (:REWRITE STR::OCT-DIGIT-CHAR-P-WHEN-NONZERO-OCT-DIGIT-CHAR-P))
 (4 2 (:REWRITE STR::HEX-DIGIT-CHAR-P-WHEN-NONZERO-HEX-DIGIT-CHAR-P))
 (4 2 (:REWRITE STR::DEC-DIGIT-CHAR-P-WHEN-NONZERO-DEC-DIGIT-CHAR-P))
 (3 3 (:TYPE-PRESCRIPTION STR::OCT-DIGIT-CHAR-P$INLINE))
 (3 3 (:TYPE-PRESCRIPTION STR::HEX-DIGIT-CHAR-P$INLINE))
 (3 3 (:TYPE-PRESCRIPTION STR::DEC-DIGIT-CHAR-P$INLINE))
 (2 2 (:TYPE-PRESCRIPTION STR::NONZERO-OCT-DIGIT-CHAR-P$INLINE))
 (2 2 (:TYPE-PRESCRIPTION STR::NONZERO-HEX-DIGIT-CHAR-P$INLINE))
 (2 2 (:TYPE-PRESCRIPTION STR::NONZERO-DEC-DIGIT-CHAR-P$INLINE))
 (2 2 (:REWRITE STR::OCT-DIGIT-CHAR-LIST*P-WHEN-SUBSETP-EQUAL))
 (2 2 (:REWRITE STR::HEX-DIGIT-CHAR-LIST*P-WHEN-SUBSETP-EQUAL))
 (2 1 (:REWRITE STR::OCT-DIGIT-CHAR-LIST*P-WHEN-OCT-DIGIT-CHAR-LISTP))
 (2 1 (:REWRITE STR::HEX-DIGIT-CHAR-LIST*P-WHEN-HEX-DIGIT-CHAR-LISTP))
 (2 1 (:REWRITE STR::DEC-DIGIT-CHAR-LIST*P-WHEN-DEC-DIGIT-CHAR-LISTP))
 (1 1 (:TYPE-PRESCRIPTION STR::OCT-DIGIT-CHAR-LISTP))
 (1 1 (:TYPE-PRESCRIPTION STR::OCT-DIGIT-CHAR-LIST*P))
 (1 1 (:TYPE-PRESCRIPTION STR::HEX-DIGIT-CHAR-LISTP))
 (1 1 (:TYPE-PRESCRIPTION STR::HEX-DIGIT-CHAR-LIST*P))
 (1 1 (:TYPE-PRESCRIPTION STR::DEC-DIGIT-CHAR-LISTP))
 (1 1 (:TYPE-PRESCRIPTION STR::DEC-DIGIT-CHAR-LIST*P))
 (1 1 (:REWRITE STR::OCT-DIGIT-CHAR-LIST*P-WHEN-NOT-CONSP))
 (1 1 (:REWRITE STR::HEX-DIGIT-CHAR-LIST*P-WHEN-NOT-CONSP))
 (1 1 (:REWRITE STR::DEFAULT-CODE-CHAR))
 (1 1 (:REWRITE STR::DEC-DIGIT-CHAR-LIST*P-WHEN-NOT-CONSP))
 )
(C$::MSGP-OF-CHAR-TO-MSG
 (36 6 (:REWRITE STR::DEFAULT-CODE-CHAR))
 (18 18 (:TYPE-PRESCRIPTION ZP))
 (12 12 (:REWRITE ZP-OPEN))
 )
