• 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
            • Observability-fix-hyps/concls
            • Observability-fix-input-copies
            • Observability-fixed-inputs
            • Observability-fixed-regs
            • Observability-fix-hyp/concl
            • Observability-fix-lit
            • M-assum-n-output-observability
            • Observability-fix-outs
            • Observability-fix-nxsts
            • Observability-split-supergate-aux
            • Observability-fix-core
            • Observability-split-supergate
            • Aignet-build-wide-and
            • Observability-config
            • Observability-fix!
            • Observability-size-check
            • M-assum-n-output-observability-config
          • 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
          • 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

• Observability-fix

Observability-fix!

Like observability-fix, but overwrites the original network instead of returning a new one.

Signature

(observability-fix! aignet config state) 
  → 
(mv new-aignet new-state)

Arguments

aignet — Input aignet -- will be replaced with transformation result.

config — Guard (observability-config-p config).

Definitions and Theorems

Function: observability-fix!

(defun observability-fix! (aignet config state)
 (declare (xargs :stobjs (aignet state)))
 (declare (xargs :guard (observability-config-p config)))
 (let ((__function__ 'observability-fix!))
  (declare (ignorable __function__))
  (b*
   (((local-stobjs aignet-tmp)
     (mv aignet aignet-tmp state))
    ((mv aignet-tmp aignet state)
     (observability-fix-core aignet aignet-tmp config state))
    (aignet
       (aignet-prune-comb aignet-tmp aignet
                          (observability-config->gatesimp config))))
   (mv aignet aignet-tmp state))))

Theorem: num-ins-of-observability-fix!

(defthm num-ins-of-observability-fix!
  (b* (((mv ?new-aignet ?new-state)
        (observability-fix! aignet config state)))
    (equal (stype-count :pi new-aignet)
           (stype-count :pi aignet))))

Theorem: num-regs-of-observability-fix!

(defthm num-regs-of-observability-fix!
  (b* (((mv ?new-aignet ?new-state)
        (observability-fix! aignet config state)))
    (equal (stype-count :reg new-aignet)
           (stype-count :reg aignet))))

Theorem: num-outs-of-observability-fix!

(defthm num-outs-of-observability-fix!
  (b* (((mv ?new-aignet ?new-state)
        (observability-fix! aignet config state)))
    (equal (stype-count :po new-aignet)
           (stype-count :po aignet))))

Theorem: observability-fix!-comb-equivalent

(defthm observability-fix!-comb-equivalent
  (b* (((mv ?new-aignet ?new-state)
        (observability-fix! aignet config state)))
    (comb-equiv new-aignet aignet)))

Theorem: w-state-of-observability-fix!

(defthm w-state-of-observability-fix!
  (b* (((mv ?new-aignet ?new-state)
        (observability-fix! aignet config state)))
    (equal (w new-state) (w state))))

Theorem: observability-fix!-of-node-list-fix-aignet

(defthm observability-fix!-of-node-list-fix-aignet
  (equal (observability-fix! (node-list-fix aignet)
                             config state)
         (observability-fix! aignet config state)))

Theorem: observability-fix!-node-list-equiv-congruence-on-aignet

(defthm observability-fix!-node-list-equiv-congruence-on-aignet
  (implies (node-list-equiv aignet aignet-equiv)
           (equal (observability-fix! aignet config state)
                  (observability-fix! aignet-equiv config state)))
  :rule-classes :congruence)

Theorem: observability-fix!-of-observability-config-fix-config

(defthm observability-fix!-of-observability-config-fix-config
 (equal (observability-fix! aignet (observability-config-fix config)
                            state)
        (observability-fix! aignet config state)))

Theorem: observability-fix!-observability-config-equiv-congruence-on-config

(defthm
 observability-fix!-observability-config-equiv-congruence-on-config
 (implies (observability-config-equiv config config-equiv)
          (equal (observability-fix! aignet config state)
                 (observability-fix! aignet config-equiv state)))
 :rule-classes :congruence)