		Search-engine friendly clone of the ACL2 documentation.

Defarbrec-input-processing

Defarbrec-process-print

Process the :print input.

Signature
(defarbrec-process-print print ctx state) → (mv erp nothing state)
Returns: nothing — Type (null nothing).

Definitions and Theorems

Function: defarbrec-process-print

(defun defarbrec-process-print (print ctx state)
 (declare (xargs :stobjs (state)))
 (declare (xargs :guard t))
 (let ((__function__ 'defarbrec-process-print))
  (declare (ignorable __function__))
  (if (defarbrec-printp print)
      (value nil)
   (er-soft+
       ctx t nil
       "The :PRINT input must be NIL, :ERROR, :RESULT, or :ALL."))))

Theorem: null-of-defarbrec-process-print.nothing

(defthm null-of-defarbrec-process-print.nothing
  (b* (((mv ?erp ?nothing ?state)
        (defarbrec-process-print print ctx state)))
    (null nothing))
  :rule-classes :rewrite)