Recognizer for characters #\0 and #\1.
(bin-digit-char-p x) → bool
(bin-digit-char-p x) is the binary alternative to dec-digit-char-p.
Function:
(defun bin-digit-char-p$inline (x) (declare (xargs :guard t)) (let ((acl2::__function__ 'bin-digit-char-p)) (declare (ignorable acl2::__function__)) (or (eql x #\0) (eql x #\1))))
Theorem:
(defthm ichareqv-implies-equal-bin-digit-char-p-1 (implies (ichareqv x x-equiv) (equal (bin-digit-char-p x) (bin-digit-char-p x-equiv))) :rule-classes (:congruence))
Theorem:
(defthm characterp-when-bin-digit-char-p (implies (bin-digit-char-p char) (characterp char)) :rule-classes :compound-recognizer)