Prove functoriality of comma category construction

At least in its category arguments.

This is the first step in showing that two formulations of (co)limits
are equivalent.

Unfortunately, it's somewhat slow.  Ideas for speeding it up are welcome.

After    | File Name                                                          | Before   || Change
-----------------------------------------------------------------------------------------------------
6m54.93s | Total                                                              | 6m49.80s || +0m05.13s
-----------------------------------------------------------------------------------------------------
0m22.26s | categories/Comma/Functorial                                        |   N/A    || +0m22.26s
1m06.78s | categories/Pseudofunctor/RewriteLaws                               | 1m10.14s || -0m03.35s
0m22.66s | categories/Grothendieck/PseudofunctorToCat                         | 0m20.18s || +0m02.48s
0m10.75s | categories/Adjoint/Composition/AssociativityLaw                    | 0m13.59s || -0m02.83s
0m06.77s | categories/Adjoint/HomCoercions                                    | 0m09.19s || -0m02.41s
0m40.17s | categories/Comma/ProjectionFunctors                                | 0m41.95s || -0m01.78s
0m14.10s | categories/Comma/InducedFunctors                                   | 0m15.15s || -0m01.05s
0m09.86s | categories/Yoneda                                                  | 0m10.99s || -0m01.13s
0m06.15s | categories/Adjoint/UnitCounitCoercions                             | 0m04.89s || +0m01.26s
0m03.89s | categories/Adjoint/Composition/IdentityLaws                        | 0m04.92s || -0m01.02s
0m03.58s | categories/Adjoint/UniversalMorphisms                              | 0m05.10s || -0m01.51s
0m18.49s | categories/ExponentialLaws/Law4/Functors                           | 0m19.14s || -0m00.65s
0m13.08s | categories/Adjoint/Dual                                            | 0m13.69s || -0m00.60s
0m12.06s | categories/PseudonaturalTransformation/Core                        | 0m12.68s || -0m00.61s
0m11.06s | categories/FunctorCategory/Dual                                    | 0m10.97s || +0m00.08s
0m08.70s | categories/Adjoint/UnitCounit                                      | 0m08.70s || +0m00.00s
0m07.48s | categories/UniversalProperties                                     | 0m06.90s || +0m00.58s
0m06.05s | categories/Pseudofunctor/FromFunctor                               | 0m06.62s || -0m00.57s
0m05.88s | categories/Pseudofunctor/Identity                                  | 0m06.53s || -0m00.65s
0m05.52s | categories/Comma/Dual                                              | 0m05.14s || +0m00.37s
0m03.99s | categories/Adjoint/Composition/Core                                | 0m04.00s || -0m00.00s
0m03.90s | categories/Pseudofunctor/Core                                      | 0m04.06s || -0m00.15s
0m03.66s | categories/ExponentialLaws/Law1/Law                                | 0m03.38s || +0m00.28s
0m03.40s | categories/Structure/IdentityPrinciple                             | 0m03.62s || -0m00.22s
0m03.23s | categories/Functor/Pointwise/Properties                            | 0m03.62s || -0m00.39s
0m03.21s | categories/Limits/Core                                             | 0m04.07s || -0m00.86s
0m03.21s | categories/GroupoidCategory/Morphisms                              | 0m03.55s || -0m00.33s
0m03.12s | categories/Functor/Composition/Functorial/Core                     | 0m03.35s || -0m00.23s
0m03.09s | categories/Category/Morphisms                                      | 0m03.28s || -0m00.18s
0m02.78s | categories/Functor/Composition/Functorial/Attributes               | 0m02.55s || +0m00.23s
0m02.75s | hit/Flattening                                                     | 0m02.60s || +0m00.14s
0m02.36s | categories/ExponentialLaws/Law2/Functors                           | 0m02.61s || -0m00.25s
0m02.36s | categories/Functor/Prod/Functorial                                 | 0m02.30s || +0m00.06s
0m02.06s | categories/Functor/Prod/Universal                                  | 0m01.99s || +0m00.07s
0m02.04s | categories/Adjoint/Paths                                           | 0m01.98s || +0m00.06s
0m02.01s | categories/Functor/Attributes                                      | 0m02.46s || -0m00.45s
0m01.82s | categories/ExponentialLaws/Law  N/A                                | 0m01.78s || +0m00.04s
0m01.82s | categories/Category/Sigma/OnMorphisms                              | 0m01.89s || -0m00.06s
0m01.77s | categories/NaturalTransformation/Isomorphisms                      | 0m01.73s || +0m00.04s
0m01.76s | hit/Connectedness                                                  | 0m01.89s || -0m00.12s
0m01.75s | categories/InitialTerminalCategory/Pseudofunctors                  | 0m01.63s || +0m00.12s
0m01.67s | categories/ProductLaws                                             | 0m01.86s || -0m00.19s
0m01.64s | categories/NaturalTransformation/Pointwise                         | 0m01.51s || +0m00.12s
0m01.60s | categories/Functor/Pointwise                                       | 0m01.47s || +0m00.13s
0m01.57s | categories/FunctorCategory/Functorial                              | 0m01.80s || -0m00.23s
0m01.49s | categories/DualFunctor                                             | 0m02.11s || -0m00.61s
0m01.48s | categories/Functor/Sum                                             | 0m01.49s || -0m00.01s
0m01.46s | categories/Functor/Paths                                           | 0m01.60s || -0m00.14s
0m01.38s | categories/Limits/Functors                                         | 0m01.56s || -0m00.18s
0m01.28s | categories/FunctorCategory/Morphisms                               | 0m01.10s || +0m00.17s
0m01.18s | HSet                                                               | 0m01.17s || +0m00.01s
0m01.18s | types/Sigma                                                        | 0m01.13s || +0m00.05s
0m01.17s | Equivalences                                                       | 0m01.20s || -0m00.03s
0m01.16s | categories/Category/Sum                                            | 0m01.17s || -0m00.01s
0m01.14s | categories/ExponentialLaws/Law1/Functors                           | 0m01.17s || -0m00.03s
0m01.11s | HProp                                                              | 0m01.10s || +0m00.01s
0m01.03s | PathGroupoids                                                      | 0m00.99s || +0m00.04s
0m01.03s | categories/KanExtensions/Functors                                  | 0m01.35s || -0m00.32s
0m01.02s | types/Record                                                       | 0m00.98s || +0m00.04s
0m01.00s | categories/Structure/Core                                          | 0m00.92s || +0m00.07s
0m00.97s | categories/Comma/Core                                              | 0m01.08s || -0m00.11s
0m00.93s | categories/Category/Sigma/Core                                     | 0m00.92s || +0m00.01s
0m00.92s | EquivalenceVarieties                                               | 0m00.85s || +0m00.07s
0m00.87s | categories/Functor/Prod                                            | 0m00.84s || +0m00.03s
0m00.81s | categories/NaturalTransformation/Prod                              | 0m00.76s || +0m00.05s
0m00.80s | categories/HomFunctor                                              | 0m00.82s || -0m00.01s
0m00.80s | types/ObjectClassifier                                             | 0m00.75s || +0m00.05s
0m00.78s | categories/Grothendieck/ToCat                                      | 0m00.84s || -0m00.05s
0m00.73s | contrib/HoTTBook                                                   | 0m00.52s || +0m00.20s
0m00.70s | contrib/HoTTBookExercises                                          | 0m00.57s || +0m00.13s
0m00.69s | categories/categories                                              | 0m00.53s || +0m00.15s
0m00.67s | categories/Category/Prod                                           | 0m00.67s || +0m00.00s
0m00.64s | categories/Grothendieck/ToSet                                      | 0m00.62s || +0m00.02s
0m00.60s | categories/NaturalTransformation/Dual                              | 0m00.57s || +0m00.03s
0m00.58s | categories/Category/Sigma/OnObjects                                | 0m00.65s || -0m00.07s
0m00.58s | hit/Spheres                                                        | 0m00.53s || +0m00.04s
0m00.58s | categories/KanExtensions/Core                                      | 0m00.53s || +0m00.04s
0m00.56s | types/Prod                                                         | 0m00.50s || +0m00.06s
0m00.56s | types/Paths                                                        | 0m00.50s || +0m00.06s
0m00.52s | categories/ExponentialLaws/Law3/Functors                           | 0m00.43s || +0m00.09s
0m00.48s | categories/SetCategory/Morphisms                                   | 0m00.46s || +0m00.01s
0m00.46s | hit/epi                                                            | 0m00.52s || -0m00.06s
0m00.46s | categories/NaturalTransformation/Composition/Laws                  | 0m00.43s || +0m00.03s
0m00.45s | categories/InitialTerminalCategory/Functors                        | 0m00.44s || +0m00.01s
0m00.45s | categories/Comma/Projection                                        | 0m00.48s || -0m00.02s
0m00.44s | hit/Circle                                                         | 0m00.42s || +0m00.02s
0m00.42s | categories/CategoryOfSections/Core                                 | 0m00.44s || -0m00.02s
0m00.41s | categories/NaturalTransformation/Paths                             | 0m00.44s || -0m00.03s
0m00.38s | types/Universe                                                     | 0m00.38s || +0m00.00s
0m00.37s | categories/NaturalTransformation/Composition/Functorial            | 0m00.35s || +0m00.02s
0m00.35s | types/Sum                                                          | 0m00.33s || +0m00.01s
0m00.32s | Tactics                                                            | 0m00.32s || +0m00.00s
0m00.32s | hit/quotient                                                       | 0m00.34s || -0m00.02s
0m00.31s | categories/Cat/Core                                                | 0m00.28s || +0m00.02s
0m00.31s | hit/Suspension                                                     | 0m00.26s || +0m00.04s
0m00.30s | types/Forall                                                       | 0m00.27s || +0m00.02s
0m00.29s | categories/Adjoint/Hom                                             | 0m00.34s || -0m00.05s
0m00.29s | categories/Functor/Composition/Laws                                | 0m00.28s || +0m00.00s
0m00.28s | categories/NaturalTransformation/Sum                               | 0m00.31s || -0m00.02s
0m00.27s | categories/DependentProduct                                        | 0m00.26s || +0m00.01s
0m00.27s | categories/FundamentalPreGroupoidCategory                          | 0m00.22s || +0m00.05s
0m00.27s | categories/PseudonaturalTransformation/PseudonaturalTransformation | 0m00.24s || +0m00.03s
0m00.26s | Trunc                                                              | 0m00.22s || +0m00.04s
0m00.26s | Functorish                                                         | 0m00.22s || +0m00.04s
0m00.26s | hit/minus1Trunc                                                    | 0m00.26s || +0m00.00s
0m00.26s | categories/NaturalTransformation/Composition/Core                  | 0m00.24s || +0m00.02s
0m00.25s | categories/Adjoint/Adjoint                                         | 0m00.24s || +0m00.01s
0m00.24s | categories/SetCategory/Functors/Functors                           | 0m00.17s || +0m00.06s
0m00.24s | categories/CategoryOfGroupoids                                     | 0m00.26s || -0m00.02s
0m00.23s | categories/ExponentialLaws/ExponentialLaws                         | 0m00.19s || +0m00.04s
0m00.23s | categories/Cat/Morphisms                                           | 0m00.23s || +0m00.00s
0m00.22s | categories/IndiscreteCategory                                      | 0m00.30s || -0m00.07s
0m00.22s | HoTT                                                               | 0m00.13s || +0m00.09s
0m00.22s | categories/Utf8                                                    | 0m00.20s || +0m00.01s
0m00.22s | categories/Notations                                               | 0m00.20s || +0m00.01s
0m00.22s | Fibrations                                                         | 0m00.30s || -0m00.07s
0m00.20s | categories/Functor/Composition/Functorial                          | 0m00.28s || -0m00.08s
0m00.20s | categories/Functor/Composition/Composition                         | 0m00.28s || -0m00.08s
0m00.20s | TruncType                                                          | 0m00.22s || -0m00.01s
0m00.20s | categories/Pseudofunctor/Pseudofunctor                             | 0m00.16s || +0m00.04s
0m00.20s | categories/Grothendieck/Grothendieck                               | 0m00.17s || +0m00.03s
0m00.19s | categories/Profunctor/Representable                                | 0m00.11s || +0m00.08s
0m00.19s | types/Arrow                                                        | 0m00.23s || -0m00.04s
0m00.19s | categories/Functor/Functor                                         | 0m00.31s || -0m00.12s
0m00.19s | categories/NaturalTransformation/Identity                          | 0m00.16s || +0m00.03s
0m00.18s | categories/InitialTerminalCategory/NaturalTransformations          | 0m00.20s || -0m00.02s
0m00.18s | categories/Limits/Limits                                           | 0m00.19s || -0m00.01s
0m00.18s | categories/NaturalTransformation/NaturalTransformation             | 0m00.20s || -0m00.02s
0m00.18s | UnivalenceImpliesFunext                                            | 0m00.25s || -0m00.07s
0m00.18s | categories/Functor/Dual                                            | 0m00.25s || -0m00.07s
0m00.18s | categories/Adjoint/Notations                                       | 0m00.16s || +0m00.01s
0m00.18s | categories/Category/Objects                                        | 0m00.13s || +0m00.04s
0m00.18s | types/Bool                                                         | 0m00.18s || +0m00.00s
0m00.18s | Tests                                                              | 0m00.17s || +0m00.00s
0m00.17s | categories/Functor/Notations                                       | 0m00.20s || -0m00.03s
0m00.17s | categories/HomotopyPreCategory                                     | 0m00.18s || -0m00.00s
0m00.17s | categories/Adjoint/Composition/LawsTactic                          | 0m00.17s || +0m00.00s
0m00.16s | categories/KanExtensions/KanExtensions                             | 0m00.19s || -0m00.03s
0m00.16s | categories/Adjoint/Identity                                        | 0m00.18s || -0m00.01s
0m00.16s | categories/Comma/Comma                                             | 0m00.16s || +0m00.00s
0m00.16s | categories/NaturalTransformation/Core                              | 0m00.16s || +0m00.00s
0m00.16s | categories/Profunctor/Utf8                                         | 0m00.18s || -0m00.01s
0m00.15s | Conjugation                                                        | 0m00.18s || -0m00.03s
0m00.15s | categories/Comma/Utf8                                              | 0m00.16s || -0m00.01s
0m00.15s | categories/Adjoint/Core                                            | 0m00.10s || +0m00.04s
0m00.15s | categories/Functor/Prod/Prod                                       | 0m00.17s || -0m00.02s
0m00.15s | categories/FunctorCategory/FunctorCategory                         | 0m00.24s || -0m00.09s
0m00.15s | Modality                                                           | 0m00.18s || -0m00.03s
0m00.15s | categories/InitialTerminalCategory/Notations                       | 0m00.13s || +0m00.01s
0m00.15s | categories/NatCategory                                             | 0m00.16s || -0m00.01s
0m00.15s | categories/Adjoint/Composition/Composition                         | 0m00.15s || +0m00.00s
0m00.15s | categories/Functor/Utf8                                            | 0m00.21s || -0m00.06s
0m00.15s | FunextVarieties                                                    | 0m00.13s || +0m00.01s
0m00.15s | categories/NaturalTransformation/Utf8                              | 0m00.16s || -0m00.01s
0m00.15s | categories/FunctorCategory/Core                                    | 0m00.16s || -0m00.01s
0m00.14s | categories/ExponentialLaws/Law3/Law3                               | 0m00.14s || +0m00.00s
0m00.14s | categories/Adjoint/Utf8                                            | 0m00.13s || +0m00.01s
0m00.14s | categories/Cat/Cat                                                 | 0m00.21s || -0m00.06s
0m00.14s | categories/FunctorCategory/Utf8                                    | 0m00.16s || -0m00.01s
0m00.14s | hit/iso                                                            | 0m00.14s || +0m00.00s
0m00.14s | categories/Category/Dual                                           | 0m00.14s || +0m00.00s
0m00.14s | Misc                                                               | 0m00.11s || +0m00.03s
0m00.14s | categories/InitialTerminalCategory/Core                            | 0m00.14s || +0m00.00s
0m00.14s | categories/Profunctor/Profunctor                                   | 0m00.14s || +0m00.00s
0m00.14s | categories/GroupoidCategory/Core                                   | 0m00.15s || -0m00.00s
0m00.14s | categories/Category/Category                                       | 0m00.16s || -0m00.01s
0m00.14s | categories/InitialTerminalCategory/InitialTerminalCategory         | 0m00.25s || -0m00.10s
0m00.14s | categories/ExponentialLaws/Law2/Law2                               | 0m00.12s || +0m00.02s
0m00.14s | Overture                                                           | 0m00.13s || +0m00.01s
0m00.14s | hit/Truncations                                                    | 0m00.12s || +0m00.02s
0m00.14s | categories/Category/Pi                                             | 0m00.17s || -0m00.03s
0m00.13s | categories/Profunctor/Core                                         | 0m00.16s || -0m00.03s
0m00.13s | coq/Init/Peano                                                     | 0m00.12s || +0m00.01s
0m00.13s | categories/ExponentialLaws/Law1/Law1                               | 0m00.22s || -0m00.09s
0m00.13s | types/Unit                                                         | 0m00.15s || -0m00.01s
0m00.12s | Contractible                                                       | 0m00.11s || +0m00.00s
0m00.12s | hit/Interval                                                       | 0m00.14s || -0m00.02s
0m00.12s | categories/SetCategory/Core                                        | 0m00.12s || +0m00.00s
0m00.12s | categories/Profunctor/Notations                                    | 0m00.11s || +0m00.00s
0m00.12s | categories/Structure/Structure                                     | 0m00.11s || +0m00.00s
0m00.12s | categories/Structure/Notations                                     | 0m00.11s || +0m00.00s
0m00.12s | categories/Category/Subcategory/Subcategory                        | 0m00.12s || +0m00.00s
0m00.12s | categories/Category/Core                                           | 0m00.12s || +0m00.00s
0m00.11s | categories/GroupoidCategory/GroupoidCategory                       | 0m00.10s || +0m00.00s
0m00.11s | categories/Category/Utf8                                           | 0m00.11s || +0m00.00s
0m00.11s | categories/NaturalTransformation/Composition/Composition           | 0m00.12s || -0m00.00s
0m00.11s | categories/CategoryOfSections/CategoryOfSections                   | 0m00.16s || -0m00.05s
0m00.10s | hit/unique_choice                                                  | 0m00.14s || -0m00.04s
0m00.10s | categories/Category/Univalent                                      | 0m00.14s || -0m00.04s
0m00.10s | categories/Comma/Notations                                         | 0m00.11s || -0m00.00s
0m00.10s | categories/Functor/Composition/Core                                | 0m00.13s || -0m00.03s
0m00.10s | types/UniverseLevel                                                | 0m00.05s || +0m00.05s
0m00.10s | categories/NaturalTransformation/Notations                         | 0m00.26s || -0m00.16s
0m00.10s | hit/TwoSphere                                                      | 0m00.11s || -0m00.00s
0m00.10s | categories/Category/Notations                                      | 0m00.12s || -0m00.01s
0m00.10s | categories/Category/Subcategory/Full                               | 0m00.09s || +0m00.01s
0m00.10s | categories/FunctorCategory/Notations                               | 0m00.11s || -0m00.00s
0m00.10s | FunextAxiom                                                        | 0m00.07s || +0m00.03s
0m00.09s | categories/DiscreteCategory                                        | 0m00.10s || -0m00.01s
0m00.09s | Pointed                                                            | 0m00.07s || +0m00.01s
0m00.09s | categories/Profunctor/Identity                                     | 0m00.15s || -0m00.06s
0m00.09s | categories/Category/Sigma/Sigma                                    | 0m00.14s || -0m00.05s
0m00.09s | categories/Functor/Pointwise/Pointwise                             | 0m00.10s || -0m00.01s
0m00.09s | types/Empty                                                        | 0m00.07s || +0m00.01s
0m00.08s | categories/Functor/Identity                                        | 0m00.10s || -0m00.02s
0m00.08s | categories/ExponentialLaws/Law4/Law4                               | 0m00.12s || -0m00.03s
0m00.08s | categories/Functor/Core                                            | 0m00.10s || -0m00.02s
0m00.08s | categories/Category/Subcategory/Wide                               | 0m00.11s || -0m00.03s
0m00.08s | categories/SetCategory/SetCategory                                 | 0m00.14s || -0m00.06s
0m00.08s | coq/Init/Logic_Type                                                | 0m00.08s || +0m00.00s
0m00.08s | coq/Program/Tactics                                                | 0m00.04s || +0m00.04s
0m00.08s | categories/Structure/Utf8                                          | 0m00.10s || -0m00.02s
0m00.07s | UnivalenceAxiom                                                    | 0m00.08s || -0m00.00s
0m00.06s | categories/Category/Strict                                         | 0m00.06s || +0m00.00s
0m00.06s | coq/Init/Specif                                                    | 0m00.06s || +0m00.00s
0m00.04s | coq/Init/Notations                                                 | 0m00.05s || -0m00.01s
0m00.04s | coq/Init/Datatypes                                                 | 0m00.05s || -0m00.01s
0m00.03s | coq/Init/Logic                                                     | 0m00.02s || +0m00.00s
0m00.03s | coq/Init/Prelude                                                   | 0m00.05s || -0m00.02s
0m00.02s | coq/Bool/Bool                                                      | 0m00.02s || +0m00.00s
0m00.02s | coq/Init/Tactics                                                   | 0m00.03s || -0m00.00s