(aig-implies-fn x y) → aig
Function:
(defun aig-implies-fn (x y) (declare (xargs :guard t)) (let ((__function__ 'aig-implies-fn)) (declare (ignorable __function__)) (aig-not (aig-and x (aig-not y)))))
Theorem:
(defthm aig-eval-implies (equal (aig-eval (aig-implies-fn x y) env) (implies (aig-eval x env) (aig-eval y env))))
Theorem:
(defthm aig-eval-implies-nil (equal (aig-implies-fn nil x) t))