the class of components which require work input
the power input into the work consuming component
(Forall (?Self ?Time)
(<=> (Active ?Time Work-Consuming-Component ?Self)
(And (Work-Consuming-Component ?Self)
(Active ?Time Thermal-Component ?Self))))
(=> (Work-Consuming-Component ?Self)
(Quantity.Dimension (Power-Input ?Self) Power-Dimension))