Build an array of type
(sshort-array-of elements) → array
Function:
(defun sshort-array-of (elements) (declare (xargs :guard (sshort-listp elements))) (declare (xargs :guard (consp elements))) (let ((__function__ 'sshort-array-of)) (declare (ignorable __function__)) (sshort-array (type-sshort) elements)))
Theorem:
(defthm sshort-arrayp-of-sshort-array-of (b* ((array (sshort-array-of elements))) (sshort-arrayp array)) :rule-classes :rewrite)
Theorem:
(defthm sshort-array-of-of-sshort-array->elements (equal (sshort-array-of (sshort-array->elements array)) (sshort-array-fix array)))
Theorem:
(defthm sshort-array-of-alt-def (implies (and (sshort-listp elems) (consp elems)) (equal (sshort-array-of elems) (make-value-array :elemtype (type-sshort) :elements elems))))
Theorem:
(defthm sshort-array-of-of-sshort-list-fix-elements (equal (sshort-array-of (sshort-list-fix elements)) (sshort-array-of elements)))
Theorem:
(defthm sshort-array-of-sshort-list-equiv-congruence-on-elements (implies (sshort-list-equiv elements elements-equiv) (equal (sshort-array-of elements) (sshort-array-of elements-equiv))) :rule-classes :congruence)