		Search-engine friendly clone of the ACL2 documentation.

Aig-and

Aig-and-macro-logic-part

Generates the :logic part for a aig-and MBE call.

Signature
(aig-and-macro-logic-part args) → *

Definitions and Theorems

Function: aig-and-macro-logic-part

(defun aig-and-macro-logic-part (args)
  (declare (xargs :guard t))
  (let ((__function__ 'aig-and-macro-logic-part))
    (declare (ignorable __function__))
    (cond ((atom args) t)
          ((atom (cdr args)) (car args))
          (t (cons 'aig-binary-and
                   (cons (car args)
                         (cons (aig-and-macro-logic-part (cdr args))
                               'nil)))))))