(aig-eval-list x env) evaluates a list of AIGs.
(aig-eval-list x env) → vals
Function:
(defun aig-eval-list (x env) (declare (xargs :guard t)) (let ((__function__ 'aig-eval-list)) (declare (ignorable __function__)) (if (atom x) nil (cons (aig-eval (car x) env) (aig-eval-list (cdr x) env)))))
Theorem:
(defthm consp-of-aig-eval-list (equal (consp (aig-eval-list x env)) (consp x)))
Theorem:
(defthm len-of-aig-eval-list (equal (len (aig-eval-list x env)) (len x)))
Theorem:
(defthm aig-eval-list-of-append (equal (aig-eval-list (append x y) env) (append (aig-eval-list x env) (aig-eval-list y env))))