		Search-engine friendly clone of the ACL2 documentation.

Aig-symbolic-arithmetic

Sv::aig-logandc1-ss

Signature
(sv::aig-logandc1-ss a b) → andc1
Arguments: a — Guard (true-listp a).; b — Guard (true-listp b).
Returns: andc1 — Type (true-listp andc1).

Definitions and Theorems

Function: aig-logandc1-ss

(defun sv::aig-logandc1-ss (a b)
  (declare (xargs :guard (and (true-listp a) (true-listp b))))
  (let ((__function__ 'sv::aig-logandc1-ss))
    (declare (ignorable __function__))
    (b* (((mv af ar aend) (first/rest/end a))
         ((mv bf br bend) (first/rest/end b))
         (lsb (acl2::aig-andc1 af bf))
         ((when (and aend bend))
          (sv::aig-sterm lsb))
         (rest (sv::aig-logandc1-ss ar br)))
      (sv::aig-scons lsb rest))))

Theorem: true-listp-of-aig-logandc1-ss

(defthm sv::true-listp-of-aig-logandc1-ss
  (b* ((andc1 (sv::aig-logandc1-ss a b)))
    (true-listp andc1))
  :rule-classes :type-prescription)

Theorem: aig-logandc1-ss-correct

(defthm sv::aig-logandc1-ss-correct
  (b* ((andc1 (sv::aig-logandc1-ss a b)))
    (and (equal (sv::aig-list->s andc1 env)
                (logandc1 (sv::aig-list->s a env)
                          (sv::aig-list->s b env))))))