Logic form of ipasir-release. See ipasir for usage.
(ipasir-release$a solver) → new-solver
Function:
(defun ipasir-release$a (solver) (declare (xargs :guard (ipasir$a-p solver))) (declare (xargs :guard (not (eq (ipasir-get-status$a solver) :undef)))) (let ((__function__ 'ipasir-release$a)) (declare (ignorable __function__)) (b* (((ipasir$a solver))) (change-ipasir$a solver :status :undef :history (cons :release solver.history)))))
Theorem:
(defthm ipasir$a-p-of-ipasir-release$a (b* ((new-solver (ipasir-release$a solver))) (ipasir$a-p new-solver)) :rule-classes :rewrite)
Theorem:
(defthm ipasir-release$a-status (b* ((?new-solver (ipasir-release$a solver))) (equal (ipasir$a->status new-solver) :undef)))
Theorem:
(defthm ipasir-release$a-history (b* ((?new-solver (ipasir-release$a solver))) (consp (ipasir$a->history new-solver))))
Theorem:
(defthm ipasir-release$a-of-ipasir$a-fix-solver (equal (ipasir-release$a (ipasir$a-fix solver)) (ipasir-release$a solver)))
Theorem:
(defthm ipasir-release$a-ipasir$a-equiv-congruence-on-solver (implies (ipasir$a-equiv solver solver-equiv) (equal (ipasir-release$a solver) (ipasir-release$a solver-equiv))) :rule-classes :congruence)