• 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
      • Symbolic-test-vector
      • Vl-to-svex
        • Vl-to-sv
        • Vl-design->sv-design
          • Vl-simpconfig
            • Vl-simpconfig-p
            • Make-vl-simpconfig
            • Vl-simpconfig-fix
            • Change-vl-simpconfig
            • Vl-simpconfig-equiv
            • Vl-simpconfig->suppress-fatal-warning-types
            • Vl-simpconfig->user-paramsettings-mode
            • Vl-simpconfig->unparam-bad-instance-fatalp
            • Vl-simpconfig->name-without-default-params
            • Vl-simpconfig->user-paramsettings
            • Vl-simpconfig->uniquecase-constraints
            • Vl-simpconfig->uniquecase-conservative
            • Vl-simpconfig->sv-simplify-verbosep
            • Vl-simpconfig->post-elab-topmods
            • Vl-simpconfig->nb-latch-delay-hack
            • Vl-simpconfig->sv-include-atts
            • Vl-simpconfig->pre-elab-topmods
            • Vl-simpconfig->pre-elab-filter
            • Vl-simpconfig->post-elab-filter
            • Vl-simpconfig->defer-argresolve
            • Vl-simpconfig->already-annotated
            • Vl-simpconfig->allow-bad-topmods
            • Vl-simpconfig->unroll-limit
            • Vl-simpconfig->sv-simplify
            • Vl-simpconfig->problem-mods
            • Vl-simpconfig->compress-p
            • Vl-simpconfig->sc-limit
            • Vl-simpconfig->elab-limit
            • Vl-simpconfig->enum-constraints
            • Vl-simpconfig->enum-fixups
          • Vl-hierarchy-sv-translation
          • Vl-expr-svex-translation
          • Vl-design->svex-modalist
          • Vl-svstmt
        • Vl-to-sv-main
        • Vl-simplify-sv
        • Vl-user-paramsettings->unparam-names
        • Vl-user-paramsettings->modnames
    • Vwsim
    • Fgl
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Math
  • Testing-utilities

• Vl-simpconfig

Vl-simpconfig-fix

Fixing function for vl-simpconfig structures.

Signature

(vl-simpconfig-fix x) → new-x

Arguments

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

Returns

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

Definitions and Theorems

Function: vl-simpconfig-fix$inline

(defun vl-simpconfig-fix$inline (x)
 (declare (xargs :guard (vl-simpconfig-p x)))
 (let ((__function__ 'vl-simpconfig-fix))
  (declare (ignorable __function__))
  (mbe
   :logic
   (b*
    ((compress-p (acl2::bool-fix (std::da-nth 0 (cdr x))))
     (problem-mods (string-list-fix (std::da-nth 1 (cdr x))))
     (already-annotated (acl2::bool-fix (std::da-nth 2 (cdr x))))
     (unroll-limit (nfix (std::da-nth 3 (cdr x))))
     (sc-limit (nfix (std::da-nth 4 (cdr x))))
     (elab-limit (nfix (std::da-nth 5 (cdr x))))
     (uniquecase-conservative (nfix (std::da-nth 6 (cdr x))))
     (uniquecase-constraints
          (acl2::bool-fix (std::da-nth 7 (cdr x))))
     (enum-constraints (std::da-nth 8 (cdr x)))
     (enum-fixups (std::da-nth 9 (cdr x)))
     (sv-simplify (acl2::bool-fix (std::da-nth 10 (cdr x))))
     (sv-simplify-verbosep
          (acl2::bool-fix (std::da-nth 11 (cdr x))))
     (sv-include-atts (string-list-fix (std::da-nth 12 (cdr x))))
     (nb-latch-delay-hack (acl2::bool-fix (std::da-nth 13 (cdr x))))
     (name-without-default-params
          (acl2::bool-fix (std::da-nth 14 (cdr x))))
     (unparam-bad-instance-fatalp
          (acl2::bool-fix (std::da-nth 15 (cdr x))))
     (defer-argresolve (acl2::bool-fix (std::da-nth 16 (cdr x))))
     (suppress-fatal-warning-types
          (acl2::symbol-list-fix (std::da-nth 17 (cdr x))))
     (user-paramsettings
          (vl-user-paramsettings-fix (std::da-nth 18 (cdr x))))
     (user-paramsettings-mode
          (vl-user-paramsettings-mode-fix (std::da-nth 19 (cdr x))))
     (pre-elab-topmods (string-list-fix (std::da-nth 20 (cdr x))))
     (pre-elab-filter (acl2::bool-fix (std::da-nth 21 (cdr x))))
     (post-elab-topmods (string-list-fix (std::da-nth 22 (cdr x))))
     (post-elab-filter (acl2::bool-fix (std::da-nth 23 (cdr x))))
     (allow-bad-topmods (acl2::bool-fix (std::da-nth 24 (cdr x)))))
    (cons
       :vl-simpconfig (list compress-p problem-mods
                            already-annotated unroll-limit sc-limit
                            elab-limit uniquecase-conservative
                            uniquecase-constraints
                            enum-constraints enum-fixups
                            sv-simplify sv-simplify-verbosep
                            sv-include-atts nb-latch-delay-hack
                            name-without-default-params
                            unparam-bad-instance-fatalp
                            defer-argresolve
                            suppress-fatal-warning-types
                            user-paramsettings
                            user-paramsettings-mode pre-elab-topmods
                            pre-elab-filter post-elab-topmods
                            post-elab-filter allow-bad-topmods)))
   :exec x)))

Theorem: vl-simpconfig-p-of-vl-simpconfig-fix

(defthm vl-simpconfig-p-of-vl-simpconfig-fix
  (b* ((new-x (vl-simpconfig-fix$inline x)))
    (vl-simpconfig-p new-x))
  :rule-classes :rewrite)

Theorem: vl-simpconfig-fix-when-vl-simpconfig-p

(defthm vl-simpconfig-fix-when-vl-simpconfig-p
  (implies (vl-simpconfig-p x)
           (equal (vl-simpconfig-fix x) x)))

Function: vl-simpconfig-equiv$inline

(defun vl-simpconfig-equiv$inline (acl2::x acl2::y)
  (declare (xargs :guard (and (vl-simpconfig-p acl2::x)
                              (vl-simpconfig-p acl2::y))))
  (equal (vl-simpconfig-fix acl2::x)
         (vl-simpconfig-fix acl2::y)))

Theorem: vl-simpconfig-equiv-is-an-equivalence

(defthm vl-simpconfig-equiv-is-an-equivalence
  (and (booleanp (vl-simpconfig-equiv x y))
       (vl-simpconfig-equiv x x)
       (implies (vl-simpconfig-equiv x y)
                (vl-simpconfig-equiv y x))
       (implies (and (vl-simpconfig-equiv x y)
                     (vl-simpconfig-equiv y z))
                (vl-simpconfig-equiv x z)))
  :rule-classes (:equivalence))

Theorem: vl-simpconfig-equiv-implies-equal-vl-simpconfig-fix-1

(defthm vl-simpconfig-equiv-implies-equal-vl-simpconfig-fix-1
  (implies (vl-simpconfig-equiv acl2::x x-equiv)
           (equal (vl-simpconfig-fix acl2::x)
                  (vl-simpconfig-fix x-equiv)))
  :rule-classes (:congruence))

Theorem: vl-simpconfig-fix-under-vl-simpconfig-equiv

(defthm vl-simpconfig-fix-under-vl-simpconfig-equiv
  (vl-simpconfig-equiv (vl-simpconfig-fix acl2::x)
                       acl2::x)
  :rule-classes (:rewrite :rewrite-quoted-constant))

Theorem: equal-of-vl-simpconfig-fix-1-forward-to-vl-simpconfig-equiv

(defthm equal-of-vl-simpconfig-fix-1-forward-to-vl-simpconfig-equiv
  (implies (equal (vl-simpconfig-fix acl2::x)
                  acl2::y)
           (vl-simpconfig-equiv acl2::x acl2::y))
  :rule-classes :forward-chaining)

Theorem: equal-of-vl-simpconfig-fix-2-forward-to-vl-simpconfig-equiv

(defthm equal-of-vl-simpconfig-fix-2-forward-to-vl-simpconfig-equiv
  (implies (equal acl2::x (vl-simpconfig-fix acl2::y))
           (vl-simpconfig-equiv acl2::x acl2::y))
  :rule-classes :forward-chaining)

Theorem: vl-simpconfig-equiv-of-vl-simpconfig-fix-1-forward

(defthm vl-simpconfig-equiv-of-vl-simpconfig-fix-1-forward
  (implies (vl-simpconfig-equiv (vl-simpconfig-fix acl2::x)
                                acl2::y)
           (vl-simpconfig-equiv acl2::x acl2::y))
  :rule-classes :forward-chaining)

Theorem: vl-simpconfig-equiv-of-vl-simpconfig-fix-2-forward

(defthm vl-simpconfig-equiv-of-vl-simpconfig-fix-2-forward
  (implies (vl-simpconfig-equiv acl2::x (vl-simpconfig-fix acl2::y))
           (vl-simpconfig-equiv acl2::x acl2::y))
  :rule-classes :forward-chaining)