The coefficient
(baby-jubjub-a) → a
This is not zero and is a square. We show that it is a square by exhibiting a square root, found using Mathematica's PowerMod.
Function:
(defun baby-jubjub-a nil (declare (xargs :guard t)) (let ((acl2::__function__ 'baby-jubjub-a)) (declare (ignorable acl2::__function__)) 168700))
Theorem:
(defthm return-type-of-baby-jubjub-a (b* ((a (baby-jubjub-a))) (fep a (baby-jubjub-prime))) :rule-classes :rewrite)
Theorem:
(defthm baby-jubjub-a-not-zero (not (equal (baby-jubjub-a) 0)))
Theorem:
(defthm pfield-squarep-of-baby-jubjub-a (pfield-squarep (baby-jubjub-a) (baby-jubjub-prime)))