# Normalize fully-applied type functions prior to display

I have a module with a matrix type constructor:

`> data (Natural r, Natural c) => Matrix r c t = Matrix [[t]] deriving (Eq)`

which uses type-level naturals to provide dimension checking.

A type class for multiplication:

```
> class Multiply a b where
> type Product a b
> times :: a -> b -> Product a b
```

and an instance for matrix multiplication:

```
> instance (Natural a, Natural b, Natural c, Num t) => Multiply (Matrix a b t) (Matrix b c t) where
> type Product (Matrix a b t) (Matrix b c t) = Matrix a c t
> times m1 m2 = ...
```

All of this works really well, I get dimension checking (and inference), and lot of other goodies.

My request has to do with the following GHCi session:

```
*Main> let a = matrix two two [[1,1],[2,6]]
*Main> :t a
a :: Matrix Two Two Integer
*Main> :t a `times` a
a `times` a :: Product
(Matrix Two Two Integer) (Matrix Two Two Integer)
```

When a type function is fully-applied, as Product is in this case, it would be nice if GHC could simplify it prior to display.

This would result in the following output for this example:

```
:t a `times` a
a `times` a :: Matrix Two Two Integer
```

I have attached the files necessary to run this test case, although a simpler one could be constructed.