		Search-engine friendly clone of the ACL2 documentation.

Flexible-array-member-removal

Flexible-array-member-p

Check if a value is a structure with a flexible array member.

Signature
(flexible-array-member-p val) → yes/no
Arguments: val — Guard (valuep val).
Returns: yes/no — Type (booleanp yes/no).

Definitions and Theorems

Function: flexible-array-member-p

(defun flexible-array-member-p (val)
  (declare (xargs :guard (valuep val)))
  (let ((__function__ 'flexible-array-member-p))
    (declare (ignorable __function__))
    (and (value-case val :struct)
         (value-struct->flexiblep val))))

Theorem: booleanp-of-flexible-array-member-p

(defthm booleanp-of-flexible-array-member-p
  (b* ((yes/no (flexible-array-member-p val)))
    (booleanp yes/no))
  :rule-classes :rewrite)

Theorem: flexible-array-member-p-of-value-fix-val

(defthm flexible-array-member-p-of-value-fix-val
  (equal (flexible-array-member-p (value-fix val))
         (flexible-array-member-p val)))

Theorem: flexible-array-member-p-value-equiv-congruence-on-val

(defthm flexible-array-member-p-value-equiv-congruence-on-val
  (implies (value-equiv val val-equiv)
           (equal (flexible-array-member-p val)
                  (flexible-array-member-p val-equiv)))
  :rule-classes :congruence)