Length of an array of type
(sllong-array-length array) → length
Function:
(defun sllong-array-length (array) (declare (xargs :guard (sllong-arrayp array))) (let ((__function__ 'sllong-array-length)) (declare (ignorable __function__)) (len (sllong-array->elements array))))
Theorem:
(defthm posp-of-sllong-array-length (b* ((length (sllong-array-length array))) (posp length)) :rule-classes (:rewrite :type-prescription))
Theorem:
(defthm natp-of-sllong-array-length (b* ((length (sllong-array-length array))) (natp length)) :rule-classes :rewrite)
Theorem:
(defthm sllong-array-length-alt-def (implies (sllong-arrayp array) (equal (sllong-array-length array) (value-array->length array))))
Theorem:
(defthm sllong-array-length-of-sllong-array-fix-array (equal (sllong-array-length (sllong-array-fix array)) (sllong-array-length array)))
Theorem:
(defthm sllong-array-length-sllong-array-equiv-congruence-on-array (implies (sllong-array-equiv array array-equiv) (equal (sllong-array-length array) (sllong-array-length array-equiv))) :rule-classes :congruence)