Construct the
(bfr-var n) → *
Function:
(defun bfr-var (n) (declare (xargs :guard (bfr-varname-p n))) (let ((__function__ 'bfr-var)) (declare (ignorable __function__)) (let ((n (bfr-varname-fix n))) (bfr-case :bdd (qv n) :aig n))))
Theorem:
(defthm bfr-eval-bfr-var (equal (bfr-eval (bfr-var n) env) (bfr-lookup n env)))
Theorem:
(defthm bfr-varname-equiv-implies-equal-bfr-var-1 (implies (bfr-varname-equiv n n-equiv) (equal (bfr-var n) (bfr-var n-equiv))) :rule-classes (:congruence))