		Search-engine friendly clone of the ACL2 documentation.

Atc-arrays

Ulong-array-length

Length of an array of type unsigned long.

Signature
(ulong-array-length array) → length
Arguments: array — Guard (ulong-arrayp array).
Returns: length — Type (posp length).

Definitions and Theorems

Function: ulong-array-length

(defun ulong-array-length (array)
  (declare (xargs :guard (ulong-arrayp array)))
  (let ((__function__ 'ulong-array-length))
    (declare (ignorable __function__))
    (len (ulong-array->elements array))))

Theorem: posp-of-ulong-array-length

(defthm posp-of-ulong-array-length
  (b* ((length (ulong-array-length array)))
    (posp length))
  :rule-classes (:rewrite :type-prescription))

Theorem: natp-of-ulong-array-length

(defthm natp-of-ulong-array-length
  (b* ((length (ulong-array-length array)))
    (natp length))
  :rule-classes :rewrite)

Theorem: ulong-array-length-alt-def

(defthm ulong-array-length-alt-def
  (implies (ulong-arrayp array)
           (equal (ulong-array-length array)
                  (value-array->length array))))

Theorem: ulong-array-length-of-ulong-array-fix-array

(defthm ulong-array-length-of-ulong-array-fix-array
  (equal (ulong-array-length (ulong-array-fix array))
         (ulong-array-length array)))

Theorem: ulong-array-length-ulong-array-equiv-congruence-on-array

(defthm ulong-array-length-ulong-array-equiv-congruence-on-array
  (implies (ulong-array-equiv array array-equiv)
           (equal (ulong-array-length array)
                  (ulong-array-length array-equiv)))
  :rule-classes :congruence)