• Top
    • Documentation
    • Books
    • Recursion-and-induction
    • Boolean-reasoning
      • Ipasir
        • Ipasir$a
          • Ipasir$a-p
          • Ipasir$a-fix
          • Ipasir-set-limit$a
          • Ipasir-add-lit$a
          • Ipasir-assume$a
          • Ipasir-init$a
          • Make-ipasir$a
          • Ipasir-finalize-clause$a
          • Ipasir-reinit$a
          • Ipasir$a-equiv
          • Ipasir-input$a
          • Ipasir-val$a
          • Ipasir-release$a
          • Ipasir$a->solved-assumption
          • Ipasir$a->new-clause
          • Ipasir$a->callback-count
          • Ipasir$a->assumption
          • Ipasir-failed$a
          • Change-ipasir$a
          • Ipasir$a->solution
          • Ipasir$a->formula
          • Ipasir$a->status
            • Ipasir$a->history
            • Ipasir-callback-count$a
            • Ipasir-solved-assumption$a
            • Ipasir-some-history$a
            • Ipasir-get-status$a
            • Ipasir-get-assumption$a
            • Ipasir-empty-new-clause$a
            • Create-ipasir$a
            • Ipasir-solve$a
          • Building-an-ipasir-solver-library
          • Ipasir-formula
          • Ipasir-bump-activity-vars$a
          • Ipasir-set$a
          • Ipasir-bump-activity-vars$c
          • Ipasir-get$a
          • Ipasir-set-limit$c
          • Ipasir-set$c
          • Ipasir-failed$c
          • Ipasir-assume$c
          • Ipasir-add-lit$c
          • Ipasir-val$c
          • With-local-ipasir
          • Ipasir-solve$c
          • Ipasir-reinit$c
          • Ipasir-init$c
          • Ipasir-finalize-clause$c
          • Ipasir-some-history$c
          • Ipasir-solved-assumption$c
          • Ipasir-release$c
          • Ipasir-input$c
          • Ipasir-get$c
          • Ipasir-get-status$c
          • Ipasir-get-curr-stats$c
          • Ipasir-get-assumption$c
          • Ipasir-empty-new-clause$c
          • Ipasir-callback-count$c
          • Ipasir-val
          • Ipasir-solve
          • Ipasir-set-limit
          • Ipasir-reinit
          • Ipasir-failed
          • Ipasir-callback-count
          • Ipasir-release
          • Ipasir-input
          • Ipasir-init
          • Ipasir-finalize-clause
          • Ipasir-assume
          • Ipasir-add-lit
        • Aignet
        • Aig
        • Satlink
        • Truth
        • Ubdds
        • Bdd
        • Faig
        • Bed
        • 4v
      • Projects
      • Debugging
      • Std
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Testing-utilities
      • Math
    • Ipasir$a

    Ipasir$a->status

    Get the status field from a ipasir$a.

    Signature
    (ipasir$a->status x) → status
    Arguments
    x — Guard (ipasir$a-p x).
    Returns
    status — Type (ipasir-status-p status).

    This is an ordinary field accessor created by fty::defprod.

    Definitions and Theorems

    Function: ipasir$a->status$inline

    (defun
       ipasir$a->status$inline (x)
       (declare (xargs :guard (ipasir$a-p x)))
       (declare (xargs :guard t))
       (let ((__function__ 'ipasir$a->status))
            (declare (ignorable __function__))
            (mbe :logic (b* ((x (and t x)))
                            (ipasir-status-fix (cdr (std::da-nth 3 x))))
                 :exec (cdr (std::da-nth 3 x)))))

    Theorem: ipasir-status-p-of-ipasir$a->status

    (defthm ipasir-status-p-of-ipasir$a->status
            (b* ((status (ipasir$a->status$inline x)))
                (ipasir-status-p status))
            :rule-classes :rewrite)

    Theorem: ipasir$a->status$inline-of-ipasir$a-fix-x

    (defthm ipasir$a->status$inline-of-ipasir$a-fix-x
            (equal (ipasir$a->status$inline (ipasir$a-fix x))
                   (ipasir$a->status$inline x)))

    Theorem: ipasir$a->status$inline-ipasir$a-equiv-congruence-on-x

    (defthm ipasir$a->status$inline-ipasir$a-equiv-congruence-on-x
            (implies (ipasir$a-equiv x x-equiv)
                     (equal (ipasir$a->status$inline x)
                            (ipasir$a->status$inline x-equiv)))
            :rule-classes :congruence)