		Search-engine friendly clone of the ACL2 documentation.

Atc-arrays

Ulong-array-of

Build an array of type unsigned longfrom a list of its elements.

Signature
(ulong-array-of elements) → array
Arguments: elements — Guard (ulong-listp elements).
Returns: array — Type (ulong-arrayp array).

Definitions and Theorems

Function: ulong-array-of

(defun ulong-array-of (elements)
  (declare (xargs :guard (ulong-listp elements)))
  (declare (xargs :guard (consp elements)))
  (let ((__function__ 'ulong-array-of))
    (declare (ignorable __function__))
    (ulong-array (type-ulong) elements)))

Theorem: ulong-arrayp-of-ulong-array-of

(defthm ulong-arrayp-of-ulong-array-of
  (b* ((array (ulong-array-of elements)))
    (ulong-arrayp array))
  :rule-classes :rewrite)

Theorem: ulong-array-of-of-ulong-array->elements

(defthm ulong-array-of-of-ulong-array->elements
  (equal (ulong-array-of (ulong-array->elements array))
         (ulong-array-fix array)))

Theorem: ulong-array-of-alt-def

(defthm ulong-array-of-alt-def
  (implies (and (ulong-listp elems) (consp elems))
           (equal (ulong-array-of elems)
                  (make-value-array :elemtype (type-ulong)
                                    :elements elems))))

Theorem: ulong-array-of-of-ulong-list-fix-elements

(defthm ulong-array-of-of-ulong-list-fix-elements
  (equal (ulong-array-of (ulong-list-fix elements))
         (ulong-array-of elements)))

Theorem: ulong-array-of-ulong-list-equiv-congruence-on-elements

(defthm ulong-array-of-ulong-list-equiv-congruence-on-elements
  (implies (ulong-list-equiv elements elements-equiv)
           (equal (ulong-array-of elements)
                  (ulong-array-of elements-equiv)))
  :rule-classes :congruence)