Unsigned interpretation of a BFR list under some environment.
(bfr-list->u x env) → *
Function:
(defun bfr-list->u (x env) (declare (xargs :guard t)) (let ((__function__ 'bfr-list->u)) (declare (ignorable __function__)) (if (atom x) 0 (logcons (bool->bit (bfr-eval (car x) env)) (bfr-list->u (cdr x) env)))))
Theorem:
(defthm bfr-list->u-of-list-fix (equal (bfr-list->u (list-fix x) env) (bfr-list->u x env)))
Theorem:
(defthm bfr-list->u-type (natp (bfr-list->u x env)) :rule-classes :type-prescription)
Theorem:
(defthm bfr-list->u-of-set-non-dep (implies (and (not (pbfr-list-depends-on k p x)) (bfr-eval p env) (bfr-eval p (bfr-set-var k v env))) (equal (bfr-list->u x (bfr-param-env p (bfr-set-var k v env))) (bfr-list->u x (bfr-param-env p env)))))