• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
    • Sv
    • Vwsim
    • Fgl
    • 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-pass1

Signature

(vl-design-bindelim-pass1 x) → (mv new-x delta)

Arguments

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

Returns

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

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

Definitions and Theorems

Function: vl-design-bindelim-pass1

(defun vl-design-bindelim-pass1 (x)
 (declare (xargs :guard (vl-design-p x)))
 (let ((__function__ 'vl-design-bindelim-pass1))
  (declare (ignorable __function__))
  (b* (((vl-design x) (vl-design-fix x))
       (ss (vl-scopestack-init x))
       (itbl (vl-bindelim-create-insttable x))
       (delta nil)
       ((mv new-mods delta)
        (vl-modulelist-bindelim x.mods ss itbl delta))
       ((mv new-ifs delta)
        (vl-interfacelist-bindelim x.interfaces ss itbl delta))
       (warnings x.warnings)
       ((mv warnings new-binds delta)
        (vl-bindelim-bindlist x.binds ss x itbl delta nil warnings))
       (new-x (change-vl-design x
                                :mods new-mods
                                :interfaces new-ifs
                                :binds new-binds
                                :warnings warnings))
       (delta (fast-alist-clean delta)))
    (fast-alist-free itbl)
    (mv new-x delta))))

Theorem: vl-design-p-of-vl-design-bindelim-pass1.new-x

(defthm vl-design-p-of-vl-design-bindelim-pass1.new-x
  (b* (((mv ?new-x ?delta)
        (vl-design-bindelim-pass1 x)))
    (vl-design-p new-x))
  :rule-classes :rewrite)

Theorem: vl-binddelta-p-of-vl-design-bindelim-pass1.delta

(defthm vl-binddelta-p-of-vl-design-bindelim-pass1.delta
  (b* (((mv ?new-x ?delta)
        (vl-design-bindelim-pass1 x)))
    (vl-binddelta-p delta))
  :rule-classes :rewrite)

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

(defthm vl-design-bindelim-pass1-of-vl-design-fix-x
  (equal (vl-design-bindelim-pass1 (vl-design-fix x))
         (vl-design-bindelim-pass1 x)))

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

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