• Top
    • Documentation
    • Books
    • Boolean-reasoning
      • Ipasir
      • Aignet
        • Base-api
        • Aignet-construction
        • Representation
        • Aignet-copy-init
        • Aignet-simplify-with-tracking
        • Aignet-simplify-marked-with-tracking
        • Aignet-cnf
        • Aignet-simplify-marked
        • Aignet-complete-copy
        • Aignet-transforms
          • Aignet-output-ranges
          • Aignet-comb-transforms
            • Fraig
            • Parametrize
            • Observability-fix
            • Constprop
            • Apply-m-assumption-n-output-output-transform-default
            • Balance
            • Apply-n-output-comb-transform-default
            • Apply-comb-transform-default
            • Obs-constprop
            • Rewrite
            • Comb-transform
              • Fraig-config
              • Comb-transform-p
              • Comb-transform-fix
              • Rewrite-config
              • Obs-constprop-config
              • Observability-config
              • Constprop-config
              • Abc-comb-simp-config
              • M-assum-n-output-observability-config
              • Comb-transform-equiv
              • Snapshot-config
              • Prune-config
                • Prune-config-fix
                • Prune-config-equiv
                  • Make-prune-config
                  • Prune-config->gatesimp
                  • Change-prune-config
                  • Prune-config-p
              • Abc-comb-simplify
              • Prune
              • Rewrite!
              • M-assumption-n-output-comb-transform->name
              • N-output-comb-transform->name
              • Comb-transform->name
              • N-output-comb-transformlist
              • M-assumption-n-output-comb-transformlist
              • Comb-transformlist
              • Apply-comb-transform
            • Aignet-m-assumption-n-output-transforms
            • Aignet-n-output-comb-transforms
          • Aignet-eval
          • Semantics
          • Aignet-read-aiger
          • Aignet-write-aiger
          • Aignet-abc-interface
          • Utilities
        • Aig
        • Satlink
        • Truth
        • Ubdds
        • Bdd
        • Faig
        • Bed
        • 4v
      • Projects
      • Debugging
      • Std
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Prune-config

    Prune-config-equiv

    Basic equivalence relation for prune-config structures.

    Definitions and Theorems

    Function: prune-config-equiv$inline

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

    Theorem: prune-config-equiv-is-an-equivalence

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

    Theorem: prune-config-equiv-implies-equal-prune-config-fix-1

    (defthm prune-config-equiv-implies-equal-prune-config-fix-1
      (implies (prune-config-equiv x x-equiv)
               (equal (prune-config-fix x)
                      (prune-config-fix x-equiv)))
      :rule-classes (:congruence))

    Theorem: prune-config-fix-under-prune-config-equiv

    (defthm prune-config-fix-under-prune-config-equiv
      (prune-config-equiv (prune-config-fix x)
                          x)
      :rule-classes (:rewrite :rewrite-quoted-constant))

    Theorem: equal-of-prune-config-fix-1-forward-to-prune-config-equiv

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

    Theorem: equal-of-prune-config-fix-2-forward-to-prune-config-equiv

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

    Theorem: prune-config-equiv-of-prune-config-fix-1-forward

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

    Theorem: prune-config-equiv-of-prune-config-fix-2-forward

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