(f-aig-xdet a) constructs an FAIG for 4v-xdet.
(f-aig-xdet a) → *
Function:
(defun f-aig-xdet$inline (a) (declare (xargs :guard t)) (let ((__function__ 'f-aig-xdet)) (declare (ignorable __function__)) (b* (((faig a1 a0) a)) (cons (aig-iff a1 a0) t))))
Theorem:
(defthm faig-eval-of-f-aig-xdet (equal (faig-eval (f-aig-xdet a) env) (f-aig-xdet (faig-eval a env))))
Theorem:
(defthm faig-fix-equiv-implies-equal-f-aig-xdet-1 (implies (faig-fix-equiv a a-equiv) (equal (f-aig-xdet a) (f-aig-xdet a-equiv))) :rule-classes (:congruence))