Add an empty clause. Likely useless because the solver is then unsat forever.
(ipasir-add-empty ipasir) → new-ipasir
Function:
(defun ipasir-add-empty (ipasir) (declare (xargs :stobjs (ipasir))) (declare (xargs :guard (and (not (eq (ipasir-get-status ipasir) :undef)) (ipasir-empty-new-clause ipasir)))) (let ((__function__ 'ipasir-add-empty)) (declare (ignorable __function__)) (b* ((ipasir (ipasir-cancel-new-clause ipasir))) (ipasir-finalize-clause ipasir))))
Theorem:
(defthm ipasir-add-empty-status (b* ((?new-ipasir (ipasir-add-empty ipasir))) (equal (ipasir$a->status new-ipasir) :input)))
Theorem:
(defthm ipasir-add-empty-formula (b* ((?new-ipasir (ipasir-add-empty ipasir))) (equal (ipasir$a->formula new-ipasir) (cons nil (ipasir$a->formula ipasir)))))
Theorem:
(defthm ipasir-add-empty-eval-formula (b* ((?new-ipasir (ipasir-add-empty ipasir))) (equal (eval-formula (ipasir$a->formula new-ipasir) env) 0)))
Theorem:
(defthm ipasir-add-empty-new-clause (b* ((?new-ipasir (ipasir-add-empty ipasir))) (not (ipasir$a->new-clause new-ipasir))))
Theorem:
(defthm ipasir-add-empty-assumption (b* ((?new-ipasir (ipasir-add-empty ipasir))) (equal (ipasir$a->assumption new-ipasir) (ipasir$a->assumption ipasir))))