(<=> (Dimension-Composable-From ?Dim ?Set-Of-Dimensions)
(Or (Member ?Dim ?Set-Of-Dimensions)
(Exists (?Dim1 ?Dim2)
(And (Dimension-Composable-From ?Dim1
?Set-Of-Dimensions)
(Dimension-Composable-From ?Dim2
?Set-Of-Dimensions)
(= ?Dim (* ?Dim1 ?Dim2))))
(Exists (?Dim1 ?Real)
(And (Dimension-Composable-From ?Dim1
?Set-Of-Dimensions)
(Real-Number ?Real)
(= ?Dim (Expt ?Dim1 ?Real))))))
(=> (Member ?Dim ?Set-Of-Dimensions)
(And (Physical-Dimension ?Dim)
(Not (Dimension-Composable-From ?Dim
(Difference
?Set-Of-Dimensions
(Setof ?Dim))))))
(<=> (Orthogonal-Dimension-Set ?Set-Of-Dimensions)
(And (Simple-Set ?Set-Of-Dimensions)
(=> (Member ?Dim ?Set-Of-Dimensions)
(And (Physical-Dimension ?Dim)
(Not (Dimension-Composable-From
?Dim
(Difference ?Set-Of-Dimensions
(Setof ?Dim))))))))
(=> (Dimension-Composable-From $X $Y) (Physical-Dimension $X))
(=> (Dimension-Composable-From ?Dim ?Set-Of-Dimensions)
(=> (Member ?Dim ?Set-Of-Dimensions) (Physical-Dimension ?Dim)))
(<=> (Dimension-Composable-From ?Dim ?Set-Of-Dimensions)
(Or (Member ?Dim ?Set-Of-Dimensions)
(Exists (?Dim1 ?Dim2)
(And (Dimension-Composable-From ?Dim1
?Set-Of-Dimensions)
(Dimension-Composable-From ?Dim2
?Set-Of-Dimensions)
(= ?Dim (* ?Dim1 ?Dim2))))
(Exists (?Dim1 ?Real)
(And (Dimension-Composable-From ?Dim1
?Set-Of-Dimensions)
(Real-Number ?Real)
(= ?Dim (Expt ?Dim1 ?Real))))))