• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
    • Apt
    • Zfc
    • Acre
    • Milawa
    • Smtlink
    • Abnf
    • Vwsim
    • Isar
    • Wp-gen
    • Dimacs-reader
    • Pfcs
    • Legacy-defrstobj
    • C
      • Syntax-for-tools
      • Atc
      • Transformation-tools
      • Language
        • Abstract-syntax
        • Integer-ranges
        • Implementation-environments
        • Dynamic-semantics
        • Static-semantics
        • Grammar
        • Types
        • Integer-formats-definitions
        • Computation-states
        • Portable-ascii-identifiers
        • Values
          • Pointer
          • Member-types-of-member-values
          • Expr-value
          • Member-value-list->value-list
          • Member-value-list->name-list
          • Type-list-of-value-list
          • Type-of-value
          • Stmt-value
          • Value-option
          • Expr-value-option
          • Init-value
          • Value-result
          • Type-of-value-option
          • Value-list-result
          • Stmt-value-result
          • Member-value-list-result
          • Init-value-result
          • Expr-value-result
          • Expr-value-option-result
          • Value-option-result
          • Signed/unsigned-byte-p-of-integer-values
          • Bounds-of-integer-values
          • Value-promoted-arithmeticp
          • Type-option-of-stmt-value
          • Member-type-of-member-value
          • Init-type-of-init-value
          • Value-unsigned-integerp
          • Value-signed-integerp
          • Value-integerp
          • Value-arithmeticp
          • Value-scalarp
          • Value-realp
          • Values/membervalues
        • Integer-operations
        • Object-designators
        • Operations
        • Errors
        • Tag-environments
        • Function-environments
        • Character-sets
        • Flexible-array-member-removal
        • Arithmetic-operations
        • Pointer-operations
        • Real-operations
        • Array-operations
        • Scalar-operations
        • Structure-operations
      • Representation
      • Insertion-sort
      • Pack
    • Proof-checker-array
    • Soft
    • Farray
    • Rp-rewriter
    • Instant-runoff-voting
    • Imp-language
    • Sidekick
    • Ethereum
    • Leftist-trees
    • Java
    • Riscv
    • Taspi
    • Bitcoin
    • Zcash
    • Des
    • X86isa
    • Sha-2
    • Yul
    • Proof-checker-itp13
    • Regex
    • ACL2-programming-language
    • Json
    • Jfkr
    • Equational
    • Cryptography
    • Axe
    • Poseidon
    • Where-do-i-place-my-book
    • Aleo
    • Bigmems
    • Builtins
    • Execloader
    • Solidity
    • Paco
    • Concurrent-programs
    • Bls12-377-curves
  • Debugging
  • Community
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• Values

Member-value-list->name-list

Lift member-value->name to lists.

Signature

(member-value-list->name-list x) → names

Returns

names — Type (ident-listp names).

This is an ordinary std::defprojection.

Definitions and Theorems

Function: member-value-list->name-list-exec

(defun member-value-list->name-list-exec (x acc)
  (declare (xargs :guard (member-value-listp x)))
  (if (consp x)
      (member-value-list->name-list-exec
           (cdr x)
           (cons (member-value->name (car x)) acc))
    acc))

Function: member-value-list->name-list-nrev

(defun member-value-list->name-list-nrev (x acl2::nrev)
  (declare (xargs :stobjs (acl2::nrev)))
  (declare (xargs :guard (member-value-listp x)))
  (if (atom x)
      (acl2::nrev-fix acl2::nrev)
    (let ((acl2::nrev (acl2::nrev-push (member-value->name (car x))
                                       acl2::nrev)))
      (member-value-list->name-list-nrev (cdr x)
                                         acl2::nrev))))

Function: member-value-list->name-list

(defun member-value-list->name-list (x)
  (declare (xargs :guard (member-value-listp x)))
  (mbe :logic
       (if (consp x)
           (cons (member-value->name (car x))
                 (member-value-list->name-list (cdr x)))
         nil)
       :exec
       (if (atom x)
           nil
         (acl2::with-local-nrev
              (member-value-list->name-list-nrev x acl2::nrev)))))

Theorem: ident-listp-of-member-value-list->name-list

(defthm ident-listp-of-member-value-list->name-list
  (b* ((names (member-value-list->name-list x)))
    (ident-listp names))
  :rule-classes :rewrite)

Theorem: member-value-list->name-list-of-take

(defthm member-value-list->name-list-of-take
  (implies
       (<= (nfix acl2::n) (len acl2::x))
       (equal (member-value-list->name-list (take acl2::n acl2::x))
              (take acl2::n
                    (member-value-list->name-list acl2::x))))
  :rule-classes ((:rewrite)))

Theorem: set-equiv-congruence-over-member-value-list->name-list

(defthm set-equiv-congruence-over-member-value-list->name-list
  (implies (set-equiv acl2::x acl2::y)
           (set-equiv (member-value-list->name-list acl2::x)
                      (member-value-list->name-list acl2::y)))
  :rule-classes ((:congruence)))

Theorem: subsetp-of-member-value-list->name-list-when-subsetp

(defthm subsetp-of-member-value-list->name-list-when-subsetp
  (implies (subsetp acl2::x acl2::y)
           (subsetp (member-value-list->name-list acl2::x)
                    (member-value-list->name-list acl2::y)))
  :rule-classes ((:rewrite)))

Theorem: member-of-member-value->name-in-member-value-list->name-list

(defthm member-of-member-value->name-in-member-value-list->name-list
  (implies
       (common-lisp::member acl2::k acl2::x)
       (common-lisp::member (member-value->name acl2::k)
                            (member-value-list->name-list acl2::x)))
  :rule-classes ((:rewrite)))

Theorem: member-value-list->name-list-nrev-removal

(defthm member-value-list->name-list-nrev-removal
  (equal (member-value-list->name-list-nrev acl2::x acl2::nrev)
         (append acl2::nrev
                 (member-value-list->name-list acl2::x)))
  :rule-classes ((:rewrite)))

Theorem: member-value-list->name-list-exec-removal

(defthm member-value-list->name-list-exec-removal
  (equal (member-value-list->name-list-exec acl2::x acl2::acc)
         (revappend (member-value-list->name-list acl2::x)
                    acl2::acc))
  :rule-classes ((:rewrite)))

Theorem: member-value-list->name-list-of-rev

(defthm member-value-list->name-list-of-rev
  (equal (member-value-list->name-list (rev acl2::x))
         (rev (member-value-list->name-list acl2::x)))
  :rule-classes ((:rewrite)))

Theorem: member-value-list->name-list-of-list-fix

(defthm member-value-list->name-list-of-list-fix
  (equal (member-value-list->name-list (list-fix acl2::x))
         (member-value-list->name-list acl2::x))
  :rule-classes ((:rewrite)))

Theorem: member-value-list->name-list-of-append

(defthm member-value-list->name-list-of-append
  (equal (member-value-list->name-list (append acl2::a acl2::b))
         (append (member-value-list->name-list acl2::a)
                 (member-value-list->name-list acl2::b)))
  :rule-classes ((:rewrite)))

Theorem: cdr-of-member-value-list->name-list

(defthm cdr-of-member-value-list->name-list
  (equal (cdr (member-value-list->name-list acl2::x))
         (member-value-list->name-list (cdr acl2::x)))
  :rule-classes ((:rewrite)))

Theorem: car-of-member-value-list->name-list

(defthm car-of-member-value-list->name-list
  (equal (car (member-value-list->name-list acl2::x))
         (and (consp acl2::x)
              (member-value->name (car acl2::x))))
  :rule-classes ((:rewrite)))

Theorem: member-value-list->name-list-under-iff

(defthm member-value-list->name-list-under-iff
  (iff (member-value-list->name-list acl2::x)
       (consp acl2::x))
  :rule-classes ((:rewrite)))

Theorem: consp-of-member-value-list->name-list

(defthm consp-of-member-value-list->name-list
  (equal (consp (member-value-list->name-list acl2::x))
         (consp acl2::x))
  :rule-classes ((:rewrite)))

Theorem: len-of-member-value-list->name-list

(defthm len-of-member-value-list->name-list
  (equal (len (member-value-list->name-list acl2::x))
         (len acl2::x))
  :rule-classes ((:rewrite)))

Theorem: true-listp-of-member-value-list->name-list

(defthm true-listp-of-member-value-list->name-list
  (true-listp (member-value-list->name-list acl2::x))
  :rule-classes :type-prescription)

Theorem: member-value-list->name-list-when-not-consp

(defthm member-value-list->name-list-when-not-consp
  (implies (not (consp acl2::x))
           (equal (member-value-list->name-list acl2::x)
                  nil))
  :rule-classes ((:rewrite)))

Theorem: member-value-list->name-list-of-cons

(defthm member-value-list->name-list-of-cons
  (equal (member-value-list->name-list (cons acl2::a acl2::b))
         (cons (member-value->name acl2::a)
               (member-value-list->name-list acl2::b)))
  :rule-classes ((:rewrite)))

Theorem: member-value-list->name-list-of-member-value-list-fix-x

(defthm member-value-list->name-list-of-member-value-list-fix-x
  (equal (member-value-list->name-list (member-value-list-fix x))
         (member-value-list->name-list x)))

Theorem: member-value-list->name-list-member-value-list-equiv-congruence-on-x

(defthm
 member-value-list->name-list-member-value-list-equiv-congruence-on-x
 (implies (member-value-list-equiv x x-equiv)
          (equal (member-value-list->name-list x)
                 (member-value-list->name-list x-equiv)))
 :rule-classes :congruence)