		Search-engine friendly clone of the ACL2 documentation.

Bin-digit

Bin-digitp

Recognizer for bin-digit.

Signature
(bin-digitp x) → yes/no
Returns: yes/no — Type (booleanp yes/no).

Definitions and Theorems

Function: bin-digitp

(defun bin-digitp (x)
  (declare (xargs :guard t))
  (let ((__function__ 'bin-digitp))
    (declare (ignorable __function__))
    (or (eql x (char-code #\0))
        (eql x (char-code #\1)))))

Theorem: booleanp-of-bin-digitp

(defthm booleanp-of-bin-digitp
  (b* ((yes/no (bin-digitp x)))
    (booleanp yes/no))
  :rule-classes :rewrite)