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