The category of bialgebras over a commutative ring

We introduce the bundled category BialgCat of bialgebras over a fixed commutative ring R along with the forgetful functors to CoalgCat and AlgCat.

This file mimics Mathlib/LinearAlgebra/QuadraticForm/QuadraticModuleCat.lean.

structure BialgCat (R : Type u) [CommRing R] : Type (max u (v + 1))

The category of R-bialgebras.

• carrier : Type v

  The underlying type.

• instRing : Ring self.carrier
• instBialgebra : Bialgebra R self.carrier

instance BialgCat.instCoeSortType {R : Type u} [CommRing R] : CoeSort (BialgCat R) (Type v)

def BialgCat.of (R : Type u) [CommRing R] (X : Type v) [Ring X] [Bialgebra R X] : BialgCat R

The object in the category of R-bialgebras associated to an R-bialgebra.

@[simp]

theorem BialgCat.of_carrier (R : Type u) [CommRing R] (X : Type v) [Ring X] [Bialgebra R X] : (of R X).carrier = X

@[simp]

theorem BialgCat.of_instRing (R : Type u) [CommRing R] (X : Type v) [Ring X] [Bialgebra R X] : (of R X).instRing = inst✝

@[simp]

theorem BialgCat.of_instBialgebra (R : Type u) [CommRing R] (X : Type v) [Ring X] [Bialgebra R X] : (of R X).instBialgebra = inst✝

@[simp]

theorem BialgCat.of_comul {R : Type u} [CommRing R] {X : Type v} [Ring X] [Bialgebra R X] : CoalgebraStruct.comul = CoalgebraStruct.comul

@[simp]

theorem BialgCat.of_counit {R : Type u} [CommRing R] {X : Type v} [Ring X] [Bialgebra R X] : CoalgebraStruct.counit = CoalgebraStruct.counit

structure BialgCat.Hom {R : Type u} [CommRing R] (V W : BialgCat R) : Type v

A type alias for BialgHom to avoid confusion between the categorical and algebraic spellings of composition.

• toBialgHom' : V.carrier →ₐc[R] W.carrier

  The underlying BialgHom

theorem BialgCat.Hom.ext_iff {R : Type u} {inst✝ : CommRing R} {V W : BialgCat R} {x y : V.Hom W} : x = y ↔ x.toBialgHom' = y.toBialgHom'

theorem BialgCat.Hom.ext {R : Type u} {inst✝ : CommRing R} {V W : BialgCat R} {x y : V.Hom W} (toBialgHom' : x.toBialgHom' = y.toBialgHom') : x = y

instance BialgCat.category {R : Type u} [CommRing R] : CategoryTheory.Category.{v, max (v + 1) u} (BialgCat R)

instance BialgCat.concreteCategory {R : Type u} [CommRing R] : CategoryTheory.ConcreteCategory (BialgCat R) fun (x1 x2 : BialgCat R) => x1.carrier →ₐc[R] x2.carrier

@[reducible, inline]

abbrev BialgCat.Hom.toBialgHom {R : Type u} [CommRing R] {X Y : BialgCat R} (f : X.Hom Y) : X.carrier →ₐc[R] Y.carrier

Turn a morphism in BialgCat back into a BialgHom.

@[reducible, inline]

abbrev BialgCat.ofHom {R : Type u} [CommRing R] {X Y : Type v} [Ring X] [Ring Y] [Bialgebra R X] [Bialgebra R Y] (f : X →ₐc[R] Y) : of R X ⟶ of R Y

Typecheck a BialgHom as a morphism in BialgCat R.

theorem BialgCat.Hom.toBialgHom_injective {R : Type u} [CommRing R] (V W : BialgCat R) : Function.Injective toBialgHom

theorem BialgCat.hom_ext {R : Type u} [CommRing R] {X Y : BialgCat R} (f g : X ⟶ Y) (h : Hom.toBialgHom f = Hom.toBialgHom g) : f = g

theorem BialgCat.hom_ext_iff {R : Type u} [CommRing R] {X Y : BialgCat R} {f g : X ⟶ Y} : f = g ↔ Hom.toBialgHom f = Hom.toBialgHom g

@[simp]

theorem BialgCat.toBialgHom_comp {R : Type u} [CommRing R] {X Y Z : BialgCat R} (f : X ⟶ Y) (g : Y ⟶ Z) : Hom.toBialgHom (CategoryTheory.CategoryStruct.comp f g) = (Hom.toBialgHom g).comp (Hom.toBialgHom f)

@[simp]

theorem BialgCat.toBialgHom_id {R : Type u} [CommRing R] {M : BialgCat R} : Hom.toBialgHom (CategoryTheory.CategoryStruct.id M) = BialgHom.id R M.carrier

instance BialgCat.hasForgetToAlgebra {R : Type u} [CommRing R] : CategoryTheory.HasForget₂ (BialgCat R) (AlgCat R)

@[simp]

theorem BialgCat.forget₂_algebra_obj {R : Type u} [CommRing R] (X : BialgCat R) : (CategoryTheory.forget₂ (BialgCat R) (AlgCat R)).obj X = AlgCat.of R X.carrier

@[simp]

theorem BialgCat.forget₂_algebra_map {R : Type u} [CommRing R] (X Y : BialgCat R) (f : X ⟶ Y) : (CategoryTheory.forget₂ (BialgCat R) (AlgCat R)).map f = AlgCat.ofHom ↑(Hom.toBialgHom f)

instance BialgCat.hasForgetToCoalgebra {R : Type u} [CommRing R] : CategoryTheory.HasForget₂ (BialgCat R) (CoalgCat R)

@[simp]

theorem BialgCat.forget₂_coalgebra_obj {R : Type u} [CommRing R] (X : BialgCat R) : (CategoryTheory.forget₂ (BialgCat R) (CoalgCat R)).obj X = CoalgCat.of R X.carrier

@[simp]

theorem BialgCat.forget₂_coalgebra_map {R : Type u} [CommRing R] (X Y : BialgCat R) (f : X ⟶ Y) : (CategoryTheory.forget₂ (BialgCat R) (CoalgCat R)).map f = CoalgCat.ofHom ↑(Hom.toBialgHom f)

def BialgEquiv.toBialgIso {R : Type u} [CommRing R] {X Y : Type v} [Ring X] [Ring Y] [Bialgebra R X] [Bialgebra R Y] (e : X ≃ₐc[R] Y) : BialgCat.of R X ≅ BialgCat.of R Y

Build an isomorphism in the category BialgCat R from a BialgEquiv.

@[simp]

theorem BialgEquiv.toBialgIso_hom {R : Type u} [CommRing R] {X Y : Type v} [Ring X] [Ring Y] [Bialgebra R X] [Bialgebra R Y] (e : X ≃ₐc[R] Y) : e.toBialgIso.hom = BialgCat.ofHom ↑e

@[simp]

theorem BialgEquiv.toBialgIso_inv {R : Type u} [CommRing R] {X Y : Type v} [Ring X] [Ring Y] [Bialgebra R X] [Bialgebra R Y] (e : X ≃ₐc[R] Y) : e.toBialgIso.inv = BialgCat.ofHom ↑e.symm

@[simp]

theorem BialgEquiv.toBialgIso_refl {R : Type u} [CommRing R] {X : Type v} [Ring X] [Bialgebra R X] : (refl R X).toBialgIso = CategoryTheory.Iso.refl (BialgCat.of R X)

@[simp]

theorem BialgEquiv.toBialgIso_symm {R : Type u} [CommRing R] {X Y : Type v} [Ring X] [Ring Y] [Bialgebra R X] [Bialgebra R Y] (e : X ≃ₐc[R] Y) : e.symm.toBialgIso = e.toBialgIso.symm

@[simp]

theorem BialgEquiv.toBialgIso_trans {R : Type u} [CommRing R] {X Y Z : Type v} [Ring X] [Ring Y] [Ring Z] [Bialgebra R X] [Bialgebra R Y] [Bialgebra R Z] (e : X ≃ₐc[R] Y) (f : Y ≃ₐc[R] Z) : (e.trans f).toBialgIso = e.toBialgIso ≪≫ f.toBialgIso

def CategoryTheory.Iso.toBialgEquiv {R : Type u} [CommRing R] {X Y : BialgCat R} (i : X ≅ Y) : X.carrier ≃ₐc[R] Y.carrier

Build a BialgEquiv from an isomorphism in the category BialgCat R.

@[simp]

theorem CategoryTheory.Iso.toBialgEquiv_toBialgHom {R : Type u} [CommRing R] {X Y : BialgCat R} (i : X ≅ Y) : ↑i.toBialgEquiv = i.hom.toBialgHom'

@[simp]

theorem CategoryTheory.Iso.toBialgEquiv_refl {R : Type u} [CommRing R] {X : BialgCat R} : (refl X).toBialgEquiv = BialgEquiv.refl R X.carrier

@[simp]

theorem CategoryTheory.Iso.toBialgEquiv_symm {R : Type u} [CommRing R] {X Y : BialgCat R} (e : X ≅ Y) : e.symm.toBialgEquiv = e.toBialgEquiv.symm

@[simp]

theorem CategoryTheory.Iso.toBialgEquiv_trans {R : Type u} [CommRing R] {X Y Z : BialgCat R} (e : X ≅ Y) (f : Y ≅ Z) : (e ≪≫ f).toBialgEquiv = e.toBialgEquiv.trans f.toBialgEquiv

instance BialgCat.forget_reflects_isos {R : Type u} [CommRing R] : (CategoryTheory.forget (BialgCat R)).ReflectsIsomorphisms