• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
    • B*
    • Defunc
    • Fty
    • Apt
    • Std/util
    • Defdata
    • Defrstobj
    • Seq
    • Match-tree
    • Defrstobj
    • With-supporters
    • Def-partial-measure
    • Template-subst
    • Soft
      • Soft-future-work
      • Soft-macros
        • Defun-inst
        • Defequal
          • Defequal-implementation
            • Defequal-fn
            • Defequal-event-generation
            • Defequal-input-processing
            • Defequal-table
              • Defequal-trim-call
              • Defequal-redundant?
              • Defequal-record-call
              • Defequal-trim-call-args
            • Defequal-macro-definition
        • Defsoft
        • Defthm-inst
        • Defun2
        • Defunvar
        • Defun-sk2
        • Defchoose2
        • Defthm-2nd-order
        • Define-sk2
        • Defund-sk2
        • Define2
        • Defund2
      • Updates-to-workshop-material
      • Soft-implementation
      • Soft-notions
    • Defthm-domain
    • Event-macros
    • Def-universal-equiv
    • Def-saved-obligs
    • With-supporters-after
    • Definec
    • Sig
    • Outer-local
    • Data-structures
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• 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)