Evaluate a list of BFRs, return the list of the (Boolean) results.
(bfr-eval-list x env) → bools
Function:
(defun bfr-eval-list (x env) (declare (xargs :guard t)) (let ((__function__ 'bfr-eval-list)) (declare (ignorable __function__)) (if (atom x) nil (cons (bfr-eval (car x) env) (bfr-eval-list (cdr x) env)))))
Theorem:
(defthm acl2::boolean-listp-of-bfr-eval-list (b* ((bools (bfr-eval-list x env))) (boolean-listp bools)) :rule-classes :rewrite)
Theorem:
(defthm bfr-eval-list-when-atom (implies (atom x) (equal (bfr-eval-list x env) nil)))
Theorem:
(defthm bfr-eval-list-of-cons (equal (bfr-eval-list (cons a x) env) (cons (bfr-eval a env) (bfr-eval-list x env))))
Theorem:
(defthm consp-of-bfr-eval-list (equal (consp (bfr-eval-list x env)) (consp x)))
Theorem:
(defthm bfr-eval-list-of-append (equal (bfr-eval-list (append a b) env) (append (bfr-eval-list a env) (bfr-eval-list b env))))
Theorem:
(defthm boolean-list-bfr-eval-list (implies (boolean-listp x) (equal (bfr-eval-list x env) x)))
Theorem:
(defthm boolean-list-bfr-eval-list-const (implies (and (syntaxp (quotep x)) (boolean-listp x)) (equal (bfr-eval-list x env) x)))
Theorem:
(defthm bfr-eval-list-of-list-fix (equal (bfr-eval-list (list-fix x) env) (bfr-eval-list x env)))