		Search-engine friendly clone of the ACL2 documentation.

Defarbrec-input-processing

Defarbrec-printp

Recognize the allowed values of the :print input.

This is an ordinary std::defenum.

Function: defarbrec-printp

(defun defarbrec-printp (x)
  (declare (xargs :guard t))
  (or (eq x 'nil)
      (eq x ':error)
      (eq x ':result)
      (eq x ':all)))

Theorem: type-when-defarbrec-printp

(defthm type-when-defarbrec-printp
  (implies (defarbrec-printp x)
           (if (if (symbolp x)
                   (if (not (equal x 't))
                       (not (equal x 'nil))
                     'nil)
                 'nil)
               't
             (equal x 'nil)))
  :rule-classes :compound-recognizer)