(faig-restrict-alist x sigma) substitutes into an FAIG alist (an alist binding keys to FAIGs).
(faig-restrict-alist x sigma) → *
The alist
Function:
(defun faig-restrict-alist (x sigma) (declare (xargs :guard t)) (let ((__function__ 'faig-restrict-alist)) (declare (ignorable __function__)) (b* (((when (atom x)) nil) (rest (faig-restrict-alist (cdr x) sigma)) ((when (atom (car x))) rest)) (cons (cons (caar x) (faig-restrict (cdar x) sigma)) rest))))