		Search-engine friendly clone of the ACL2 documentation.

Inverter

Inverter->input

Get the input field from a inverter.

Signature
(inverter->input x) → input
Arguments: x — Guard (inverter-p x).
Returns: input — Type (sig-path-p input).

This is an ordinary field accessor created by defprod.

Definitions and Theorems

Function: inverter->input$inline

(defun inverter->input$inline (x)
  (declare (xargs :guard (inverter-p x)))
  (declare (xargs :guard t))
  (let ((acl2::__function__ 'inverter->input))
    (declare (ignorable acl2::__function__))
    (mbe :logic
         (b* ((x (and t x)))
           (sig-path-fix (cdr (std::da-nth 0 x))))
         :exec (cdr (std::da-nth 0 x)))))

Theorem: sig-path-p-of-inverter->input

(defthm sig-path-p-of-inverter->input
  (b* ((input (inverter->input$inline x)))
    (sig-path-p input))
  :rule-classes :rewrite)

Theorem: inverter->input$inline-of-inverter-fix-x

(defthm inverter->input$inline-of-inverter-fix-x
  (equal (inverter->input$inline (inverter-fix x))
         (inverter->input$inline x)))

Theorem: inverter->input$inline-inverter-equiv-congruence-on-x

(defthm inverter->input$inline-inverter-equiv-congruence-on-x
  (implies (inverter-equiv x x-equiv)
           (equal (inverter->input$inline x)
                  (inverter->input$inline x-equiv)))
  :rule-classes :congruence)