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