Generates the :logic part for a bfr-and MBE call.
(bfr-and-macro-logic-part args) → *
Function:
(defun bfr-and-macro-logic-part (args) (declare (xargs :guard t)) (let ((__function__ 'bfr-and-macro-logic-part)) (declare (ignorable __function__)) (cond ((atom args) t) ((atom (cdr args)) (car args)) (t (cons 'bfr-binary-and (cons (car args) (cons (bfr-and-macro-logic-part (cdr args)) 'nil)))))))