(faig-eval-list x env) evaluates a list of FAIGs.
(faig-eval-list x env) → *
Function:
(defun faig-eval-list (x env) (declare (xargs :guard t)) (let ((__function__ 'faig-eval-list)) (declare (ignorable __function__)) (if (atom x) nil (cons (faig-eval (car x) env) (faig-eval-list (cdr x) env)))))
Theorem:
(defthm nth-of-faig-eval-list (faig-const-equiv (nth n (faig-eval-list x env)) (faig-eval (nth n x) env)))