(aig-partial-eval-alist x env) partially evaluates an AIG Alist (an alist binding keys to AIGs).
(aig-partial-eval-alist x env) → aig-alist
Function:
(defun aig-partial-eval-alist (x env) (declare (xargs :guard t)) (let ((__function__ 'aig-partial-eval-alist)) (declare (ignorable __function__)) (cond ((atom x) nil) ((atom (car x)) (aig-partial-eval-alist (cdr x) env)) (t (cons (cons (caar x) (aig-partial-eval (cdar x) env)) (aig-partial-eval-alist (cdr x) env))))))
Theorem:
(defthm alistp-of-aig-partial-eval-alist (alistp (aig-partial-eval-alist x env)))