Numeric.Units.Dimensional.Variants
data Variant
data Metricality
type family (v1 :: Variant) * (v2 :: Variant) :: Variant where ...
type family Weaken (v :: Variant) :: Variant where ...