(aig-compose-alist x sigma) composes into an AIG Alist (an alist binding keys to AIGs).
(aig-compose-alist x sigma) → aig-alist
Function:
(defun aig-compose-alist (x sigma) (declare (xargs :guard t)) (let ((__function__ 'aig-compose-alist)) (declare (ignorable __function__)) (cond ((atom x) nil) ((atom (car x)) (aig-compose-alist (cdr x) sigma)) (t (cons (cons (caar x) (aig-compose (cdar x) sigma)) (aig-compose-alist (cdr x) sigma))))))