		Search-engine friendly clone of the ACL2 documentation.

Aig-and

Aig-and-macro-exec-part

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

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

Definitions and Theorems

Function: aig-and-macro-exec-part

(defun aig-and-macro-exec-part (args)
 (declare (xargs :guard t))
 (let ((__function__ 'aig-and-macro-exec-part))
  (declare (ignorable __function__))
  (cond
   ((atom args) t)
   ((atom (cdr args)) (car args))
   (t
    (cons
     'let
     (cons
      (cons (cons 'aig-and-x-do-not-use-elsewhere
                  (cons (car args) 'nil))
            'nil)
      (cons
       (cons
        'and
        (cons
         'aig-and-x-do-not-use-elsewhere
         (cons
              (cons 'aig-binary-and
                    (cons 'aig-and-x-do-not-use-elsewhere
                          (cons (aig-and-macro-exec-part (cdr args))
                                'nil)))
              'nil)))
       'nil)))))))