Construction of the circuit.
(boolean-assert-all-circuit n) → pdef
The construction is parameterized by
The name of the circuit includes the parameter
The parameter list is
Function:
(defun boolean-assert-all-circuit (n) (declare (xargs :guard (natp n))) (let ((__function__ 'boolean-assert-all-circuit)) (declare (ignorable __function__)) (b* ((para (pfnames "x" n))) (pfdef (pfname "boolean_assert_all" n) para (boolean-assert-all-circuit-body para)))))
Theorem:
(defthm definitionp-of-boolean-assert-all-circuit (b* ((pdef (boolean-assert-all-circuit n))) (pfcs::definitionp pdef)) :rule-classes :rewrite)
Theorem:
(defthm sr1cs-definitionp-of-boolean-assert-all-circuit (b* ((pdef (boolean-assert-all-circuit n))) (pfcs::sr1cs-definitionp pdef)) :rule-classes :rewrite)
Theorem:
(defthm definition->name-of-boolean-assert-all-circuit (equal (pfcs::definition->name (boolean-assert-all-circuit n)) (pfname "boolean_assert_all" n)))
Theorem:
(defthm definition->para-of-boolean-assert-all-circuit (equal (pfcs::definition->para (boolean-assert-all-circuit n)) (pfnames "x" n)))
Theorem:
(defthm definition->body-of-boolean-assert-all-circuit (equal (pfcs::definition->body (boolean-assert-all-circuit n)) (boolean-assert-all-circuit-body (pfnames "x" n))))
Theorem:
(defthm definition-free-vars-of-boolean-assert-all-circuit (emptyp (pfcs::definition-free-vars (boolean-assert-all-circuit n))))