		Search-engine friendly clone of the ACL2 documentation.

Faig-constructors

F-aig-pullup

(f-aig-pullup a) constructs an FAIG representing a pullup resistor.

Signature
(f-aig-pullup a) → *

Definitions and Theorems

Function: f-aig-pullup

(defun f-aig-pullup (a)
  (declare (xargs :guard t))
  (let ((__function__ 'f-aig-pullup))
    (declare (ignorable __function__))
    (b* (((faig a1 a0) a)
         (a-not-aig-floating (aig-or a1 a0))
         (a-floating (aig-not a-not-aig-floating)))
      (cons (aig-or a-floating a1) a0))))

Theorem: faig-eval-of-f-aig-pullup

(defthm faig-eval-of-f-aig-pullup
  (equal (faig-eval (f-aig-pullup a) env)
         (f-aig-pullup (faig-eval a env))))

Theorem: faig-fix-equiv-implies-equal-f-aig-pullup-1

(defthm faig-fix-equiv-implies-equal-f-aig-pullup-1
  (implies (faig-fix-equiv a a-equiv)
           (equal (f-aig-pullup a)
                  (f-aig-pullup a-equiv)))
  :rule-classes (:congruence))

Theorem: faig-equiv-implies-faig-equiv-f-aig-pullup-1

(defthm faig-equiv-implies-faig-equiv-f-aig-pullup-1
  (implies (faig-equiv a a-equiv)
           (faig-equiv (f-aig-pullup a)
                       (f-aig-pullup a-equiv)))
  :rule-classes (:congruence))