Be smarter about coercions in Adjoint.Hom

After    | File Name                             | Before
-----------------------------------------------------------
0m22.24s | Adjoint/UnitCounitCoercions           | 0m21.95s
0m22.19s | Adjoint/Hom                           | 0m58.51s
0m18.90s | Category/Equality                     | 0m19.10s
0m10.07s | Comma/Duals                           | 0m10.91s
0m07.74s | Comma/InducedFunctors                 | 0m08.08s
0m07.33s | Groupoid                              | 0m07.04s
0m05.41s | Category/Morphisms                    | 0m05.35s
0m04.78s | SumPreCategory                        | 0m04.77s
0m04.30s | Groupoid/Duals                        | 0m04.13s
0m04.13s | Functor/Equality                      | 0m04.02s
0m03.58s | Groupoid/Functors                     | 0m03.65s
0m03.16s | UniversalProperties                   | 0m03.38s
0m02.62s | Grothendieck/ToSet                    | 0m02.60s
0m02.50s | BoolCategory                          | 0m02.41s
0m02.36s | Comma/CommaCategory                   | 0m02.42s
0m01.98s | Category/Product                      | 0m01.97s
0m01.84s | NaturalTransformation/Equality        | 0m01.84s
0m01.79s | NaturalTransformation/Duals           | 0m01.64s
0m01.62s | Hom                                   | 0m01.70s
0m01.44s | NaturalTransformation/Product         | 0m01.31s
0m01.37s | NaturalTransformation/Composition     | 0m01.28s
0m01.27s | Functor/Product                       | 0m01.29s
0m01.20s | NaturalTransformation/CompositionLaws | 0m01.18s
0m01.05s | NaturalTransformation/Isomorphisms    | 0m01.16s
0m00.80s | Cat/Morphisms                         | 0m00.82s
0m00.74s | FunctorCategory/Morphisms             | 0m00.66s
0m00.64s | InitialTerminalCategory               | 0m00.56s
0m00.43s | Functor/CompositionLaws               | 0m00.42s
0m00.40s | Comma/Projection                      | 0m00.38s
0m00.36s | SetCategory                           | 0m00.34s
0m00.35s | Discrete/Duals                        | 0m00.34s
0m00.34s | NaturalTransformation/Identity        | 0m00.28s
0m00.32s | IndiscreteCategory                    | 0m00.37s
0m00.30s | FunctorCategory                       | 0m00.29s
0m00.29s | Cat                                   | 0m00.28s
0m00.29s | Common                                | 0m00.30s
0m00.26s | Functor/Duals                         | 0m00.23s
0m00.24s | Functor/Composition                   | 0m00.20s
0m00.22s | Category/Objects                      | 0m00.26s
0m00.22s | NatCategory                           | 0m00.27s
0m00.22s | Adjoint/UnitCounit                    | 0m00.26s
0m00.20s | IsGroupoid                            | 0m00.20s
0m00.19s | NatCategory/Duals                     | 0m00.18s
0m00.18s | Category/Core                         | 0m00.18s
0m00.17s | Adjoint                               | 0m00.16s
0m00.17s | NaturalNumbersObject                  | 0m00.17s
0m00.17s | Category/Duals                        | 0m00.16s
0m00.16s | ComputableCat                         | 0m00.16s
0m00.16s | NaturalTransformation/Core            | 0m00.18s
0m00.12s | Functor/Core                          | 0m00.14s
0m00.12s | DiscreteCategory                      | 0m00.08s
0m00.12s | Category/UnivalentCategory            | 0m00.07s
0m00.12s | Peano                                 | 0m00.13s
0m00.10s | NaturalTransformation                 | 0m00.10s
0m00.10s | Functor                               | 0m00.09s
0m00.10s | Grothendieck                          | 0m00.08s
0m00.09s | Category                              | 0m00.07s
0m00.09s | Category/StrictCategory               | 0m00.11s
0m00.08s | Functor/Identity                      | 0m00.10s
0m00.08s | Utf8                                  | 0m00.09s
0m00.04s | NotationsUtf8                         | 0m00.04s
0m00.04s | Notations                             | 0m00.04s
-----------------------------------------------------------
2m23.88s | Total                                 | 3m00.47s