fix(category_theory): require morphisms are in Type, again (#1412)

* chore(category_theory): require morphisms live in Type

* move back to Type

* fixes

Author: kim-em

src/algebraic_geometry/presheafed_space.lean

@@ -23,7 +23,7 @@ open topological_space
 open opposite
 open category_theory.category category_theory.functor
 
-variables (C : Type u) [𝒞 : category.{v+1} C]
+variables (C : Type u) [𝒞 : category.{v} C]
 include 𝒞
 
 local attribute [tidy] tactic.op_induction'
@@ -67,7 +67,7 @@ end
 
 def id (X : PresheafedSpace.{v} C) : hom X X :=
 { f := 𝟙 (X : Top.{v}),
-  c := ((functor.left_unitor _).inv) ≫ (whisker_right (nat_trans.op (opens.map_id _).hom) _) }
+  c := ((functor.left_unitor _).inv) ≫ (whisker_right (nat_trans.op (opens.map_id (X.to_Top)).hom) _) }
 
 def comp (X Y Z : PresheafedSpace.{v} C) (α : hom X Y) (β : hom Y Z) : hom X Z :=
 { f := α.f ≫ β.f,
@@ -131,7 +131,7 @@ instance {X Y : PresheafedSpace.{v} C} : has_coe (X ⟶ Y) (X.to_Top ⟶ Y.to_To
 
 lemma id_c (X : PresheafedSpace.{v} C) :
   ((𝟙 X) : X ⟶ X).c =
-  (((functor.left_unitor _).inv) ≫ (whisker_right (nat_trans.op (opens.map_id _).hom) _)) := rfl
+  (((functor.left_unitor _).inv) ≫ (whisker_right (nat_trans.op (opens.map_id (X.to_Top)).hom) _)) := rfl
 
 -- Implementation note: this harmless looking lemma causes deterministic timeouts,
 -- but happily we can survive without it.
@@ -160,7 +160,7 @@ variables {C}
 
 namespace category_theory
 
-variables {D : Type u} [𝒟 : category.{v+1} D]
+variables {D : Type u} [𝒟 : category.{v} D]
 include 𝒟
 
 local attribute [simp] presheaf.pushforward
@@ -209,7 +209,7 @@ def on_presheaf {F G : C ⥤ D} (α : F ⟶ G) : G.map_presheaf ⟶ F.map_preshe
 { app := λ X,
   { f := 𝟙 _,
     c := whisker_left X.𝒪 α ≫ ((functor.left_unitor _).inv) ≫
-           (whisker_right (nat_trans.op (opens.map_id _).hom) _) },
+           (whisker_right (nat_trans.op (opens.map_id X.to_Top).hom) _) },
   naturality' := λ X Y f,
   begin
     ext1, swap,

src/algebraic_geometry/stalks.lean

@@ -20,7 +20,7 @@ open category_theory.limits category_theory.category category_theory.functor
 open algebraic_geometry
 open topological_space
 
-variables {C : Type u} [𝒞 : category.{v+1} C] [has_colimits.{v} C]
+variables {C : Type u} [𝒞 : category.{v} C] [has_colimits.{v} C]
 include 𝒞
 
 local attribute [tidy] tactic.op_induction'

src/category_theory/adjunction/limits.lean

@@ -15,7 +15,7 @@ open category_theory.limits
 
 universes u₁ u₂ v
 
-variables {C : Type u₁} [𝒞 : category.{v+1} C] {D : Type u₂} [𝒟 : category.{v+1} D]
+variables {C : Type u₁} [𝒞 : category.{v} C] {D : Type u₂} [𝒟 : category.{v} D]
 include 𝒞 𝒟
 
 variables {F : C ⥤ D} {G : D ⥤ C} (adj : F ⊣ G)

src/category_theory/category/Cat.lean

@@ -33,7 +33,7 @@ instance str (C : Cat.{v u}) : category.{v u} C.α := C.str
 def of (C : Type u) [category.{v} C] : Cat.{v u} := mk_ob C
 
 /-- Category structure on `Cat` -/
-instance category : category.{(max u v)+1 (max v (u+1))} Cat.{v u} :=
+instance category : large_category.{max v u} Cat.{v u} :=
 { hom := λ C D, C.α ⥤ D.α,
   id := λ C, 𝟭 C.α,
   comp := λ C D E F G, F ⋙ G,

src/category_theory/category/Groupoid.lean

@@ -36,7 +36,7 @@ instance str (C : Groupoid.{v u}) : groupoid.{v u} C.α := C.str
 def of (C : Type u) [groupoid.{v} C] : Groupoid.{v u} := mk_ob C
 
 /-- Category structure on `Groupoid` -/
-instance category : category.{(max u v)+1 (max v (u+1))} Groupoid.{v u} :=
+instance category : large_category.{max v u} Groupoid.{v u} :=
 { hom := λ C D, C.α ⥤ D.α,
   id := λ C, 𝟭 C.α,
   comp := λ C D E F G, F ⋙ G,

src/category_theory/category/default.lean

@@ -31,13 +31,13 @@ powerful tactics.
 def_replacer obviously
 @[obviously] meta def obviously' := tactic.tidy
 
-class has_hom (obj : Type u) : Type (max u v) :=
-(hom : obj → obj → Sort v)
+class has_hom (obj : Type u) : Type (max u (v+1)) :=
+(hom : obj → obj → Type v)
 
 infixr ` ⟶ `:10 := has_hom.hom -- type as \h
 
 class category_struct (obj : Type u)
-extends has_hom.{v} obj : Type (max u v) :=
+extends has_hom.{v} obj : Type (max u (v+1)) :=
 (id       : Π X : obj, hom X X)
 (comp     : Π {X Y Z : obj}, (X ⟶ Y) → (Y ⟶ Z) → (X ⟶ Z))
 
@@ -50,7 +50,7 @@ The universe levels of the objects and morphisms are unconstrained, and will oft
 specified explicitly, as `category.{v} C`. (See also `large_category` and `small_category`.)
 -/
 class category (obj : Type u)
-extends category_struct.{v} obj : Type (max u v) :=
+extends category_struct.{v} obj : Type (max u (v+1)) :=
 (id_comp' : ∀ {X Y : obj} (f : hom X Y), 𝟙 X ≫ f = f . obviously)
 (comp_id' : ∀ {X Y : obj} (f : hom X Y), f ≫ 𝟙 Y = f . obviously)
 (assoc'   : ∀ {W X Y Z : obj} (f : hom W X) (g : hom X Y) (h : hom Y Z),
@@ -74,11 +74,11 @@ A `large_category` has objects in one universe level higher than the universe le
 the morphisms. It is useful for examples such as the category of types, or the category
 of groups, etc.
 -/
-abbreviation large_category (C : Type u) : Type u := category.{u} C
+abbreviation large_category (C : Type (u+1)) : Type (u+1) := category.{u} C
 /--
 A `small_category` has objects and morphisms in the same universe level.
 -/
-abbreviation small_category (C : Type u) : Type (u+1) := category.{u+1} C
+abbreviation small_category (C : Type u) : Type (u+1) := category.{u} C
 
 section
 variables {C : Type u} [𝒞 : category.{v} C] {X Y Z : C}

src/category_theory/comma.lean

@@ -190,7 +190,7 @@ end comma
 
 omit 𝒜 ℬ
 
-def over (X : T) := comma.{v₃ 1 v₃} (𝟭 T) (functor.of.obj X)
+def over (X : T) := comma.{v₃ 0 v₃} (𝟭 T) (functor.of.obj X)
 
 namespace over
 
@@ -254,7 +254,7 @@ end
 
 end over
 
-def under (X : T) := comma.{1 v₃ v₃} (functor.of.obj X) (𝟭 T)
+def under (X : T) := comma.{0 v₃ v₃} (functor.of.obj X) (𝟭 T)
 
 namespace under
 

src/category_theory/conj.lean

@@ -22,7 +22,7 @@ namespace category_theory
 
 namespace iso
 
-variables {C : Type u} [𝒞 : category.{v+1} C]
+variables {C : Type u} [𝒞 : category.{v} C]
 include 𝒞
 
 /- If `X` is isomorphic to `X₁` and `Y` is isomorphic to `Y₁`, then
@@ -122,7 +122,7 @@ namespace functor
 
 universes v₁ u₁
 
-variables {C : Type u} [𝒞 : category.{v+1} C] {D : Type u₁} [𝒟 : category.{v₁+1} D] (F : C ⥤ D)
+variables {C : Type u} [𝒞 : category.{v} C] {D : Type u₁} [𝒟 : category.{v₁} D] (F : C ⥤ D)
 include 𝒞 𝒟
 
 lemma map_hom_congr {X Y X₁ Y₁ : C} (α : X ≅ X₁) (β : Y ≅ Y₁) (f : X ⟶ Y) :

src/category_theory/core.lean

@@ -19,7 +19,7 @@ def core (C : Type u₁) := C
 variables {C : Type u₁} [𝒞 : category.{v₁} C]
 include 𝒞
 
-instance core_category : groupoid.{(max v₁ 1)} (core C) :=
+instance core_category : groupoid.{v₁} (core C) :=
 { hom  := λ X Y : C, X ≅ Y,
   inv  := λ X Y f, iso.symm f,
   id   := λ X, iso.refl X,

src/category_theory/currying.lean

@@ -12,9 +12,9 @@ namespace category_theory
 
 universes v₁ v₂ v₃ u₁ u₂ u₃
 
-variables {C : Type u₁} [𝒞 : category.{v₁+1} C]
-          {D : Type u₂} [𝒟 : category.{v₂+1} D]
-          {E : Type u₃} [ℰ : category.{v₃+1} E]
+variables {C : Type u₁} [𝒞 : category.{v₁} C]
+          {D : Type u₂} [𝒟 : category.{v₂} D]
+          {E : Type u₃} [ℰ : category.{v₃} E]
 include 𝒞 𝒟 ℰ
 
 def uncurry : (C ⥤ (D ⥤ E)) ⥤ ((C × D) ⥤ E) :=