Prove [IsEquiv (ap pr1)] for [HProp] and [HSet]

This is useful for proving that the precategory of sets is a category.

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

Prove that [ap pr1] is an equivalence for [HProp] and [HSet]