(aig-eval-alist x env) evaluates an AIG Alist (an alist binding keys to AIGs).
(aig-eval-alist x env) → vals-alist
Function:
(defun aig-eval-alist (x env) (declare (xargs :guard t)) (let ((__function__ 'aig-eval-alist)) (declare (ignorable __function__)) (cond ((atom x) nil) ((atom (car x)) (aig-eval-alist (cdr x) env)) (t (cons (cons (caar x) (aig-eval (cdar x) env)) (aig-eval-alist (cdr x) env))))))
Theorem:
(defthm hons-assoc-equal-aig-eval-alist (equal (hons-assoc-equal key (aig-eval-alist x env)) (and (hons-assoc-equal key x) (cons key (aig-eval (cdr (hons-assoc-equal key x)) env)))))