Logically just 3vec-fix, but guarded with 3vec-p so that in the execution this is just the identity.
(3vec-fix-fast x) → *
Function:
(defun 3vec-fix-fast$inline (x) (declare (xargs :guard (3vec-p! x))) (let ((__function__ '3vec-fix-fast)) (declare (ignorable __function__)) (mbe :logic (3vec-fix x) :exec x)))