Infinite width X
(svex-x) → svex
Function:
(defun svex-x nil (declare (xargs :guard t)) (let ((__function__ 'svex-x)) (declare (ignorable __function__)) (sv::svex-quote (sv::4vec-x))))
Theorem:
(defthm svex-p-of-svex-x (b* ((svex (svex-x))) (sv::svex-p svex)) :rule-classes :rewrite)