Specification of the circuit.
Function:
(defun field-sub-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-sub-spec)) (declare (ignorable __function__)) (equal z (pfield::sub x y prime))))
Theorem:
(defthm booleanp-of-field-sub-spec (b* ((yes/no (field-sub-spec x y z prime))) (booleanp yes/no)) :rule-classes :rewrite)