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