(aig-and-lists x y) pairwise ands together the AIGs from the
lists
(aig-and-lists x y) → aig-list
Function:
(defun aig-and-lists (x y) (declare (xargs :guard t)) (let ((__function__ 'aig-and-lists)) (declare (ignorable __function__)) (if (or (atom x) (atom y)) nil (cons (aig-binary-and (car x) (car y)) (aig-and-lists (cdr x) (cdr y))))))