Translate an AIG into a BED.
(bed-from-aig x) → (mv bed order)
Function:
(defun bed-from-aig (x) (declare (xargs :guard t)) (let ((__function__ 'bed-from-aig)) (declare (ignorable __function__)) (b* ((memo 10000) (order :bed-order) ((mv bed order memo) (bed-from-aig-aux x order memo))) (fast-alist-free memo) (mv bed order))))
Theorem:
(defthm bed-eval-of-bed-from-aig (b* (((mv bed ?order) (bed-from-aig aig))) (equal (bed-eval bed env) (bool->bit (aig-eval aig env)))))