• Top
    • Documentation
    • Books
    • Boolean-reasoning
      • Ipasir
      • Aignet
      • Aig
      • Satlink
      • Truth
      • Ubdds
      • Bdd
      • Faig
      • Bed
      • 4v
        • 4v-sexprs
          • 4v-sexpr-vars
          • 4v-sexpr-eval
          • 4v-sexpr-to-faig
          • 4v-sexpr-restrict-with-rw
          • 4vs-constructors
          • 4v-sexpr-compose-with-rw
          • 4v-sexpr-restrict
          • 4v-sexpr-alist-extract
          • 4v-sexpr-compose
          • 4v-nsexpr-p
          • 4v-sexpr-purebool-p
          • 4v-sexpr-<=
          • Sfaig
            • Sfaiglist-recover-4venv
            • Sfaiglist-make-faigenv
            • Sfaiglist
              • Sfaig-recover-4venv
              • Sfaig-make-faigenv
            • Sexpr-equivs
            • 3v-syntax-sexprp
            • Sexpr-rewriting
            • 4v-sexpr-ind
            • 4v-alist-extract
          • 4v-monotonicity
          • 4v-operations
          • Why-4v-logic
          • 4v-<=
          • 4vp
          • 4vcases
          • 4v-fix
          • 4v-lookup
      • Projects
      • Debugging
      • Std
      • Proof-automation
      • Community
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Sfaig
    • 4v-sexpr-to-faig-list

    Sfaiglist

    A simplified version of 4v-sexpr-to-faig-list that constructs its own onoff list out of the variables of the sexprs.

    Signature
    (sfaiglist sexprs) → faigs
    Arguments
    sexprs — A list of 4v-sexprs.
    Returns
    faigs — A list of equivalent FAIGs, using numeric variables.

    Definitions and Theorems

    Function: sfaiglist

    (defun sfaiglist (sexprs)
      (declare (xargs :guard t))
      (let ((__function__ 'sfaiglist))
        (declare (ignorable __function__))
        (b* ((vars (4v-sexpr-vars-1pass-list sexprs))
             (onoff (num-varmap vars 0)))
          (4v-sexpr-to-faig-list sexprs onoff))))

    Theorem: len-of-sfaiglist

    (defthm len-of-sfaiglist
      (equal (len (sfaiglist x)) (len x)))