(aig-mode-or-p-true p env) → *
Function:
(defun aig-mode-or-p-true (p env) (declare (xargs :guard t)) (let ((__function__ 'aig-mode-or-p-true)) (declare (ignorable __function__)) (or (bfr-mode) (bfr-eval p env))))
Theorem:
(defthm p-true-implies-aig-mode-or-p-true (implies (bfr-eval p env) (aig-mode-or-p-true p env)))
Theorem:
(defthm aig-mode-implies-aig-mode-or-p-true (implies (bfr-mode) (aig-mode-or-p-true p env)))