Build the elliptic curve point at infinity.
(point-infinite) → p
Function:
(defun point-infinite nil (declare (xargs :guard t)) (let ((acl2::__function__ 'point-infinite)) (declare (ignorable acl2::__function__)) ':infinity))
Theorem:
(defthm pointp-of-point-infinite (b* ((p (point-infinite))) (pointp p)) :rule-classes :rewrite)
Theorem:
(defthm point-kind-of-point-infinite (equal (point-kind (point-infinite)) :infinite))
Theorem:
(defthm point-fix-when-infinite (implies (equal (point-kind p) :infinite) (equal (point-fix p) (point-infinite))))
Theorem:
(defthm equal-of-point-infinite (equal (equal (point-infinite) p) (and (pointp p) (equal (point-kind p) :infinite))))