(ipasir-solved-assumption$a solver) → *
Function:
(defun ipasir-solved-assumption$a (solver) (declare (xargs :guard (ipasir$a-p solver))) (declare (xargs :guard (eq (ipasir-get-status$a solver) :unsat))) (let ((__function__ 'ipasir-solved-assumption$a)) (declare (ignorable __function__)) (ipasir$a->solved-assumption solver)))
Theorem:
(defthm ipasir-solved-assumption$a-of-ipasir$a-fix-solver (equal (ipasir-solved-assumption$a (ipasir$a-fix solver)) (ipasir-solved-assumption$a solver)))
Theorem:
(defthm ipasir-solved-assumption$a-ipasir$a-equiv-congruence-on-solver (implies (ipasir$a-equiv solver solver-equiv) (equal (ipasir-solved-assumption$a solver) (ipasir-solved-assumption$a solver-equiv))) :rule-classes :congruence)