Speed up comma/dual by a factor of 5

By explicitly giving proofs and by using Comma.path_morphism.

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