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

    Fraig-config-normalized-output-map

    Signature
    (fraig-config-normalized-output-map config output-ranges aignet) 
      → 
    (mv map new-output-ranges)
    Arguments
    config — Guard (fraig-config-p config).
    output-ranges — Guard (aignet-output-range-map-p output-ranges).
    Returns
    map — Type (fraig-output-map-p map).
    new-output-ranges — Type (aignet-output-range-map-p new-output-ranges).

    Definitions and Theorems

    Function: fraig-config-normalized-output-map

    (defun fraig-config-normalized-output-map
           (config output-ranges aignet)
     (declare (xargs :stobjs (aignet)))
     (declare
         (xargs :guard (and (fraig-config-p config)
                            (aignet-output-range-map-p output-ranges))))
     (let ((__function__ 'fraig-config-normalized-output-map))
      (declare (ignorable __function__))
      (b*
       (((fraig-config config))
        (len (aignet-output-range-map-length output-ranges))
        (outs (num-outs aignet))
        (output-ranges
         (cond
          ((< outs len)
           (prog2$
               (cw "Warning: not enough outputs for the output-ranges.")
               (list (cons nil outs))))
          ((< len outs)
           (cons (cons nil (- outs len))
                 (aignet-output-range-map-fix output-ranges)))
          (t (aignet-output-range-map-fix output-ranges)))))
       (mv (fraig-create-output-map output-ranges config.output-types)
           output-ranges))))

    Theorem: fraig-output-map-p-of-fraig-config-normalized-output-map.map

    (defthm fraig-output-map-p-of-fraig-config-normalized-output-map.map
      (b* (((mv common-lisp::?map ?new-output-ranges)
            (fraig-config-normalized-output-map
                 config output-ranges aignet)))
        (fraig-output-map-p map))
      :rule-classes :rewrite)

    Theorem: aignet-output-range-map-p-of-fraig-config-normalized-output-map.new-output-ranges

    (defthm
     aignet-output-range-map-p-of-fraig-config-normalized-output-map.new-output-ranges
     (b* (((mv common-lisp::?map ?new-output-ranges)
           (fraig-config-normalized-output-map
                config output-ranges aignet)))
       (aignet-output-range-map-p new-output-ranges))
     :rule-classes :rewrite)

    Theorem: output-range-map-length-of-fraig-config-normalized-output-map

    (defthm
          output-range-map-length-of-fraig-config-normalized-output-map
      (b* (((mv common-lisp::?map ?new-output-ranges)
            (fraig-config-normalized-output-map
                 config output-ranges aignet)))
        (equal (aignet-output-range-map-length new-output-ranges)
               (stype-count :po aignet))))

    Theorem: output-map-count-of-fraig-config-normalized-output-map

    (defthm output-map-count-of-fraig-config-normalized-output-map
      (b* (((mv common-lisp::?map ?new-output-ranges)
            (fraig-config-normalized-output-map
                 config output-ranges aignet)))
        (equal (fraig-output-map-total-count map)
               (stype-count :po aignet))))

    Theorem: fraig-config-normalized-output-map-of-fraig-config-fix-config

    (defthm
          fraig-config-normalized-output-map-of-fraig-config-fix-config
     (equal
      (fraig-config-normalized-output-map (fraig-config-fix config)
                                          output-ranges aignet)
      (fraig-config-normalized-output-map config output-ranges aignet)))

    Theorem: fraig-config-normalized-output-map-fraig-config-equiv-congruence-on-config

    (defthm
     fraig-config-normalized-output-map-fraig-config-equiv-congruence-on-config
     (implies
      (fraig-config-equiv config config-equiv)
      (equal
        (fraig-config-normalized-output-map config output-ranges aignet)
        (fraig-config-normalized-output-map
             config-equiv output-ranges aignet)))
     :rule-classes :congruence)

    Theorem: fraig-config-normalized-output-map-of-aignet-output-range-map-fix-output-ranges

    (defthm
     fraig-config-normalized-output-map-of-aignet-output-range-map-fix-output-ranges
     (equal
      (fraig-config-normalized-output-map
           config
           (aignet-output-range-map-fix output-ranges)
           aignet)
      (fraig-config-normalized-output-map config output-ranges aignet)))

    Theorem: fraig-config-normalized-output-map-aignet-output-range-map-equiv-congruence-on-output-ranges

    (defthm
     fraig-config-normalized-output-map-aignet-output-range-map-equiv-congruence-on-output-ranges
     (implies
      (aignet-output-range-map-equiv output-ranges output-ranges-equiv)
      (equal
        (fraig-config-normalized-output-map config output-ranges aignet)
        (fraig-config-normalized-output-map
             config output-ranges-equiv aignet)))
     :rule-classes :congruence)