In the source code on Hackage I read this:
instance Profunctor (->) where dimap ab cd bc = cd . bc . ab {-# INLINE d