(faig-eval x env) evaluates
(faig-eval x env) → *
See aig-eval; the
Function:
(defun faig-eval (x env) (declare (xargs :guard t)) (let ((__function__ 'faig-eval)) (declare (ignorable __function__)) (if (atom x) '(t . t) (cons (aig-eval (car x) env) (aig-eval (cdr x) env)))))
Theorem:
(defthm faig-eval-of-constants (and (equal (faig-eval (faig-t) env) (faig-t)) (equal (faig-eval (faig-f) env) (faig-f)) (equal (faig-eval (faig-z) env) (faig-z)) (equal (faig-eval (faig-x) env) (faig-x)) (equal (faig-eval nil env) (faig-x))))