Rules about value-array->elements.
Theorem:
(defthm value-array->elements-when-uchar-arrayp (implies (uchar-arrayp x) (equal (value-array->elements x) (uchar-array->elements x))))
Theorem:
(defthm value-array->elements-when-schar-arrayp (implies (schar-arrayp x) (equal (value-array->elements x) (schar-array->elements x))))
Theorem:
(defthm value-array->elements-when-ushort-arrayp (implies (ushort-arrayp x) (equal (value-array->elements x) (ushort-array->elements x))))
Theorem:
(defthm value-array->elements-when-sshort-arrayp (implies (sshort-arrayp x) (equal (value-array->elements x) (sshort-array->elements x))))
Theorem:
(defthm value-array->elements-when-uint-arrayp (implies (uint-arrayp x) (equal (value-array->elements x) (uint-array->elements x))))
Theorem:
(defthm value-array->elements-when-sint-arrayp (implies (sint-arrayp x) (equal (value-array->elements x) (sint-array->elements x))))
Theorem:
(defthm value-array->elements-when-ulong-arrayp (implies (ulong-arrayp x) (equal (value-array->elements x) (ulong-array->elements x))))
Theorem:
(defthm value-array->elements-when-slong-arrayp (implies (slong-arrayp x) (equal (value-array->elements x) (slong-array->elements x))))
Theorem:
(defthm value-array->elements-when-ullong-arrayp (implies (ullong-arrayp x) (equal (value-array->elements x) (ullong-array->elements x))))
Theorem:
(defthm value-array->elements-when-sllong-arrayp (implies (sllong-arrayp x) (equal (value-array->elements x) (sllong-array->elements x))))