		Search-engine friendly clone of the ACL2 documentation.

Byte-list20p

Recognizer for byte-list20.

Function: byte-list20p

(defun byte-list20p (x)
  (declare (xargs :guard t))
  (and (byte-listp x) (equal (len x) 20)))

Theorem: booleanp-of-byte-list20p

(defthm booleanp-of-byte-list20p
  (booleanp (byte-list20p x)))

Theorem: byte-listp-when-byte-list20p-rewrite

(defthm byte-listp-when-byte-list20p-rewrite
  (implies (byte-list20p x)
           (byte-listp x)))

Theorem: byte-listp-when-byte-list20p-forward

(defthm byte-listp-when-byte-list20p-forward
  (implies (byte-list20p x)
           (byte-listp x))
  :rule-classes :forward-chaining)

Theorem: len-when-byte-list20p-tau

(defthm len-when-byte-list20p-tau
  (implies (byte-list20p x)
           (equal (len x) 20))
  :rule-classes :tau-system)