• 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
  • Community
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• Observability-fix

Observability-fix-core

Signature

(observability-fix-core aignet aignet2 config state) 
  → 
(mv new-aignet2 new-aignet new-state)

Arguments

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

Definitions and Theorems

Function: observability-fix-core

(defun observability-fix-core (aignet aignet2 config state)
 (declare (xargs :stobjs (aignet aignet2 state)))
 (declare (xargs :guard (observability-config-p config)))
 (let ((__function__ 'observability-fix-core))
  (declare (ignorable __function__))
  (b* (((local-stobjs copy strash)
        (mv copy strash aignet2 aignet state))
       (aignet2 (aignet-init (num-outs aignet)
                             (num-regs aignet)
                             (num-ins aignet)
                             (num-fanins aignet)
                             aignet2))
       (aignet2 (aignet-add-ins (num-ins aignet)
                                aignet2))
       (aignet2 (aignet-add-regs (num-regs aignet)
                                 aignet2))
       ((mv copy strash aignet2 aignet state)
        (observability-fix-outs 0 config
                                aignet copy strash aignet2 state))
       ((mv copy strash aignet2 aignet state)
        (observability-fix-nxsts 0 config
                                 aignet copy strash aignet2 state)))
    (mv copy strash aignet2 aignet state))))

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

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

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

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

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

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

Theorem: comb-equiv-of-observability-fix-core

(defthm comb-equiv-of-observability-fix-core
  (b* (((mv ?new-aignet2 ?new-aignet ?new-state)
        (observability-fix-core aignet aignet2 config state)))
    (comb-equiv new-aignet2 aignet)))

Theorem: normalize-inputs-of-observability-fix-core

(defthm normalize-inputs-of-observability-fix-core
 (b* nil
  (implies
    (syntaxp (not (equal aignet2 ''nil)))
    (equal
         (observability-fix-core aignet aignet2 config state)
         (let ((aignet2 nil))
           (observability-fix-core aignet aignet2 config state))))))

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

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

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

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

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

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

Theorem: observability-fix-core-of-node-list-fix-aignet2

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

Theorem: observability-fix-core-node-list-equiv-congruence-on-aignet2

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

Theorem: observability-fix-core-of-observability-config-fix-config

(defthm observability-fix-core-of-observability-config-fix-config
  (equal (observability-fix-core aignet aignet2
                                 (observability-config-fix config)
                                 state)
         (observability-fix-core aignet aignet2 config state)))

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

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