Read a component from a Java
(float-array-read array index) → component
Function:
(defun float-array-read (array index) (declare (xargs :guard (and (float-arrayp array) (int-valuep index)))) (declare (xargs :guard (float-array-index-in-range-p array index))) (let ((__function__ 'float-array-read)) (declare (ignorable __function__)) (float-value-fix (nth (int-value->int index) (float-array->components array)))))
Theorem:
(defthm float-valuep-of-float-array-read (b* ((component (float-array-read array index))) (float-valuep component)) :rule-classes :rewrite)