Recognizes lists of bin-digit-char-p characters.
(bin-digit-char-list*p x) → std::bool
This is an ordinary std::deflist. It is
"loose" in that it does not care whether
Function:
(defun bin-digit-char-list*p (x) (declare (xargs :guard t)) (let ((acl2::__function__ 'bin-digit-char-list*p)) (declare (ignorable acl2::__function__)) (if (consp x) (and (bin-digit-char-p (car x)) (bin-digit-char-list*p (cdr x))) t)))
Theorem:
(defthm icharlisteqv-implies-equal-bin-digit-char-list*p-1 (implies (icharlisteqv x x-equiv) (equal (bin-digit-char-list*p x) (bin-digit-char-list*p x-equiv))) :rule-classes (:congruence))