		Search-engine friendly clone of the ACL2 documentation.

Defequal-table

Defequal-trim-call

Trim a defequal call by removing the :print and :show-only inputs.

Signature
(defequal-trim-call call) → trimmed-call
Arguments: call — Guard (pseudo-event-formp call).
Returns: trimmed-call — Type (pseudo-event-formp trimmed-call), given the guard.

Definitions and Theorems

Function: defequal-trim-call-args

(defun defequal-trim-call-args (args)
  (declare (xargs :guard (true-listp args)))
  (let ((__function__ 'defequal-trim-call-args))
    (declare (ignorable __function__))
    (cond ((endp args) nil)
          ((member-eq (car args)
                      '(:print :show-only))
           (defequal-trim-call-args (cddr args)))
          (t (cons (car args)
                   (defequal-trim-call-args (cdr args)))))))

Theorem: true-listp-of-defequal-trim-call-args

(defthm true-listp-of-defequal-trim-call-args
  (b* ((trimmed-args (defequal-trim-call-args args)))
    (true-listp trimmed-args))
  :rule-classes :rewrite)

Function: defequal-trim-call

(defun defequal-trim-call (call)
  (declare (xargs :guard (pseudo-event-formp call)))
  (let ((__function__ 'defequal-trim-call))
    (declare (ignorable __function__))
    (cons (car call)
          (defequal-trim-call-args (cdr call)))))

Theorem: pseudo-event-formp-of-defequal-trim-call

(defthm pseudo-event-formp-of-defequal-trim-call
  (implies (and (pseudo-event-formp call))
           (b* ((trimmed-call (defequal-trim-call call)))
             (pseudo-event-formp trimmed-call)))
  :rule-classes :rewrite)