Specification of the circuit.
Function:
(defun field-add-spec (x y z prime) (declare (xargs :guard (and (primep prime) (pfield::fep x prime) (pfield::fep y prime) (pfield::fep z prime)))) (let ((__function__ 'field-add-spec)) (declare (ignorable __function__)) (equal z (pfield::add x y prime))))
Theorem:
(defthm booleanp-of-field-add-spec (b* ((yes/no (field-add-spec x y z prime))) (booleanp yes/no)) :rule-classes :rewrite)