Recognize true lists of digits in the specified base.
(dab-digit-listp base x) → std::bool
The fixing function for this predicate is dab-digit-list-fix.
Function:
(defun dab-digit-listp (base x) (declare (xargs :guard (dab-basep base))) (let ((__function__ 'dab-digit-listp)) (declare (ignorable __function__)) (if (consp x) (and (dab-digitp base (car x)) (dab-digit-listp base (cdr x))) (null x))))
Theorem:
(defthm natp-listp-when-dab-digit-listp (implies (dab-digit-listp base x) (nat-listp x)))
Theorem:
(defthm dab-digit-listp-of-dab-base-fix-base (equal (dab-digit-listp (dab-base-fix base) x) (dab-digit-listp base x)))
Theorem:
(defthm dab-digit-listp-dab-base-equiv-congruence-on-base (implies (dab-base-equiv base base-equiv) (equal (dab-digit-listp base x) (dab-digit-listp base-equiv x))) :rule-classes :congruence)