• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Community
  • 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
        • Bit-blasting
        • Functions
        • 4vmask
          • Svex-argmasks
          • 4vmask-p
          • 4vmask-subsumes
          • 4veclist-mask
          • 4vec-mask-to-zero
          • 4vec-mask
          • 4vmasklist-subsumes
          • 4vmask-union
          • 4vec-mask?
          • 4vmask-equiv
          • 4vmask-fix
          • 4vmask-alist
            • 4vmask-alist-p
            • 4vmask-alist-fix
            • 4vmask-acons
            • 4vmask-assoc
            • 4vmask-alist-equiv
          • 4veclist-mask?
          • 4vmasklist
          • 4vmask-empty
        • Why-infinite-width
        • Svex-vars
        • Evaluation
        • Values
      • Symbolic-test-vector
      • Vl-to-svex
    • Fgl
    • Vwsim
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• 4vmask-alist

4vmask-assoc

Slow function to look up the 4vmask for a variable in a 4vmask-alist, with proper fty-discipline.

Signature

(4vmask-assoc var alist) → mask

Arguments

var — Variable to look up.
    Guard (svar-p var).

alist — Alist to look it up in.
    Guard (4vmask-alist-p alist).

Returns

mask — Mask for this variable.
    Type (4vmask-p mask).

Any unbound variables are treated as having mask -1, i.e., all bits are considered relevant.

Definitions and Theorems

Function: 4vmask-assoc

(defun 4vmask-assoc (var alist)
 (declare (xargs :guard (and (svar-p var)
                             (4vmask-alist-p alist))))
 (let ((__function__ '4vmask-assoc))
  (declare (ignorable __function__))
  (mbe
      :logic
      (4vmask-fix (cdr (hons-assoc-equal (svar-fix var)
                                         (4vmask-alist-fix alist))))
      :exec
      (let ((look (assoc-equal (svar-fix var)
                               (4vmask-alist-fix alist))))
        (if look (cdr look) -1)))))

Theorem: 4vmask-p-of-4vmask-assoc

(defthm 4vmask-p-of-4vmask-assoc
  (b* ((mask (4vmask-assoc var alist)))
    (4vmask-p mask))
  :rule-classes :type-prescription)

Theorem: 4vmask-assoc-of-svar-fix-var

(defthm 4vmask-assoc-of-svar-fix-var
  (equal (4vmask-assoc (svar-fix var) alist)
         (4vmask-assoc var alist)))

Theorem: 4vmask-assoc-svar-equiv-congruence-on-var

(defthm 4vmask-assoc-svar-equiv-congruence-on-var
  (implies (svar-equiv var var-equiv)
           (equal (4vmask-assoc var alist)
                  (4vmask-assoc var-equiv alist)))
  :rule-classes :congruence)

Theorem: 4vmask-assoc-of-4vmask-alist-fix-alist

(defthm 4vmask-assoc-of-4vmask-alist-fix-alist
  (equal (4vmask-assoc var (4vmask-alist-fix alist))
         (4vmask-assoc var alist)))

Theorem: 4vmask-assoc-4vmask-alist-equiv-congruence-on-alist

(defthm 4vmask-assoc-4vmask-alist-equiv-congruence-on-alist
  (implies (4vmask-alist-equiv alist alist-equiv)
           (equal (4vmask-assoc var alist)
                  (4vmask-assoc var alist-equiv)))
  :rule-classes :congruence)

Theorem: 4vmask-assoc-of-nil

(defthm 4vmask-assoc-of-nil
  (equal (4vmask-assoc var nil) -1))