		Search-engine friendly clone of the ACL2 documentation.

Atc-arrays

Uchar-array-of

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

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

Definitions and Theorems

Function: uchar-array-of

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

Theorem: uchar-arrayp-of-uchar-array-of

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

Theorem: uchar-array-of-of-uchar-array->elements

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

Theorem: uchar-array-of-alt-def

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

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

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

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

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