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