Extensions and lifts in bicategories

We introduce the concept of extensions and lifts within the bicategorical framework. These concepts are defined by commutative diagrams in the (1-)categorical context. Within the bicategorical framework, commutative diagrams are replaced by 2-morphisms. Depending on the orientation of the 2-morphisms, we define both left and right extensions (likewise for lifts). The use of left and right here is a common one in the theory of Kan extensions.

Implementation notes

We define extensions and lifts as objects in certain comma categories (StructuredArrow for left, and CostructuredArrow for right). See the file CategoryTheory.StructuredArrow for properties about these categories. We introduce some intuitive aliases. For example, LeftExtension.extension is an alias for Comma.right.

References

• https://ncatlab.org/nlab/show/lifts+and+extensions
• https://ncatlab.org/nlab/show/Kan+extension

@[inline, reducible]

abbrev CategoryTheory.Bicategory.LeftExtension {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} (f : a ⟶ b) (g : a ⟶ c) : Type (max v w)

Triangle diagrams for (left) extensions.

  b
  △ \
  |   \ extension  △
f |     \          | unit
  |       ◿
  a - - - ▷ c
      g

Equations

• CategoryTheory.Bicategory.LeftExtension f g = CategoryTheory.StructuredArrow g (CategoryTheory.Bicategory.precomp c f)

@[inline, reducible]

abbrev CategoryTheory.Bicategory.LeftExtension.extension {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} (t : CategoryTheory.Bicategory.LeftExtension f g) : b ⟶ c

The extension of g along f.

Equations

• CategoryTheory.Bicategory.LeftExtension.extension t = t.right

@[inline, reducible]

abbrev CategoryTheory.Bicategory.LeftExtension.unit {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} (t : CategoryTheory.Bicategory.LeftExtension f g) : g ⟶ CategoryTheory.CategoryStruct.comp f (CategoryTheory.Bicategory.LeftExtension.extension t)

The 2-morphism filling the triangle diagram.

Equations

• CategoryTheory.Bicategory.LeftExtension.unit t = t.hom

@[inline, reducible]

abbrev CategoryTheory.Bicategory.LeftExtension.mk {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} (h : b ⟶ c) (unit : g ⟶ CategoryTheory.CategoryStruct.comp f h) : CategoryTheory.Bicategory.LeftExtension f g

Construct a left extension from a 1-morphism and a 2-morphism.

Equations

• CategoryTheory.Bicategory.LeftExtension.mk h unit = CategoryTheory.StructuredArrow.mk unit

@[inline, reducible]

abbrev CategoryTheory.Bicategory.LeftExtension.homMk {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} {s : CategoryTheory.Bicategory.LeftExtension f g} {t : CategoryTheory.Bicategory.LeftExtension f g} (η : CategoryTheory.Bicategory.LeftExtension.extension s ⟶ CategoryTheory.Bicategory.LeftExtension.extension t) (w : CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.LeftExtension.unit s) (CategoryTheory.Bicategory.whiskerLeft f η) = CategoryTheory.Bicategory.LeftExtension.unit t) : s ⟶ t

To construct a morphism between left extensions, we need a 2-morphism between the extensions, and to check that it is compatible with the units.

Equations

• CategoryTheory.Bicategory.LeftExtension.homMk η w = CategoryTheory.StructuredArrow.homMk η w

@[simp]

theorem CategoryTheory.Bicategory.LeftExtension.w_assoc {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} {s : CategoryTheory.Bicategory.LeftExtension f g} {t : CategoryTheory.Bicategory.LeftExtension f g} (η : s ⟶ t) {Z : a ⟶ c} (h : CategoryTheory.CategoryStruct.comp f t.right ⟶ Z) : CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.LeftExtension.unit s) (CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.whiskerLeft f η.right) h) = CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.LeftExtension.unit t) h

@[simp]

theorem CategoryTheory.Bicategory.LeftExtension.w {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} {s : CategoryTheory.Bicategory.LeftExtension f g} {t : CategoryTheory.Bicategory.LeftExtension f g} (η : s ⟶ t) : CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.LeftExtension.unit s) (CategoryTheory.Bicategory.whiskerLeft f η.right) = CategoryTheory.Bicategory.LeftExtension.unit t

def CategoryTheory.Bicategory.LeftExtension.alongId {B : Type u} [CategoryTheory.Bicategory B] {a : B} {c : B} (g : a ⟶ c) : CategoryTheory.Bicategory.LeftExtension (CategoryTheory.CategoryStruct.id a) g

The left extension along the identity.

Equations

• CategoryTheory.Bicategory.LeftExtension.alongId g = CategoryTheory.Bicategory.LeftExtension.mk g (CategoryTheory.Bicategory.leftUnitor g).inv

instance CategoryTheory.Bicategory.LeftExtension.instInhabitedLeftExtensionIdToCategoryStruct {B : Type u} [CategoryTheory.Bicategory B] {a : B} {c : B} {g : a ⟶ c} : Inhabited (CategoryTheory.Bicategory.LeftExtension (CategoryTheory.CategoryStruct.id a) g)

Equations

• CategoryTheory.Bicategory.LeftExtension.instInhabitedLeftExtensionIdToCategoryStruct = { default := CategoryTheory.Bicategory.LeftExtension.alongId g }

def CategoryTheory.Bicategory.LeftExtension.whisker {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} (t : CategoryTheory.Bicategory.LeftExtension f g) {x : B} (h : c ⟶ x) : CategoryTheory.Bicategory.LeftExtension f (CategoryTheory.CategoryStruct.comp g h)

Whisker a 1-morphism to an extension.

  b
  △ \
  |   \ extension  △
f |     \          | unit
  |       ◿
  a - - - ▷ c - - - ▷ x
      g         h

Equations

• One or more equations did not get rendered due to their size.

@[simp]

theorem CategoryTheory.Bicategory.LeftExtension.whisker_extension {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} (t : CategoryTheory.Bicategory.LeftExtension f g) {x : B} (h : c ⟶ x) : CategoryTheory.Bicategory.LeftExtension.extension (CategoryTheory.Bicategory.LeftExtension.whisker t h) = CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.LeftExtension.extension t) h

@[simp]

theorem CategoryTheory.Bicategory.LeftExtension.whisker_unit {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} (t : CategoryTheory.Bicategory.LeftExtension f g) {x : B} (h : c ⟶ x) : CategoryTheory.Bicategory.LeftExtension.unit (CategoryTheory.Bicategory.LeftExtension.whisker t h) = CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.whiskerRight (CategoryTheory.Bicategory.LeftExtension.unit t) h) (CategoryTheory.Bicategory.associator f (CategoryTheory.Bicategory.LeftExtension.extension t) h).hom

@[simp]

theorem CategoryTheory.Bicategory.LeftExtension.whiskering_map {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} {x : B} (h : c ⟶ x) : ∀ {X Y : CategoryTheory.Bicategory.LeftExtension f g} (η : X ⟶ Y), (CategoryTheory.Bicategory.LeftExtension.whiskering h).map η = CategoryTheory.Bicategory.LeftExtension.homMk (CategoryTheory.Bicategory.whiskerRight η.right h) ⋯

@[simp]

theorem CategoryTheory.Bicategory.LeftExtension.whiskering_obj {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} {x : B} (h : c ⟶ x) (t : CategoryTheory.Bicategory.LeftExtension f g) : (CategoryTheory.Bicategory.LeftExtension.whiskering h).obj t = CategoryTheory.Bicategory.LeftExtension.whisker t h

def CategoryTheory.Bicategory.LeftExtension.whiskering {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} {x : B} (h : c ⟶ x) : CategoryTheory.Functor (CategoryTheory.Bicategory.LeftExtension f g) (CategoryTheory.Bicategory.LeftExtension f (CategoryTheory.CategoryStruct.comp g h))

Whiskering a 1-morphism is a functor.

Equations

• One or more equations did not get rendered due to their size.

@[simp]

theorem CategoryTheory.Bicategory.LeftExtension.whiskerIdCancel_right {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} {s : CategoryTheory.Bicategory.LeftExtension f g} {t : CategoryTheory.Bicategory.LeftExtension f g} (τ : CategoryTheory.Bicategory.LeftExtension.whisker s (CategoryTheory.CategoryStruct.id c) ⟶ CategoryTheory.Bicategory.LeftExtension.whisker t (CategoryTheory.CategoryStruct.id c)) : (CategoryTheory.Bicategory.LeftExtension.whiskerIdCancel τ).right = CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.rightUnitor (CategoryTheory.Bicategory.LeftExtension.extension s)).inv (CategoryTheory.CategoryStruct.comp τ.right (CategoryTheory.Bicategory.rightUnitor (CategoryTheory.Bicategory.LeftExtension.extension t)).hom)

def CategoryTheory.Bicategory.LeftExtension.whiskerIdCancel {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} {s : CategoryTheory.Bicategory.LeftExtension f g} {t : CategoryTheory.Bicategory.LeftExtension f g} (τ : CategoryTheory.Bicategory.LeftExtension.whisker s (CategoryTheory.CategoryStruct.id c) ⟶ CategoryTheory.Bicategory.LeftExtension.whisker t (CategoryTheory.CategoryStruct.id c)) : s ⟶ t

Define a morphism between left extensions by cancelling the whiskered identities.

Equations

• One or more equations did not get rendered due to their size.

@[inline, reducible]

abbrev CategoryTheory.Bicategory.LeftLift {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} (f : b ⟶ a) (g : c ⟶ a) : Type (max v w)

Triangle diagrams for (left) lifts.

            b
          ◹ |
   lift /   |      △
      /     | f    | unit
    /       ▽
  c - - - ▷ a
       g

Equations

• CategoryTheory.Bicategory.LeftLift f g = CategoryTheory.StructuredArrow g (CategoryTheory.Bicategory.postcomp c f)

@[inline, reducible]

abbrev CategoryTheory.Bicategory.LeftLift.lift {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} (t : CategoryTheory.Bicategory.LeftLift f g) : c ⟶ b

The lift of g along f.

Equations

• CategoryTheory.Bicategory.LeftLift.lift t = t.right

@[inline, reducible]

abbrev CategoryTheory.Bicategory.LeftLift.unit {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} (t : CategoryTheory.Bicategory.LeftLift f g) : g ⟶ CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.LeftLift.lift t) f

The 2-morphism filling the triangle diagram.

Equations

• CategoryTheory.Bicategory.LeftLift.unit t = t.hom

@[inline, reducible]

abbrev CategoryTheory.Bicategory.LeftLift.mk {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} (h : c ⟶ b) (unit : g ⟶ CategoryTheory.CategoryStruct.comp h f) : CategoryTheory.Bicategory.LeftLift f g

Construct a left lift from a 1-morphism and a 2-morphism.

Equations

• CategoryTheory.Bicategory.LeftLift.mk h unit = CategoryTheory.StructuredArrow.mk unit

@[inline, reducible]

abbrev CategoryTheory.Bicategory.LeftLift.homMk {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} {s : CategoryTheory.Bicategory.LeftLift f g} {t : CategoryTheory.Bicategory.LeftLift f g} (η : CategoryTheory.Bicategory.LeftLift.lift s ⟶ CategoryTheory.Bicategory.LeftLift.lift t) (w : CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.LeftLift.unit s) (CategoryTheory.Bicategory.whiskerRight η f) = CategoryTheory.Bicategory.LeftLift.unit t) : s ⟶ t

To construct a morphism between left lifts, we need a 2-morphism between the lifts, and to check that it is compatible with the units.

Equations

• CategoryTheory.Bicategory.LeftLift.homMk η w = CategoryTheory.StructuredArrow.homMk η w

@[simp]

theorem CategoryTheory.Bicategory.LeftLift.w_assoc {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} {s : CategoryTheory.Bicategory.LeftLift f g} {t : CategoryTheory.Bicategory.LeftLift f g} (h : s ⟶ t) {Z : c ⟶ a} (h : CategoryTheory.CategoryStruct.comp t.right f ⟶ Z) : CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.LeftLift.unit s) (CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.whiskerRight h✝.right f) h) = CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.LeftLift.unit t) h

@[simp]

theorem CategoryTheory.Bicategory.LeftLift.w {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} {s : CategoryTheory.Bicategory.LeftLift f g} {t : CategoryTheory.Bicategory.LeftLift f g} (h : s ⟶ t) : CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.LeftLift.unit s) (CategoryTheory.Bicategory.whiskerRight h.right f) = CategoryTheory.Bicategory.LeftLift.unit t

def CategoryTheory.Bicategory.LeftLift.alongId {B : Type u} [CategoryTheory.Bicategory B] {a : B} {c : B} (g : c ⟶ a) : CategoryTheory.Bicategory.LeftLift (CategoryTheory.CategoryStruct.id a) g

The left lift along the identity.

Equations

• CategoryTheory.Bicategory.LeftLift.alongId g = CategoryTheory.Bicategory.LeftLift.mk g (CategoryTheory.Bicategory.rightUnitor g).inv

instance CategoryTheory.Bicategory.LeftLift.instInhabitedLeftLiftIdToCategoryStruct {B : Type u} [CategoryTheory.Bicategory B] {a : B} {c : B} {g : c ⟶ a} : Inhabited (CategoryTheory.Bicategory.LeftLift (CategoryTheory.CategoryStruct.id a) g)

Equations

• CategoryTheory.Bicategory.LeftLift.instInhabitedLeftLiftIdToCategoryStruct = { default := CategoryTheory.Bicategory.LeftLift.alongId g }

def CategoryTheory.Bicategory.LeftLift.whisker {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} (t : CategoryTheory.Bicategory.LeftLift f g) {x : B} (h : x ⟶ c) : CategoryTheory.Bicategory.LeftLift f (CategoryTheory.CategoryStruct.comp h g)

Whisker a 1-morphism to a lift.

                    b
                  ◹ |
           lift /   |      △
              /     | f    | unit
            /       ▽
x - - - ▷ c - - - ▷ a
     h         g

Equations

• One or more equations did not get rendered due to their size.

@[simp]

theorem CategoryTheory.Bicategory.LeftLift.whisker_lift {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} (t : CategoryTheory.Bicategory.LeftLift f g) {x : B} (h : x ⟶ c) : CategoryTheory.Bicategory.LeftLift.lift (CategoryTheory.Bicategory.LeftLift.whisker t h) = CategoryTheory.CategoryStruct.comp h (CategoryTheory.Bicategory.LeftLift.lift t)

@[simp]

theorem CategoryTheory.Bicategory.LeftLift.whisker_unit {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} (t : CategoryTheory.Bicategory.LeftLift f g) {x : B} (h : x ⟶ c) : CategoryTheory.Bicategory.LeftLift.unit (CategoryTheory.Bicategory.LeftLift.whisker t h) = CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.whiskerLeft h (CategoryTheory.Bicategory.LeftLift.unit t)) (CategoryTheory.Bicategory.associator h (CategoryTheory.Bicategory.LeftLift.lift t) f).inv

@[simp]

theorem CategoryTheory.Bicategory.LeftLift.whiskering_obj {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} {x : B} (h : x ⟶ c) (t : CategoryTheory.Bicategory.LeftLift f g) : (CategoryTheory.Bicategory.LeftLift.whiskering h).obj t = CategoryTheory.Bicategory.LeftLift.whisker t h

@[simp]

theorem CategoryTheory.Bicategory.LeftLift.whiskering_map {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} {x : B} (h : x ⟶ c) : ∀ {X Y : CategoryTheory.Bicategory.LeftLift f g} (η : X ⟶ Y), (CategoryTheory.Bicategory.LeftLift.whiskering h).map η = CategoryTheory.Bicategory.LeftLift.homMk (CategoryTheory.Bicategory.whiskerLeft h η.right) ⋯

def CategoryTheory.Bicategory.LeftLift.whiskering {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} {x : B} (h : x ⟶ c) : CategoryTheory.Functor (CategoryTheory.Bicategory.LeftLift f g) (CategoryTheory.Bicategory.LeftLift f (CategoryTheory.CategoryStruct.comp h g))

Whiskering a 1-morphism is a functor.

Equations

• One or more equations did not get rendered due to their size.

@[simp]

theorem CategoryTheory.Bicategory.LeftLift.whiskerIdCancel_right {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} {s : CategoryTheory.Bicategory.LeftLift f g} {t : CategoryTheory.Bicategory.LeftLift f g} (τ : CategoryTheory.Bicategory.LeftLift.whisker s (CategoryTheory.CategoryStruct.id c) ⟶ CategoryTheory.Bicategory.LeftLift.whisker t (CategoryTheory.CategoryStruct.id c)) : (CategoryTheory.Bicategory.LeftLift.whiskerIdCancel τ).right = CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.leftUnitor (CategoryTheory.Bicategory.LeftLift.lift s)).inv (CategoryTheory.CategoryStruct.comp τ.right (CategoryTheory.Bicategory.leftUnitor (CategoryTheory.Bicategory.LeftLift.lift t)).hom)

def CategoryTheory.Bicategory.LeftLift.whiskerIdCancel {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} {s : CategoryTheory.Bicategory.LeftLift f g} {t : CategoryTheory.Bicategory.LeftLift f g} (τ : CategoryTheory.Bicategory.LeftLift.whisker s (CategoryTheory.CategoryStruct.id c) ⟶ CategoryTheory.Bicategory.LeftLift.whisker t (CategoryTheory.CategoryStruct.id c)) : s ⟶ t

Define a morphism between left lifts by cancelling the whiskered identities.

Equations

• One or more equations did not get rendered due to their size.

@[inline, reducible]

abbrev CategoryTheory.Bicategory.RightExtension {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} (f : a ⟶ b) (g : a ⟶ c) : Type (max v w)

Triangle diagrams for (right) extensions.

  b
  △ \
  |   \ extension  | counit
f |     \          ▽
  |       ◿
  a - - - ▷ c
      g

Equations

• CategoryTheory.Bicategory.RightExtension f g = CategoryTheory.CostructuredArrow (CategoryTheory.Bicategory.precomp c f) g

@[inline, reducible]

abbrev CategoryTheory.Bicategory.RightExtension.extension {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} (t : CategoryTheory.Bicategory.RightExtension f g) : b ⟶ c

The extension of g along f.

Equations

• CategoryTheory.Bicategory.RightExtension.extension t = t.left

@[inline, reducible]

abbrev CategoryTheory.Bicategory.RightExtension.counit {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} (t : CategoryTheory.Bicategory.RightExtension f g) : CategoryTheory.CategoryStruct.comp f (CategoryTheory.Bicategory.RightExtension.extension t) ⟶ g

The 2-morphism filling the triangle diagram.

Equations

• CategoryTheory.Bicategory.RightExtension.counit t = t.hom

@[inline, reducible]

abbrev CategoryTheory.Bicategory.RightExtension.mk {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} (h : b ⟶ c) (counit : CategoryTheory.CategoryStruct.comp f h ⟶ g) : CategoryTheory.Bicategory.RightExtension f g

Construct a right extension from a 1-morphism and a 2-morphism.

Equations

• CategoryTheory.Bicategory.RightExtension.mk h counit = CategoryTheory.CostructuredArrow.mk counit

@[inline, reducible]

abbrev CategoryTheory.Bicategory.RightExtension.homMk {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} {s : CategoryTheory.Bicategory.RightExtension f g} {t : CategoryTheory.Bicategory.RightExtension f g} (η : CategoryTheory.Bicategory.RightExtension.extension s ⟶ CategoryTheory.Bicategory.RightExtension.extension t) (w : CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.whiskerLeft f η) (CategoryTheory.Bicategory.RightExtension.counit t) = CategoryTheory.Bicategory.RightExtension.counit s) : s ⟶ t

To construct a morphism between right extensions, we need a 2-morphism between the extensions, and to check that it is compatible with the counits.

Equations

• CategoryTheory.Bicategory.RightExtension.homMk η w = CategoryTheory.CostructuredArrow.homMk η w

@[simp]

theorem CategoryTheory.Bicategory.RightExtension.w_assoc {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} {s : CategoryTheory.Bicategory.RightExtension f g} {t : CategoryTheory.Bicategory.RightExtension f g} (η : s ⟶ t) {Z : a ⟶ c} (h : g ⟶ Z) : CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.whiskerLeft f η.left) (CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.RightExtension.counit t) h) = CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.RightExtension.counit s) h

@[simp]

theorem CategoryTheory.Bicategory.RightExtension.w {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : a ⟶ b} {g : a ⟶ c} {s : CategoryTheory.Bicategory.RightExtension f g} {t : CategoryTheory.Bicategory.RightExtension f g} (η : s ⟶ t) : CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.whiskerLeft f η.left) (CategoryTheory.Bicategory.RightExtension.counit t) = CategoryTheory.Bicategory.RightExtension.counit s

def CategoryTheory.Bicategory.RightExtension.alongId {B : Type u} [CategoryTheory.Bicategory B] {a : B} {c : B} (g : a ⟶ c) : CategoryTheory.Bicategory.RightExtension (CategoryTheory.CategoryStruct.id a) g

The right extension along the identity.

Equations

• CategoryTheory.Bicategory.RightExtension.alongId g = CategoryTheory.Bicategory.RightExtension.mk g (CategoryTheory.Bicategory.leftUnitor g).hom

instance CategoryTheory.Bicategory.RightExtension.instInhabitedRightExtensionIdToCategoryStruct {B : Type u} [CategoryTheory.Bicategory B] {a : B} {c : B} {g : a ⟶ c} : Inhabited (CategoryTheory.Bicategory.RightExtension (CategoryTheory.CategoryStruct.id a) g)

Equations

• CategoryTheory.Bicategory.RightExtension.instInhabitedRightExtensionIdToCategoryStruct = { default := CategoryTheory.Bicategory.RightExtension.alongId g }

@[inline, reducible]

abbrev CategoryTheory.Bicategory.RightLift {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} (f : b ⟶ a) (g : c ⟶ a) : Type (max v w)

Triangle diagrams for (right) lifts.

            b
          ◹ |
   lift /   |      | counit
      /     | f    ▽
    /       ▽
  c - - - ▷ a
       g

Equations

• CategoryTheory.Bicategory.RightLift f g = CategoryTheory.CostructuredArrow (CategoryTheory.Bicategory.postcomp c f) g

@[inline, reducible]

abbrev CategoryTheory.Bicategory.RightLift.lift {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} (t : CategoryTheory.Bicategory.RightLift f g) : c ⟶ b

The lift of g along f.

Equations

• CategoryTheory.Bicategory.RightLift.lift t = t.left

@[inline, reducible]

abbrev CategoryTheory.Bicategory.RightLift.counit {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} (t : CategoryTheory.Bicategory.RightLift f g) : CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.RightLift.lift t) f ⟶ g

The 2-morphism filling the triangle diagram.

Equations

• CategoryTheory.Bicategory.RightLift.counit t = t.hom

@[inline, reducible]

abbrev CategoryTheory.Bicategory.RightLift.mk {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} (h : c ⟶ b) (counit : CategoryTheory.CategoryStruct.comp h f ⟶ g) : CategoryTheory.Bicategory.RightLift f g

Construct a right lift from a 1-morphism and a 2-morphism.

Equations

• CategoryTheory.Bicategory.RightLift.mk h counit = CategoryTheory.CostructuredArrow.mk counit

@[inline, reducible]

abbrev CategoryTheory.Bicategory.RightLift.homMk {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} {s : CategoryTheory.Bicategory.RightLift f g} {t : CategoryTheory.Bicategory.RightLift f g} (η : CategoryTheory.Bicategory.RightLift.lift s ⟶ CategoryTheory.Bicategory.RightLift.lift t) (w : CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.whiskerRight η f) (CategoryTheory.Bicategory.RightLift.counit t) = CategoryTheory.Bicategory.RightLift.counit s) : s ⟶ t

To construct a morphism between right lifts, we need a 2-morphism between the lifts, and to check that it is compatible with the counits.

Equations

• CategoryTheory.Bicategory.RightLift.homMk η w = CategoryTheory.CostructuredArrow.homMk η w

@[simp]

theorem CategoryTheory.Bicategory.RightLift.w_assoc {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} {s : CategoryTheory.Bicategory.RightLift f g} {t : CategoryTheory.Bicategory.RightLift f g} (h : s ⟶ t) {Z : c ⟶ a} (h : g ⟶ Z) : CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.whiskerRight h✝.left f) (CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.RightLift.counit t) h) = CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.RightLift.counit s) h

@[simp]

theorem CategoryTheory.Bicategory.RightLift.w {B : Type u} [CategoryTheory.Bicategory B] {a : B} {b : B} {c : B} {f : b ⟶ a} {g : c ⟶ a} {s : CategoryTheory.Bicategory.RightLift f g} {t : CategoryTheory.Bicategory.RightLift f g} (h : s ⟶ t) : CategoryTheory.CategoryStruct.comp (CategoryTheory.Bicategory.whiskerRight h.left f) (CategoryTheory.Bicategory.RightLift.counit t) = CategoryTheory.Bicategory.RightLift.counit s

def CategoryTheory.Bicategory.RightLift.alongId {B : Type u} [CategoryTheory.Bicategory B] {a : B} {c : B} (g : c ⟶ a) : CategoryTheory.Bicategory.RightLift (CategoryTheory.CategoryStruct.id a) g

The right lift along the identity.

Equations

• CategoryTheory.Bicategory.RightLift.alongId g = CategoryTheory.Bicategory.RightLift.mk g (CategoryTheory.Bicategory.rightUnitor g).hom

instance CategoryTheory.Bicategory.RightLift.instInhabitedRightLiftIdToCategoryStruct {B : Type u} [CategoryTheory.Bicategory B] {a : B} {c : B} {g : c ⟶ a} : Inhabited (CategoryTheory.Bicategory.RightLift (CategoryTheory.CategoryStruct.id a) g)

Equations

• CategoryTheory.Bicategory.RightLift.instInhabitedRightLiftIdToCategoryStruct = { default := CategoryTheory.Bicategory.RightLift.alongId g }