Specification of the circuit.
The specification is a predicate over a single field element. The predicate is defined as the built-in bitp, i.e. the recognizer of bits.
Function:
(defun boolean-assert-spec (x prime) (declare (xargs :guard (and (primep prime) (pfield::fep x prime)))) (declare (ignore prime)) (let ((__function__ 'boolean-assert-spec)) (declare (ignorable __function__)) (bitp x)))
Theorem:
(defthm booleanp-of-boolean-assert-spec (b* ((yes/no (boolean-assert-spec x prime))) (booleanp yes/no)) :rule-classes :rewrite)