Evaluate a BFR under an appropriate BDD/AIG environment.
(bfr-eval x env) → bool
Function:
(defun bfr-eval (x env) (declare (xargs :guard t)) (let ((__function__ 'bfr-eval)) (declare (ignorable __function__)) (mbe :logic (bfr-case :bdd (acl2::eval-bdd x env) :aig (acl2::aig-eval x env)) :exec (if (booleanp x) x (bfr-case :bdd (acl2::eval-bdd x env) :aig (acl2::aig-eval x env))))))
Theorem:
(defthm bfr-eval-consts (and (equal (bfr-eval t env) t) (equal (bfr-eval nil env) nil)))