Add a clause (given as a list of literals) to the formula
(ipasir-add-list ipasir clause) → new-ipasir
Function:
(defun ipasir-add-list (ipasir clause) (declare (xargs :stobjs (ipasir))) (declare (xargs :guard (lit-listp clause))) (declare (xargs :guard (and (not (eq (ipasir-get-status ipasir) :undef)) (ipasir-empty-new-clause ipasir)))) (let ((__function__ 'ipasir-add-list)) (declare (ignorable __function__)) (b* ((ipasir (ipasir-cancel-new-clause ipasir))) (ipasir-add-list-aux ipasir clause))))
Theorem:
(defthm ipasir-add-list-status (b* ((?new-ipasir (ipasir-add-list ipasir clause))) (equal (ipasir$a->status new-ipasir) :input)))
Theorem:
(defthm ipasir-add-list-formula (b* ((?new-ipasir (ipasir-add-list ipasir clause))) (equal (ipasir$a->formula new-ipasir) (cons (rev (lit-list-fix clause)) (ipasir$a->formula ipasir)))))
Theorem:
(defthm ipasir-add-list-eval-formula (b* ((?new-ipasir (ipasir-add-list ipasir clause))) (equal (eval-formula (ipasir$a->formula new-ipasir) env) (eval-formula (cons clause (ipasir$a->formula ipasir)) env))))
Theorem:
(defthm ipasir-add-list-new-clause (b* ((?new-ipasir (ipasir-add-list ipasir clause))) (not (ipasir$a->new-clause new-ipasir))))
Theorem:
(defthm ipasir-add-list-assumption (b* ((?new-ipasir (ipasir-add-list ipasir clause))) (equal (ipasir$a->assumption new-ipasir) (ipasir$a->assumption ipasir))))