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