Would it be significantly better than just having/using the following definition?

unzipF :: Functor f => f (a, b) -> (f a, f b)

unzipF x = (fmap fst x, fmap snd x)