(<=> (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)