The Edwards-BLS12 curve
(edwards-bls12-curve) → curve
We show that it is complete.
Function:
(defun edwards-bls12-curve nil (declare (xargs :guard t)) (let ((acl2::__function__ 'edwards-bls12-curve)) (declare (ignorable acl2::__function__)) (make-twisted-edwards-curve :p (edwards-bls12-q) :a (edwards-bls12-a) :d (edwards-bls12-d))))
Theorem:
(defthm twisted-edwards-curvep-of-edwards-bls12-curve (b* ((curve (edwards-bls12-curve))) (twisted-edwards-curvep curve)) :rule-classes :rewrite)
Theorem:
(defthm twisted-edwards-curve-completep-of-edwards-bls12-curve (twisted-edwards-curve-completep (edwards-bls12-curve)))