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