		Search-engine friendly clone of the ACL2 documentation.

Svl-module

Svl-module->inputs

Get the inputs field from a svl-module.

Signature
(svl-module->inputs x) → inputs
Arguments: x — Guard (svl-module-p x).
Returns: inputs — Type (wire-list-p inputs).

This is an ordinary field accessor created by fty::defprod.

Definitions and Theorems

Function: svl-module->inputs$inline

(defun svl-module->inputs$inline (x)
  (declare (xargs :guard (svl-module-p x)))
  (declare (xargs :guard t))
  (let ((acl2::__function__ 'svl-module->inputs))
    (declare (ignorable acl2::__function__))
    (mbe :logic
         (b* ((x (and t x)))
           (wire-list-fix (cdr (std::da-nth 1 x))))
         :exec (cdr (std::da-nth 1 x)))))

Theorem: wire-list-p-of-svl-module->inputs

(defthm wire-list-p-of-svl-module->inputs
  (b* ((inputs (svl-module->inputs$inline x)))
    (wire-list-p inputs))
  :rule-classes :rewrite)

Theorem: svl-module->inputs$inline-of-svl-module-fix-x

(defthm svl-module->inputs$inline-of-svl-module-fix-x
  (equal (svl-module->inputs$inline (svl-module-fix x))
         (svl-module->inputs$inline x)))

Theorem: svl-module->inputs$inline-svl-module-equiv-congruence-on-x

(defthm svl-module->inputs$inline-svl-module-equiv-congruence-on-x
  (implies (svl-module-equiv x x-equiv)
           (equal (svl-module->inputs$inline x)
                  (svl-module->inputs$inline x-equiv)))
  :rule-classes :congruence)