(<= (Quantity.Dimension $X Identity-Dimension)
(Dimensionless-Quantity $X))
(Inherited-Slot-Value Dimensionless-Quantity
Quantity.Dimension
Identity-Dimension)
(<=> (Dimensionless-Quantity ?X)
(And (Constant-Quantity ?X)
(= (Quantity.Dimension ?X) Identity-Dimension)))
(Forall (?D1 ?D2 ?R1 ?R2)
(=> (And (Physical-Dimension ?D1)
(Physical-Dimension ?D2)
(Real-Number ?R1)
(Real-Number ?R2))
(And (= (Expt ?D1 0) Identity-Dimension)
(= ?D1 (Expt ?D1 1))
(= (* (Expt ?D1 ?R1) (Expt ?D1 ?R2))
(Expt ?D1 (+ ?R1 ?R2)))
(= (Expt (* ?D1 ?D2) ?R1)
(* (Expt ?D1 ?R1) (Expt ?D2 ?R1)))
(= (Expt (Expt ?D1 ?R1) ?R2) (Expt ?D1 (* ?R1 ?R2))))))
(Abelian-Group Physical-Dimension * Identity-Dimension)
(= (Quantity.Dimension Identity-Unit) Identity-Dimension)