The Edwards-BLS12 coefficient
(edwards-bls12-d) → d
We show that this coefficient is not a square
using Euler's criterion.
We use the fast modular exponentiation operation
from the
Function:
(defun edwards-bls12-d nil (declare (xargs :guard t)) (let ((acl2::__function__ 'edwards-bls12-d)) (declare (ignorable acl2::__function__)) 3021))
Theorem:
(defthm return-type-of-edwards-bls12-d (b* ((d (edwards-bls12-d))) (fep d (edwards-bls12-q))) :rule-classes :rewrite)
Theorem:
(defthm edwards-bls12-d-not-zero (not (equal (edwards-bls12-d) 0)))
Theorem:
(defthm edwards-bls12-d-not-equal-to-a (not (equal (edwards-bls12-d) (edwards-bls12-a))))
Theorem:
(defthm not-pfield-squarep-of-edwards-bls12-d (not (pfield-squarep (edwards-bls12-d) (edwards-bls12-q))))