(<=> (Unit-Vec ?V)
(And (Vector-Quantity ?V)
(= (Quantity.Dimension ?V) Identity-Dimension)
(= (Dot ?V ?V) 1)))
(= (Dot ?V ?V) 1) (Vector-Quantity ?V)
(<= (Quantity.Dimension $X Identity-Dimension) (Unit-Vec $X))
(<=> (Unit-Vec ?V)
(And (Vector-Quantity ?V)
(= (Quantity.Dimension ?V) Identity-Dimension)
(= (Dot ?V ?V) 1)))
(Nth-Domain Basis.Vec 3 Unit-Vec)