Add Adjoint Identity

After    | File Name                             | Before
-----------------------------------------------------------
0m21.92s | Adjoint/UnitCounitCoercions           | 0m23.01s
0m21.43s | Adjoint/Hom                           | 0m21.39s
0m19.12s | Category/Equality                     | 0m20.58s
0m10.60s | Comma/Duals                           | 0m10.00s
0m07.81s | Comma/InducedFunctors                 | 0m07.70s
0m07.25s | Groupoid                              | 0m07.28s
0m05.52s | Adjoint/Duals                         | 0m05.46s
0m05.30s | Category/Morphisms                    | 0m05.59s
0m04.92s | SumPreCategory                        | 0m04.76s
0m04.44s | Groupoid/Duals                        | 0m04.35s
0m04.21s | Functor/Equality                      | 0m04.15s
0m03.74s | Groupoid/Functors                     | 0m03.72s
0m03.34s | UniversalProperties                   | 0m03.36s
0m02.65s | Grothendieck/ToSet                    | 0m02.76s
0m02.44s | BoolCategory                          | 0m02.62s
0m02.38s | Comma/CommaCategory                   | 0m02.39s
0m01.95s | Category/Product                      | 0m01.90s
0m01.80s | NaturalTransformation/Duals           | 0m01.78s
0m01.75s | NaturalTransformation/Equality        | 0m01.82s
0m01.57s | Hom                                   | 0m01.58s
0m01.42s | NaturalTransformation/Product         | 0m01.40s
0m01.32s | NaturalTransformation/Composition     | 0m01.30s
0m01.25s | Functor/Product                       | 0m01.15s
0m01.22s | NaturalTransformation/CompositionLaws | 0m01.25s
0m01.08s | NaturalTransformation/Isomorphisms    | 0m01.12s
0m00.72s | Cat/Morphisms                         | 0m00.74s
0m00.68s | FunctorCategory/Morphisms             | 0m00.69s
0m00.64s | InitialTerminalCategory               | 0m00.62s
0m00.44s | Functor/CompositionLaws               | 0m00.43s
0m00.42s | Comma/Projection                      | 0m00.41s
0m00.38s | IndiscreteCategory                    | 0m00.31s
0m00.33s | Discrete/Duals                        | 0m00.35s
0m00.33s | Common                                | 0m00.30s
0m00.30s | Cat                                   | 0m00.29s
0m00.30s | FunctorCategory                       | 0m00.28s
0m00.30s | NaturalTransformation/Identity        | 0m00.31s
0m00.29s | SetCategory                           | 0m00.34s
0m00.28s | Adjoint/UnitCounit                    | 0m00.28s
0m00.24s | Functor/Duals                         | 0m00.28s
0m00.23s | NatCategory                           | 0m00.22s
0m00.22s | Category/Objects                      | 0m00.24s
0m00.22s | Functor/Composition                   | 0m00.25s
0m00.20s | IsGroupoid                            | 0m00.22s
0m00.19s | Category/Core                         | 0m00.17s
0m00.17s | NaturalNumbersObject                  | 0m00.17s
0m00.16s | Adjoint                               | 0m00.14s
0m00.16s | ComputableCat                         | 0m00.17s
0m00.16s | Adjoint/Identity                      |   N/A
0m00.15s | NatCategory/Duals                     | 0m00.16s
0m00.14s | Category/Duals                        | 0m00.16s
0m00.14s | NaturalTransformation/Core            | 0m00.15s
0m00.12s | Peano                                 | 0m00.13s
0m00.11s | Functor                               | 0m00.09s
0m00.11s | Utf8                                  | 0m00.12s
0m00.10s | NaturalTransformation                 | 0m00.10s
0m00.10s | Category/UnivalentCategory            | 0m00.10s
0m00.10s | Grothendieck                          | 0m00.09s
0m00.09s | Functor/Core                          | 0m00.12s
0m00.08s | DiscreteCategory                      | 0m00.10s
0m00.07s | Category                              | 0m00.08s
0m00.07s | Functor/Identity                      | 0m00.08s
0m00.06s | Category/StrictCategory               | 0m00.07s
0m00.05s | NotationsUtf8                         | 0m00.04s
0m00.04s | Notations                             | 0m00.06s
-----------------------------------------------------------
2m29.31s | Total                                 | 2m31.28s
Add helper lemmas