Read the
In the execution this is an array access, but the logical definition is just a thin wrapper for nth:
Function:
(defun ubdds$ai (stobjs::i ubdd-arr$a) (declare (xargs :guard (and (ubdd-arr$ap ubdd-arr$a) (integerp stobjs::i) (<= 0 stobjs::i) (< stobjs::i (ubdds$a-length ubdd-arr$a))))) (ec-call (acl2::ubdd-fix (ec-call (nth stobjs::i ubdd-arr$a)))))