The Edwards-BLS12 coefficient
(edwards-bls12-a) → a
We show that this coefficient is a square by exhibiting a square root of it.
Function:
(defun edwards-bls12-a nil (declare (xargs :guard t)) (let ((acl2::__function__ 'edwards-bls12-a)) (declare (ignorable acl2::__function__)) (neg 1 (edwards-bls12-q))))
Theorem:
(defthm return-type-of-edwards-bls12-a (b* ((a (edwards-bls12-a))) (fep a (edwards-bls12-q))) :rule-classes :rewrite)
Theorem:
(defthm edwards-bls12-a-not-zero (not (equal (edwards-bls12-a) 0)))
Theorem:
(defthm pfield-squarep-of-edwards-bls12-a (pfield-squarep (edwards-bls12-a) (edwards-bls12-q)))