		Search-engine friendly clone of the ACL2 documentation.

Atj-java-primitive-array-model

Short-array-read

Read a component from a Java short array.

Signature
(short-array-read array index) → component
Arguments: array — Guard (short-arrayp array).; index — Guard (int-valuep index).
Returns: component — Type (short-valuep component).

Definitions and Theorems

Function: short-array-read

(defun short-array-read (array index)
 (declare (xargs :guard (and (short-arrayp array)
                             (int-valuep index))))
 (declare (xargs :guard (short-array-index-in-range-p array index)))
 (let ((__function__ 'short-array-read))
   (declare (ignorable __function__))
   (short-value-fix (nth (int-value->int index)
                         (short-array->components array)))))

Theorem: short-valuep-of-short-array-read

(defthm short-valuep-of-short-array-read
  (b* ((component (short-array-read array index)))
    (short-valuep component))
  :rule-classes :rewrite)