• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Community
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
      • Warnings
      • Primitives
      • Use-set
      • Syntax
      • Getting-started
      • Utilities
        • Name-database
          • Vl-namedb
          • Vl-namedb-plain-name
          • Vl-namedb-pset-fix
          • Vl-namedb-plain-names
          • Vl-namedb-indexed-name
          • Vl-namedb-pmap-fix
          • Vl-unlike-any-prefix-p
          • Vl-namedb-pmap-okp
          • Vl-namedb-allnames
          • Vl-starting-namedb
          • Vl-pgenstr-highest
          • Vl-namedb-pset-okp
          • Vl-pgenstr-p
          • Vl-pgenstr->val
          • Vl-free-namedb
          • Vl-namedb-plain-name-quiet
          • Vl-pgenstr-highest-of-alist-keys
          • Vl-pgenstr
          • Vl-empty-namedb
          • Vl-namedb-nameset
          • Vl-unlike-any-prefix-p-of-alist-keys
          • Vl-namedb-prefixmap
        • Vl-gc
        • Make-lookup-alist
        • Symbol-list-names
        • Html-encoding
        • Nats-from
        • Redundant-mergesort
        • Longest-common-prefix
        • Vl-edition-p
        • Nat-listp
        • Vl-plural-p
        • Vl-remove-keys
        • Sum-nats
        • Vl-maybe-nat-listp
        • Url-encoding
        • Fast-memberp
        • Vl-string-keys-p
        • Max-nats
        • Longest-common-prefix-list
        • Character-list-listp
        • Vl-string-list-values-p
        • Vl-character-list-list-values-p
        • Remove-from-alist
        • Prefix-of-eachp
        • Vl-maybe-string-listp
        • Pos-listp
        • Vl-string-values-p
        • String-list-listp
        • True-list-listp
        • Symbol-list-listp
        • Explode-list
        • All-have-len
        • Min-nats
        • Debuggable-and
        • Vl-starname
        • Remove-equal-without-guard
        • String-fix
        • Longer-than-p
        • Clean-alist
        • Anyp
        • Or*
        • Fast-alist-free-each-alist-val
        • And*
        • Not*
        • Free-list-of-fast-alists
        • *nls*
      • Loader
      • Transforms
      • Lint
      • Mlib
      • Server
      • Kit
      • Printer
      • Esim-vl
      • Well-formedness
    • Sv
    • Fgl
    • Vwsim
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Name-database

Vl-namedb-pset-fix

Signature

(vl-namedb-pset-fix names pmap pset) → pset-fix

Arguments

names — Guard (vl-namedb-nameset-p names).

pmap — Guard (vl-namedb-prefixmap-p pmap).

pset — Guard (vl-namedb-nameset-p pset).

Returns

pset-fix — Type (and (vl-namedb-nameset-p pset-fix) (vl-namedb-pset-okp (vl-namedb-pmap-fix names pmap) pset-fix)) .

Definitions and Theorems

Function: vl-namedb-pset-fix$inline

(defun vl-namedb-pset-fix$inline (names pmap pset)
  (declare (xargs :guard (and (vl-namedb-nameset-p names)
                              (vl-namedb-prefixmap-p pmap)
                              (vl-namedb-nameset-p pset))))
  (declare (xargs :guard (and (vl-namedb-pmap-okp names pmap)
                              (vl-namedb-pset-okp pmap pset))))
  (let ((__function__ 'vl-namedb-pset-fix))
    (declare (ignorable __function__))
    (mbe :logic
         (b* ((pmap (vl-namedb-pmap-fix names pmap))
              (pset (vl-namedb-nameset-fix pset)))
           (if (vl-namedb-pset-okp pmap pset)
               pset
             (make-lookup-alist
                  (alist-keys (vl-namedb-prefixmap-fix pmap)))))
         :exec pset)))

Theorem: return-type-of-vl-namedb-pset-fix

(defthm return-type-of-vl-namedb-pset-fix
  (b* ((pset-fix (vl-namedb-pset-fix$inline names pmap pset)))
    (and (vl-namedb-nameset-p pset-fix)
         (vl-namedb-pset-okp (vl-namedb-pmap-fix names pmap)
                             pset-fix)))
  :rule-classes :rewrite)

Theorem: vl-namedb-pset-fix-when-vl-namedb-pset-okp

(defthm vl-namedb-pset-fix-when-vl-namedb-pset-okp
  (implies (and (vl-namedb-pmap-okp names pmap)
                (vl-namedb-pset-okp pmap pset))
           (equal (vl-namedb-pset-fix names pmap pset)
                  (vl-namedb-nameset-fix pset))))

Theorem: vl-namedb-pset-fix$inline-of-vl-namedb-nameset-fix-names

(defthm vl-namedb-pset-fix$inline-of-vl-namedb-nameset-fix-names
  (equal (vl-namedb-pset-fix$inline (vl-namedb-nameset-fix names)
                                    pmap pset)
         (vl-namedb-pset-fix$inline names pmap pset)))

Theorem: vl-namedb-pset-fix$inline-vl-namedb-nameset-equiv-congruence-on-names

(defthm
 vl-namedb-pset-fix$inline-vl-namedb-nameset-equiv-congruence-on-names
 (implies (vl-namedb-nameset-equiv names names-equiv)
          (equal (vl-namedb-pset-fix$inline names pmap pset)
                 (vl-namedb-pset-fix$inline names-equiv pmap pset)))
 :rule-classes :congruence)

Theorem: vl-namedb-pset-fix$inline-of-vl-namedb-prefixmap-fix-pmap

(defthm vl-namedb-pset-fix$inline-of-vl-namedb-prefixmap-fix-pmap
 (equal
     (vl-namedb-pset-fix$inline names (vl-namedb-prefixmap-fix pmap)
                                pset)
     (vl-namedb-pset-fix$inline names pmap pset)))

Theorem: vl-namedb-pset-fix$inline-vl-namedb-prefixmap-equiv-congruence-on-pmap

(defthm
 vl-namedb-pset-fix$inline-vl-namedb-prefixmap-equiv-congruence-on-pmap
 (implies (vl-namedb-prefixmap-equiv pmap pmap-equiv)
          (equal (vl-namedb-pset-fix$inline names pmap pset)
                 (vl-namedb-pset-fix$inline names pmap-equiv pset)))
 :rule-classes :congruence)

Theorem: vl-namedb-pset-fix$inline-of-vl-namedb-nameset-fix-pset

(defthm vl-namedb-pset-fix$inline-of-vl-namedb-nameset-fix-pset
  (equal (vl-namedb-pset-fix$inline
              names pmap (vl-namedb-nameset-fix pset))
         (vl-namedb-pset-fix$inline names pmap pset)))

Theorem: vl-namedb-pset-fix$inline-vl-namedb-nameset-equiv-congruence-on-pset

(defthm
 vl-namedb-pset-fix$inline-vl-namedb-nameset-equiv-congruence-on-pset
 (implies (vl-namedb-nameset-equiv pset pset-equiv)
          (equal (vl-namedb-pset-fix$inline names pmap pset)
                 (vl-namedb-pset-fix$inline names pmap pset-equiv)))
 :rule-classes :congruence)