(faig-compose x sigma) performs variable substitution throughout the
FAIG
(faig-compose x sigma) → *
See aig-compose; the
Function:
(defun faig-compose (x sigma) (declare (xargs :guard t)) (let ((__function__ 'faig-compose)) (declare (ignorable __function__)) (if (atom x) '(t . t) (cons (aig-compose (car x) sigma) (aig-compose (cdr x) sigma)))))