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