• Top
  • Documentation
  • Books
  • Boolean-reasoning
    • Ipasir
      • Ipasir$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-failed$c
      • Ipasir-assume$c
      • Ipasir-add-lit$c
      • Ipasir-val$c
      • Ipasir-set$c
      • With-local-ipasir
      • Ipasir-solve$c
      • Ipasir-init$c
      • Ipasir-finalize-clause$c
      • Ipasir-some-history$c
      • Ipasir-solved-assumption$c
      • Ipasir-release$c
      • Ipasir-reinit$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
  • Math
  • Testing-utilities

• Ipasir

Ipasir-set-limit$c

Signature

(ipasir-set-limit$c ipasir$c limit) → ipasir$c

Arguments

limit — Guard (acl2::maybe-natp limit).

Definitions and Theorems

Function: ipasir-set-limit$c

(defun ipasir-set-limit$c (ipasir$c limit)
 (declare (xargs :stobjs (ipasir$c)))
 (declare (xargs :guard (acl2::maybe-natp limit)))
 (declare
     (xargs :guard (not (eq (ipasir$a->status (ipasir-get ipasir$c))
                            :undef))))
 (let ((__function__ 'ipasir-set-limit$c))
   (declare (ignorable __function__))
   (ipasir-set (ipasir-set-limit$a (ipasir-get ipasir$c)
                                   limit)
               ipasir$c)))

Theorem: ipasir-set-limit$c-of-maybe-natp-fix-limit

(defthm ipasir-set-limit$c-of-maybe-natp-fix-limit
  (equal (ipasir-set-limit$c ipasir$c (acl2::maybe-natp-fix limit))
         (ipasir-set-limit$c ipasir$c limit)))

Theorem: ipasir-set-limit$c-maybe-nat-equiv-congruence-on-limit

(defthm ipasir-set-limit$c-maybe-nat-equiv-congruence-on-limit
  (implies (acl2::maybe-nat-equiv limit limit-equiv)
           (equal (ipasir-set-limit$c ipasir$c limit)
                  (ipasir-set-limit$c ipasir$c limit-equiv)))
  :rule-classes :congruence)