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