(OUR-DIGIT-CHAR-P-OF-DIGIT-TO-CHAR
 (8 6 (:REWRITE DEFAULT-<-2))
 (7 6 (:REWRITE DEFAULT-<-1))
 (3 3 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (2 2 (:REWRITE DEFAULT-CDR))
 )
(OUR-DIGIT-CHAR-P-OF-DIGIT-TO-CHAR-GEN
 (11 8 (:REWRITE DEFAULT-<-1))
 (9 8 (:REWRITE DEFAULT-<-2))
 (4 4 (:REWRITE RATIONALP-IMPLIES-ACL2-NUMBERP))
 (2 2 (:REWRITE DEFAULT-CDR))
 )
(EQUAL-OF-0-AND-DIGIT-TO-CHAR
 (5 5 (:REWRITE DEFAULT-<-2))
 (5 5 (:REWRITE DEFAULT-<-1))
 )
(EQUAL-OF-DIGIT-TO-CHAR-AND-DIGIT-TO-CHAR
 (2 2 (:REWRITE ZP-OPEN))
 (2 2 (:REWRITE DEFAULT-<-2))
 (2 2 (:REWRITE DEFAULT-<-1))
 )
