Modify the
In the execution this is an array write, but the logical definition is just a thin wrapper for update-nth:
Function:
(defun update-u32s$ai (stobjs::i stobjs::v u32arr$a) (declare (xargs :guard (and (u32arr$ap u32arr$a) (integerp stobjs::i) (<= 0 stobjs::i) (< stobjs::i (u32s$a-length u32arr$a)) (natp stobjs::v) (stobjs::typep$ stobjs::v (unsigned-byte 32))))) (ec-call (update-nth stobjs::i (nfix stobjs::v) u32arr$a)))