+
+standardPropertiesElementTransformation :: Variable -> <ReadGraph> Variable
+standardPropertiesElementTransformation var = do
+ match getPossibleType var with
+ Nothing -> var
+ Just resourceType -> if isInheritedFrom resourceType DIA.Element then do
+ match possibleObject (represents var) MOD.ElementToComponent with
+ Nothing -> var
+ Just component -> resourceVariable component
+ else var