Hi!

I would like to use `DerivingVia` to do something like this:
```
import Data.Semigroup

data Four = Four Bool (Maybe Int) Bool Bool
  deriving (Semigroup, Monoid) via (Any, Option (First Int), Any, Any)
```

This, however, doesn't work, because `(Any, Option (First Int), Any, Any)` is not coercible to `Four`.

Even if I do
```
data Four a b c d = Four a b c d

type Concrete = Four Bool (Maybe Int) Bool Bool
```
`Concrete` is still not coercible to `(Any, Option (First Int), Any, Any)`.

This seems like a very common thing you would want to do (for me at least it pops up often, to want to have a `Monoid` instance that is just a pointwise Monoid over it's arguments (exactly the way an n-tuple is a `Monoid`). But I don't seem to be finding an easy way to do this. I am aware of `generic-deriving` but `DerivingVia` seems like it should be able to handle something like this, with only `Coercible` holding it back (?).

Thanks in advance,

=======
Georgi