• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
    • Sv
      • Svex-stvs
      • Svex-decomposition-methodology
      • Sv-versus-esim
      • Svex-decomp
      • Svex-compose-dfs
      • Svex-compilation
      • Moddb
      • Svmods
      • Svstmt
      • Sv-tutorial
      • Expressions
        • Rewriting
          • Svex-rewrite
          • Svexlist-rewrite-nrev
          • Svex-args-apply-masks
          • 4veclist-quote
          • Svex-simpconfig-p
          • Svex-rewrite-memo-correct
          • Svex-alist-maybe-rewrite-fixpoint
          • Svexlist-compute-masks
          • Svexlist-rewrite-under-masks
          • Svex-alist-rewrite-fixpoint
          • Svexlist-maybe-rewrite-fixpoint
          • Svexlist-rewrite-fixpoint
          • Svexlist-mask-acons
          • Svexlist-mask-alist/toposort
          • Svex-call-simp
          • Svex-alist-compose
          • Svexlist-rewrite-top
          • Svex-alist-subst
          • Svex-alist-compose-rw
          • Svex-argmasks-lookup
          • Svex-alist-subst-rw
          • Svexlist-mask-acons-rev
          • Svex-mask-lookup
          • Svex-mask-acons
          • Svexlist-mask-alist
          • Svex-alist-rewrite-top
          • Constraintlist-compose
          • Svex-substconfig
          • Svex-simpconfig-fix
          • Svex-subst
          • Svex-rewrite-memo-vars-ok
          • Svex-norm-call
          • Svex-3value-mask
          • Svexlist-count-calls-aux
          • Svex-mask-alist-keys
          • Rewriter-tracing
          • Svex-rewrite-top
          • Svexlist-maskfree-rewrite-nrev
          • Svexlist-multirefs-top
          • Svexlist-count-calls
          • Svex-unify
          • Svexlist-toposort-p
          • Svexlist-maskfree-rewrite-top
          • Svex-alist-compose-nrev
          • Rewriting-concatenations
          • Svex-svex-memo
          • Svex-mask-alist
          • Svex-alist-subst-nrev
          • Svex-simpconfig-fix!
          • Svex-rewrite-rules
        • Svex
        • Bit-blasting
        • Functions
        • 4vmask
        • Why-infinite-width
        • Svex-vars
        • Evaluation
        • Values
      • Symbolic-test-vector
      • Vl-to-svex
    • Vwsim
    • Fgl
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Rewriting

Svexlist-mask-acons

Signature

(svexlist-mask-acons x mask al) → al

Arguments

x — Guard (svexlist-p x).

mask — Guard (4vmask-p mask).

al — Guard (svex-mask-alist-p al).

Returns

al — Type (svex-mask-alist-p al).

Definitions and Theorems

Function: svexlist-mask-acons

(defun svexlist-mask-acons (x mask al)
  (declare (xargs :guard (and (svexlist-p x)
                              (4vmask-p mask)
                              (svex-mask-alist-p al))))
  (let ((__function__ 'svexlist-mask-acons))
    (declare (ignorable __function__))
    (mbe :logic
         (if (atom x)
             (mbe :logic (svex-mask-alist-fix al)
                  :exec al)
           (svex-mask-acons (car x)
                            mask
                            (svexlist-mask-acons (cdr x) mask al)))
         :exec (svexlist-mask-acons-rev (rev x)
                                        mask al))))

Theorem: svex-mask-alist-p-of-svexlist-mask-acons

(defthm svex-mask-alist-p-of-svexlist-mask-acons
  (b* ((al (svexlist-mask-acons x mask al)))
    (svex-mask-alist-p al))
  :rule-classes :rewrite)

Theorem: svexlist-mask-acons-of-svexlist-fix-x

(defthm svexlist-mask-acons-of-svexlist-fix-x
  (equal (svexlist-mask-acons (svexlist-fix x)
                              mask al)
         (svexlist-mask-acons x mask al)))

Theorem: svexlist-mask-acons-svexlist-equiv-congruence-on-x

(defthm svexlist-mask-acons-svexlist-equiv-congruence-on-x
  (implies (svexlist-equiv x x-equiv)
           (equal (svexlist-mask-acons x mask al)
                  (svexlist-mask-acons x-equiv mask al)))
  :rule-classes :congruence)

Theorem: svexlist-mask-acons-of-4vmask-fix-mask

(defthm svexlist-mask-acons-of-4vmask-fix-mask
  (equal (svexlist-mask-acons x (4vmask-fix mask)
                              al)
         (svexlist-mask-acons x mask al)))

Theorem: svexlist-mask-acons-4vmask-equiv-congruence-on-mask

(defthm svexlist-mask-acons-4vmask-equiv-congruence-on-mask
  (implies (4vmask-equiv mask mask-equiv)
           (equal (svexlist-mask-acons x mask al)
                  (svexlist-mask-acons x mask-equiv al)))
  :rule-classes :congruence)

Theorem: svexlist-mask-acons-of-svex-mask-alist-fix-al

(defthm svexlist-mask-acons-of-svex-mask-alist-fix-al
  (equal (svexlist-mask-acons x mask (svex-mask-alist-fix al))
         (svexlist-mask-acons x mask al)))

Theorem: svexlist-mask-acons-svex-mask-alist-equiv-congruence-on-al

(defthm svexlist-mask-acons-svex-mask-alist-equiv-congruence-on-al
  (implies (svex-mask-alist-equiv al al-equiv)
           (equal (svexlist-mask-acons x mask al)
                  (svexlist-mask-acons x mask al-equiv)))
  :rule-classes :congruence)

Theorem: lookup-in-svexlist-mask-acons

(defthm lookup-in-svexlist-mask-acons
  (equal (svex-mask-lookup k (svexlist-mask-acons x mask al))
         (if (member (svex-fix k) (svexlist-fix x))
             (4vmask-fix mask)
           (svex-mask-lookup k al))))

Theorem: svex-mask-alist-keys-of-svexlist-mask-acons

(defthm svex-mask-alist-keys-of-svexlist-mask-acons
  (equal (svex-mask-alist-keys (svexlist-mask-acons x mask al))
         (append (svexlist-fix x)
                 (svex-mask-alist-keys al))))