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