-- position induced by attribution
--
posOfAttrsOf :: Attributed a => a -> Position
posOfAttrsOf  = posOf . attrsOf
posOfAttrsOf :: Attributed a => a -> Position
posOfAttrsOf  = posOf . attrsOf
posOfAttrsOf  = posOf . attrsOf