• 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
            • Fraig-config
            • Fraig-sweep-node
            • Fraig-sweep-aux
            • Fraig-finish-copy-nonstrict
            • Fraig-core-aux
            • Fraig-output-type
            • Ipasir-check-aignet-equivalence
            • Fraig-store-ctrex-aux
            • Fraig-finish-copy-outs
            • Fraig-core
            • Fraig-ctrexes-maybe-resim
            • Fraig-sweep
            • Fraig-store-ctrex
            • S32v-row-repeat-bitcols
            • Fraig-ctrexes-resim-aux
            • Fraig-config-normalized-output-map
            • S32v-copy-cares
            • Ipasir-maybe-recycle
            • Fraig-ctrexes-ok
            • Fraig-add-equiv-class-outputs-aux-2
            • Fraig-add-equiv-class-outputs-aux-1
            • Fraig-ctrexes-resim
            • Fraig-create-aignet-node-mask
            • Fraig-classes-maybe-delete-class
            • Aignet-copy-outs-range
            • Fraig-record-sat-ctrex-rec
            • Fraig-ctrex-has-relevant-disagreement
            • S32v-bitcol-nth-set
            • Fraig-output-map-mark-non-simplified
            • Fraig-output-map-mark-simplified
            • Fraig-output-map-initial-equiv-start/count
            • Fraig-minimize-sat-ctrex-rec
            • Fraig-create-output-map
            • Bitarr-copy-cares-to-s32v-col
            • S32v-install-bit
            • S32v-bitcol-count-set
            • Fraig-ctrexes-init
            • Bitarr-or-cares-with-s32v-col
            • Fraig-ctrex-find-agreeable
            • S32v-repeat-bitcols
            • S32v-add-salt
            • Bitarr-remove-marked
            • Print-fraig-stats-noninitial
            • Fraig-ctrex-regvals->vecsim
            • Fraig-ctrex-invals->vecsim
            • Bitarr-to-s32v-col
            • Fraig-output-map-entry
            • Aignet-unmark-higher-levels
            • Aignet-mark-output-node-range
            • Fraig-initial-sim
            • Fraig-ctrexes-reinit
            • Fraig-add-equiv-class-outputs
            • Aignet-maybe-update-refs
            • S32v-randomize-rows
            • S32v-get-bit
            • Fraig-level-limit-ok
            • Aignet-vals->regvals-after-invals
            • Aignet-mark-fanout-cones-of-marked
            • Fraig-debug-output-ranges
            • S32v-zero-rows
            • Fraig-output-map-total-count
            • Fraig-output-map-has-multiple-initial-equivs
            • Fraig-output-map-has-initial-equivs
            • Fraig-output-type-map
            • Aignet-vals->in/regvals
            • Fraig-output-map
            • Fraig-total-checks
            • Fraig-stats-count-sat-call
            • Fraig-ctrex-ncols
            • Fraig-ctrex-data-rows
            • Fraig-stats-update-last-chance
            • Print-fraig-stats-initial
            • Print-classes-counts-with-mark
            • Fraig-stats-increment-forced-proved
            • Fraig-stats-increment-coincident-nodes
            • Print-classes-counts
            • Fraig-ctrex-in/reg-rows
          • 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
          • 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

• Fraig

Ipasir-check-aignet-equivalence

Signature

(ipasir-check-aignet-equivalence 
     lit1 lit2 config aignet aignet-refcounts 
     sat-lits ipasir fraig-stats) 
 
  → 
(mv status new-sat-lits new-ipasir new-fraig-stats)

Arguments

lit1 — Guard (litp lit1).

lit2 — Guard (litp lit2).

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

Returns

status — Type (or (equal status :failed) (equal status :unsat) (equal status :sat)) .

Definitions and Theorems

Function: ipasir-check-aignet-equivalence

(defun ipasir-check-aignet-equivalence
       (lit1 lit2 config aignet aignet-refcounts
             sat-lits ipasir fraig-stats)
 (declare (xargs :stobjs (aignet aignet-refcounts
                                 sat-lits ipasir fraig-stats)))
 (declare (xargs :guard (and (litp lit1)
                             (litp lit2)
                             (fraig-config-p config))))
 (declare
  (xargs
     :guard
     (and (fanin-litp lit1 aignet)
          (fanin-litp lit2 aignet)
          (sat-lits-wfp sat-lits aignet)
          (< (lit-id lit1)
             (u32-length aignet-refcounts))
          (< (lit-id lit2)
             (u32-length aignet-refcounts))
          (non-exec (and (not (eq (ipasir$a->status ipasir) :undef))
                         (not (ipasir$a->new-clause ipasir))
                         (not (ipasir$a->assumption ipasir)))))))
 (let ((__function__ 'ipasir-check-aignet-equivalence))
   (declare (ignorable __function__))
   (b*
     ((lit1 (lit-fix lit1))
      (lit2 (lit-fix lit2))
      ((mv sat-lits ipasir fraig-stats)
       (ipasir-maybe-recycle config sat-lits ipasir fraig-stats))
      ((mv sat-lits ipasir)
       (aignet-lit->ipasir lit1 t aignet-refcounts
                           sat-lits aignet ipasir))
      ((mv sat-lits ipasir)
       (aignet-lit->ipasir lit2 t aignet-refcounts
                           sat-lits aignet ipasir))
      (sat-lit1 (aignet-lit->sat-lit lit1 sat-lits))
      (sat-lit2 (aignet-lit->sat-lit lit2 sat-lits))
      ((mv status ipasir)
       (ipasir-check-equivalence ipasir sat-lit1 sat-lit2))
      (fraig-stats (fraig-stats-count-sat-call status fraig-stats)))
     (mv status sat-lits ipasir fraig-stats))))

Theorem: return-type-of-ipasir-check-aignet-equivalence.status

(defthm return-type-of-ipasir-check-aignet-equivalence.status
  (b* (((mv ?status ?new-sat-lits
            ?new-ipasir ?new-fraig-stats)
        (ipasir-check-aignet-equivalence
             lit1 lit2 config aignet aignet-refcounts
             sat-lits ipasir fraig-stats)))
    (or (equal status :failed)
        (equal status :unsat)
        (equal status :sat)))
  :rule-classes
  ((:forward-chaining
        :trigger-terms
        ((mv-nth 0
                 (ipasir-check-aignet-equivalence
                      lit1 lit2 config aignet aignet-refcounts
                      sat-lits ipasir fraig-stats))))))

Theorem: ipasir-check-aignet-equivalence-ipasir-status

(defthm ipasir-check-aignet-equivalence-ipasir-status
  (b* (((mv ?status ?new-sat-lits
            ?new-ipasir ?new-fraig-stats)
        (ipasir-check-aignet-equivalence
             lit1 lit2 config aignet aignet-refcounts
             sat-lits ipasir fraig-stats)))
    (equal (ipasir$a->status new-ipasir)
           (case status
             (:sat :sat)
             (:unsat :unsat)
             (otherwise :input)))))

Theorem: ipasir-check-aignet-equivalence-new-clause

(defthm ipasir-check-aignet-equivalence-new-clause
  (b* (((mv ?status ?new-sat-lits
            ?new-ipasir ?new-fraig-stats)
        (ipasir-check-aignet-equivalence
             lit1 lit2 config aignet aignet-refcounts
             sat-lits ipasir fraig-stats)))
    (equal (ipasir$a->new-clause new-ipasir)
           nil)))

Theorem: ipasir-check-aignet-equivalence-assumption

(defthm ipasir-check-aignet-equivalence-assumption
  (b* (((mv ?status ?new-sat-lits
            ?new-ipasir ?new-fraig-stats)
        (ipasir-check-aignet-equivalence
             lit1 lit2 config aignet aignet-refcounts
             sat-lits ipasir fraig-stats)))
    (equal (ipasir$a->assumption new-ipasir)
           nil)))

Theorem: sat-lits-wfp-of-ipasir-check-aignet-equivalence

(defthm sat-lits-wfp-of-ipasir-check-aignet-equivalence
  (b* (((mv ?status ?new-sat-lits
            ?new-ipasir ?new-fraig-stats)
        (ipasir-check-aignet-equivalence
             lit1 lit2 config aignet aignet-refcounts
             sat-lits ipasir fraig-stats)))
    (implies (and (sat-lits-wfp sat-lits aignet))
             (sat-lits-wfp new-sat-lits aignet))))

Theorem: ipasir-formula-wfp-of-ipasir-check-aignet-equivalence

(defthm ipasir-formula-wfp-of-ipasir-check-aignet-equivalence
  (b* (((mv ?status ?new-sat-lits
            ?new-ipasir ?new-fraig-stats)
        (ipasir-check-aignet-equivalence
             lit1 lit2 config aignet aignet-refcounts
             sat-lits ipasir fraig-stats)))
    (implies (and (sat-lits-wfp sat-lits aignet)
                  (aignet-litp lit1 aignet)
                  (aignet-litp lit2 aignet)
                  (sat-lit-list-listp (ipasir$a->formula ipasir)
                                      sat-lits))
             (sat-lit-list-listp (ipasir$a->formula new-ipasir)
                                 new-sat-lits))))

Theorem: cnf-for-aignet-of-ipasir-check-aignet-equivalence

(defthm cnf-for-aignet-of-ipasir-check-aignet-equivalence
  (b* (((mv ?status ?new-sat-lits
            ?new-ipasir ?new-fraig-stats)
        (ipasir-check-aignet-equivalence
             lit1 lit2 config aignet aignet-refcounts
             sat-lits ipasir fraig-stats)))
    (implies (and (cnf-for-aignet aignet (ipasir$a->formula ipasir)
                                  sat-lits)
                  (sat-lits-wfp sat-lits aignet)
                  (aignet-litp lit1 aignet)
                  (aignet-litp lit2 aignet)
                  (sat-lit-list-listp (ipasir$a->formula ipasir)
                                      sat-lits))
             (cnf-for-aignet aignet (ipasir$a->formula new-ipasir)
                             new-sat-lits))))

Theorem: ipasir-check-aignet-equivalence-unsat

(defthm ipasir-check-aignet-equivalence-unsat
 (b* (((mv ?status ?new-sat-lits
           ?new-ipasir ?new-fraig-stats)
       (ipasir-check-aignet-equivalence
            lit1 lit2 config aignet aignet-refcounts
            sat-lits ipasir fraig-stats)))
  (implies
   (and (cnf-for-aignet aignet (ipasir$a->formula ipasir)
                        sat-lits)
        (sat-lits-wfp sat-lits aignet)
        (aignet-litp lit1 aignet)
        (aignet-litp lit2 aignet)
        (sat-lit-list-listp (ipasir$a->formula ipasir)
                            sat-lits))
   (equal
     (equal status :unsat)
     (and (hide (equal status :unsat))
          (aignet-lits-comb-equivalent lit1 aignet lit2 aignet))))))

Theorem: ipasir-check-aignet-equivalence-lit1-has-sat-vars

(defthm ipasir-check-aignet-equivalence-lit1-has-sat-vars
  (b* (((mv ?status ?new-sat-lits
            ?new-ipasir ?new-fraig-stats)
        (ipasir-check-aignet-equivalence
             lit1 lit2 config aignet aignet-refcounts
             sat-lits ipasir fraig-stats)))
    (implies (and (sat-lits-wfp sat-lits aignet)
                  (equal id (lit-id lit1))
                  (aignet-litp lit1 aignet))
             (aignet-id-has-sat-var id new-sat-lits))))

Theorem: ipasir-check-aignet-equivalence-lit2-has-sat-vars

(defthm ipasir-check-aignet-equivalence-lit2-has-sat-vars
  (b* (((mv ?status ?new-sat-lits
            ?new-ipasir ?new-fraig-stats)
        (ipasir-check-aignet-equivalence
             lit1 lit2 config aignet aignet-refcounts
             sat-lits ipasir fraig-stats)))
    (implies (and (sat-lits-wfp sat-lits aignet)
                  (equal id (lit-id lit2))
                  (aignet-litp lit2 aignet))
             (aignet-id-has-sat-var id new-sat-lits))))

Theorem: ipasir-check-aignet-equivalence-of-lit-fix-lit1

(defthm ipasir-check-aignet-equivalence-of-lit-fix-lit1
  (equal (ipasir-check-aignet-equivalence
              (lit-fix lit1)
              lit2 config aignet aignet-refcounts
              sat-lits ipasir fraig-stats)
         (ipasir-check-aignet-equivalence
              lit1 lit2 config aignet aignet-refcounts
              sat-lits ipasir fraig-stats)))

Theorem: ipasir-check-aignet-equivalence-lit-equiv-congruence-on-lit1

(defthm ipasir-check-aignet-equivalence-lit-equiv-congruence-on-lit1
  (implies (lit-equiv lit1 lit1-equiv)
           (equal (ipasir-check-aignet-equivalence
                       lit1 lit2 config aignet aignet-refcounts
                       sat-lits ipasir fraig-stats)
                  (ipasir-check-aignet-equivalence
                       lit1-equiv
                       lit2 config aignet aignet-refcounts
                       sat-lits ipasir fraig-stats)))
  :rule-classes :congruence)

Theorem: ipasir-check-aignet-equivalence-of-lit-fix-lit2

(defthm ipasir-check-aignet-equivalence-of-lit-fix-lit2
 (equal
     (ipasir-check-aignet-equivalence lit1 (lit-fix lit2)
                                      config aignet aignet-refcounts
                                      sat-lits ipasir fraig-stats)
     (ipasir-check-aignet-equivalence
          lit1 lit2 config aignet aignet-refcounts
          sat-lits ipasir fraig-stats)))

Theorem: ipasir-check-aignet-equivalence-lit-equiv-congruence-on-lit2

(defthm ipasir-check-aignet-equivalence-lit-equiv-congruence-on-lit2
 (implies
  (lit-equiv lit2 lit2-equiv)
  (equal
     (ipasir-check-aignet-equivalence
          lit1 lit2 config aignet aignet-refcounts
          sat-lits ipasir fraig-stats)
     (ipasir-check-aignet-equivalence lit1 lit2-equiv
                                      config aignet aignet-refcounts
                                      sat-lits ipasir fraig-stats)))
 :rule-classes :congruence)

Theorem: ipasir-check-aignet-equivalence-of-fraig-config-fix-config

(defthm ipasir-check-aignet-equivalence-of-fraig-config-fix-config
  (equal (ipasir-check-aignet-equivalence
              lit1 lit2 (fraig-config-fix config)
              aignet aignet-refcounts
              sat-lits ipasir fraig-stats)
         (ipasir-check-aignet-equivalence
              lit1 lit2 config aignet aignet-refcounts
              sat-lits ipasir fraig-stats)))

Theorem: ipasir-check-aignet-equivalence-fraig-config-equiv-congruence-on-config

(defthm
 ipasir-check-aignet-equivalence-fraig-config-equiv-congruence-on-config
 (implies (fraig-config-equiv config config-equiv)
          (equal (ipasir-check-aignet-equivalence
                      lit1 lit2 config aignet aignet-refcounts
                      sat-lits ipasir fraig-stats)
                 (ipasir-check-aignet-equivalence
                      lit1 lit2
                      config-equiv aignet aignet-refcounts
                      sat-lits ipasir fraig-stats)))
 :rule-classes :congruence)