• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Community
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
    • Sv
    • Fgl
    • Vwsim
    • Vl
      • Syntax
      • Loader
      • Warnings
      • Getting-started
      • Utilities
      • Printer
      • Kit
      • Mlib
      • Transforms
        • Unparameterization
        • Elaborate
        • Addnames
        • Annotate
          • Increment-elim
          • Make-implicit-wires
          • Basic-bind-elim
            • Vl-modulelist-apply-binddelta
            • Vl-interfacelist-apply-binddelta
            • Vl-bindelim-main
            • Vl-bindelim-bindlist
            • Vl-bindelim-find-global-target
            • Vl-interfacelist-bindelim
            • Vl-modulelist-bindelim
            • Vl-interface-bindelim
            • Vl-module-bindelim
            • Vl-bindelim-institem
            • Vl-warn-bindintentlist-undefined
            • Vl-warn-bindintent-undefined
            • Vl-interfacelist-bindelim-insttable
            • Vl-modulelist-bindelim-insttable
            • Vl-warn-binddelta-undefined
            • Vl-interface-bindelim-insttable
            • Vl-interface-apply-binddelta
            • Vl-design-bindelim-pass2
            • Vl-bindelim-modinstlist-add-atts
            • Vl-module-bindelim-insttable
            • Vl-module-apply-binddelta
            • Vl-bindelim-modinst-add-atts
            • Vl-design-bindelim-pass1
            • Vl-bindcontext
            • Vl-bindintent->modinsts
            • Vl-bindelim-insttable
            • Vl-bindintentlist->modinsts
            • Vl-binddelta
            • Vl-design-bindelim
            • Vl-bindelim-institemlist
          • Argresolve
          • Basicsanity
          • Portdecl-sign
          • Enum-names
          • Port-resolve
          • Udp-elim
          • Vl-annotate-design
          • Vl-annotate-module
        • Clean-warnings
        • Eliminitial
        • Custom-transform-hooks
        • Problem-modules
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Basic-bind-elim

Vl-design-bindelim-pass2

Signature

(vl-design-bindelim-pass2 x delta) → new-x

Arguments

x — Guard (vl-design-p x).

delta — Guard (vl-binddelta-p delta).

Returns

new-x — Type (vl-design-p new-x).

Definitions and Theorems

Function: vl-design-bindelim-pass2

(defun vl-design-bindelim-pass2 (x delta)
 (declare (xargs :guard (and (vl-design-p x)
                             (vl-binddelta-p delta))))
 (let ((__function__ 'vl-design-bindelim-pass2))
   (declare (ignorable __function__))
   (b*
    (((vl-design x) (vl-design-fix x))
     (delta (vl-binddelta-fix delta))
     (new-mods (vl-modulelist-apply-binddelta x.mods delta))
     (new-ifs (vl-interfacelist-apply-binddelta x.interfaces delta))
     (ok-names
          (union (mergesort (vl-interfacelist->names x.interfaces))
                 (mergesort (vl-modulelist->names x.mods))))
     (actual-names (mergesort (alist-keys delta)))
     (bad-names (difference actual-names ok-names))
     (bad-delta (acl2::fal-extract bad-names delta))
     (warnings (vl-warn-binddelta-undefined bad-delta x.warnings)))
    (fast-alist-free bad-delta)
    (change-vl-design x
                      :mods new-mods
                      :interfaces new-ifs
                      :warnings warnings))))

Theorem: vl-design-p-of-vl-design-bindelim-pass2

(defthm vl-design-p-of-vl-design-bindelim-pass2
  (b* ((new-x (vl-design-bindelim-pass2 x delta)))
    (vl-design-p new-x))
  :rule-classes :rewrite)

Theorem: vl-design-bindelim-pass2-of-vl-design-fix-x

(defthm vl-design-bindelim-pass2-of-vl-design-fix-x
  (equal (vl-design-bindelim-pass2 (vl-design-fix x)
                                   delta)
         (vl-design-bindelim-pass2 x delta)))

Theorem: vl-design-bindelim-pass2-vl-design-equiv-congruence-on-x

(defthm vl-design-bindelim-pass2-vl-design-equiv-congruence-on-x
  (implies (vl-design-equiv x x-equiv)
           (equal (vl-design-bindelim-pass2 x delta)
                  (vl-design-bindelim-pass2 x-equiv delta)))
  :rule-classes :congruence)

Theorem: vl-design-bindelim-pass2-of-vl-binddelta-fix-delta

(defthm vl-design-bindelim-pass2-of-vl-binddelta-fix-delta
  (equal (vl-design-bindelim-pass2 x (vl-binddelta-fix delta))
         (vl-design-bindelim-pass2 x delta)))

Theorem: vl-design-bindelim-pass2-vl-binddelta-equiv-congruence-on-delta

(defthm
    vl-design-bindelim-pass2-vl-binddelta-equiv-congruence-on-delta
  (implies (vl-binddelta-equiv delta delta-equiv)
           (equal (vl-design-bindelim-pass2 x delta)
                  (vl-design-bindelim-pass2 x delta-equiv)))
  :rule-classes :congruence)