Skip to content
Closed
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 0 additions & 2 deletions Mathlib/AlgebraicGeometry/Limits.lean
Original file line number Diff line number Diff line change
Expand Up @@ -433,14 +433,12 @@ lemma isPullback_inl_inl_coprodMap {X Y X' Y' : Scheme.{u}}
· rintro _ ⟨x, rfl⟩
exact ⟨f x, by simp [← Scheme.Hom.comp_apply, -Scheme.Hom.comp_base]⟩

set_option backward.isDefEq.respectTransparency false in
lemma isPullback_inr_inr_coprodMap {X Y X' Y' : Scheme.{u}}
(f : X ⟶ X') (g : Y ⟶ Y') : IsPullback g coprod.inr coprod.inr (coprod.map f g) :=
(isPullback_inl_inl_coprodMap g f).of_iso (.refl _) (.refl _) (coprod.braiding _ _)
(coprod.braiding _ _) (by simp) (by simp) (by simp) (by simp)

set_option backward.defeqAttrib.useBackward true in
set_option backward.isDefEq.respectTransparency false in
instance : FinitaryExtensive Scheme where
hasFiniteCoproducts.out := inferInstance
van_kampen' {X Y} c hc := by
Expand Down
1 change: 0 additions & 1 deletion Mathlib/AlgebraicGeometry/Morphisms/AffineAnd.lean
Original file line number Diff line number Diff line change
Expand Up @@ -280,7 +280,6 @@ lemma HasAffineProperty.affineAnd_le_affineAnd {P P' : MorphismProperty Scheme.{
HasAffineProperty.eq_targetAffineLocally (P := P')]
exact targetAffineLocally_affineAnd_le hQQ'

set_option backward.isDefEq.respectTransparency false in
lemma HasAffineProperty.coprodDesc_affineAnd {P : MorphismProperty Scheme.{u}}
(hP : HasAffineProperty P (affineAnd Q)) (hQi : RingHom.RespectsIso Q)
(hQ : ∀ {R S T : Type u} [CommRing R] [CommRing S] [CommRing T] (f : R →+* S) (g : R →+* T),
Expand Down
5 changes: 0 additions & 5 deletions Mathlib/AlgebraicGeometry/Normalization.lean
Original file line number Diff line number Diff line change
Expand Up @@ -495,7 +495,6 @@ section Coproduct
variable {U V : Scheme} {iU : U ⟶ X} {iV : V ⟶ X} (e : IsColimit (BinaryCofan.mk iU iV))
[QuasiCompact iU] [QuasiSeparated iU] [QuasiCompact iV] [QuasiSeparated iV]

set_option backward.isDefEq.respectTransparency false in
/-- The normalization of `Y` in a coproduct is isomorphic to the coproduct of the normalizations in
each of the components. -/
noncomputable def normalizationCoprodIso :
Expand Down Expand Up @@ -525,14 +524,12 @@ noncomputable def normalizationCoprodIso :
rw [← cancel_epi (e.coconePointUniqueUpToIso (colimit.isColimit (pair U V))).inv]
apply coprod.hom_ext <;> simp

set_option backward.isDefEq.respectTransparency false in
@[reassoc (attr := simp)]
lemma toNormalization_inl_normalizationCoprodIso_hom :
(iU ≫ f).toNormalization ≫ coprod.inl ≫ (f.normalizationCoprodIso e).hom =
iU ≫ f.toNormalization := by
simp [Scheme.Hom.normalizationCoprodIso]

set_option backward.isDefEq.respectTransparency false in
@[reassoc (attr := simp)]
lemma toNormalization_inr_normalizationCoprodIso_hom :
(iV ≫ f).toNormalization ≫ coprod.inr ≫ (f.normalizationCoprodIso e).hom =
Expand All @@ -551,14 +548,12 @@ lemma inr_toNormalization_normalizationCoprodIso_inv :
(iV ≫ f).toNormalization ≫ coprod.inr := by
simp [← toNormalization_inr_normalizationCoprodIso_hom_assoc f e]

set_option backward.isDefEq.respectTransparency false in
@[reassoc (attr := simp)]
lemma inl_normalizationCoprodIso_hom_fromNormalization :
coprod.inl ≫ (f.normalizationCoprodIso e).hom ≫ f.fromNormalization =
(iU ≫ f).fromNormalization := by
simp [Scheme.Hom.normalizationCoprodIso]

set_option backward.isDefEq.respectTransparency false in
@[reassoc (attr := simp)]
lemma inr_normalizationCoprodIso_hom_fromNormalization :
coprod.inr ≫ (f.normalizationCoprodIso e).hom ≫ f.fromNormalization =
Expand Down
1 change: 0 additions & 1 deletion Mathlib/AlgebraicTopology/ModelCategory/BrownLemma.lean
Original file line number Diff line number Diff line change
Expand Up @@ -65,7 +65,6 @@ instance [WeakEquivalence f] : WeakEquivalence h.i :=
instance : WeakEquivalence h.s :=
weakEquivalence_of_postcomp_of_fac h.s_p

set_option backward.isDefEq.respectTransparency false in
/-- The term in `CofibrantBrownFactorization f` that is deduced from
a factorization of `coprod.desc f (𝟙 Y) : X ⨿ Y ⟶ Y`
as a cofibration followed by a trivial fibration. -/
Expand Down
3 changes: 0 additions & 3 deletions Mathlib/AlgebraicTopology/ModelCategory/Cylinder.lean
Original file line number Diff line number Diff line change
Expand Up @@ -93,11 +93,9 @@ a cylinder object for `A`. `P` shall be a *good* cylinder object
when this morphism is a cofibration. -/
noncomputable def i : A ⨿ A ⟶ P.I := coprod.desc P.i₀ P.i₁

set_option backward.isDefEq.respectTransparency false in
@[reassoc (attr := simp)]
lemma inl_i : coprod.inl ≫ P.i = P.i₀ := by simp [i]

set_option backward.isDefEq.respectTransparency false in
@[reassoc (attr := simp)]
lemma inr_i : coprod.inr ≫ P.i = P.i₁ := by simp [i]

Expand Down Expand Up @@ -234,7 +232,6 @@ section
variable (h : MorphismProperty.MapFactorizationData (cofibrations C) (trivialFibrations C)
(codiag A))

set_option backward.isDefEq.respectTransparency false in
/-- A cylinder object for `A` can be obtained from a factorization of the obvious
map `A ⨿ A ⟶ A` as a cofibration followed by a trivial fibration. -/
@[simps]
Expand Down
2 changes: 0 additions & 2 deletions Mathlib/AlgebraicTopology/ModelCategory/Homotopy.lean
Original file line number Diff line number Diff line change
Expand Up @@ -69,7 +69,6 @@ namespace RightHomotopyRel

variable {f g : X ⟶ Y} [IsFibrant Y]

set_option backward.isDefEq.respectTransparency false in
/-- When two morphisms `X ⟶ Y` with `Y` fibrant are related by a right homotopy,
this is a choice of a left homotopy relative to any good cylinder object for `X`. -/
noncomputable def leftHomotopy (h : RightHomotopyRel f g) (Q : Cylinder X) [Q.IsGood] :
Expand Down Expand Up @@ -124,7 +123,6 @@ namespace LeftHomotopyClass

variable (X)

set_option backward.isDefEq.respectTransparency false in
lemma postcomp_bijective_of_fibration_of_weakEquivalence
[IsCofibrant X] (g : Y ⟶ Z) [Fibration g] [WeakEquivalence g] :
Function.Bijective (fun (f : LeftHomotopyClass X Y) ↦ f.postcomp g) := by
Expand Down
1 change: 0 additions & 1 deletion Mathlib/AlgebraicTopology/ModelCategory/LeftHomotopy.lean
Original file line number Diff line number Diff line change
Expand Up @@ -267,7 +267,6 @@ lemma equivalence [ModelCategory C] (X Y : C) [IsCofibrant X] :
symm h := h.symm
trans h h' := h.trans h'

set_option backward.isDefEq.respectTransparency false in
lemma precomp [ModelCategory C] {f g : X ⟶ Y} [IsFibrant Y] (h : LeftHomotopyRel f g)
{Z : C} (i : Z ⟶ X) : LeftHomotopyRel (i ≫ f) (i ≫ g) := by
obtain ⟨P, _, ⟨h⟩⟩ := h.exists_very_good_cylinder
Expand Down
1 change: 0 additions & 1 deletion Mathlib/AlgebraicTopology/SimplicialObject/Basic.lean
Original file line number Diff line number Diff line change
Expand Up @@ -943,7 +943,6 @@ def CosimplicialObject.Augmented.leftOpRightOpIso (X : CosimplicialObject.Augmen

variable (C)

set_option backward.isDefEq.respectTransparency.types false in
set_option backward.defeqAttrib.useBackward true in
/-- A functorial version of `SimplicialObject.Augmented.rightOp`. -/
@[simps]
Expand Down
1 change: 0 additions & 1 deletion Mathlib/CategoryTheory/Adhesive/Basic.lean
Original file line number Diff line number Diff line change
Expand Up @@ -218,7 +218,6 @@ theorem is_coprod_iff_isPushout {X E Y YE : C} (c : BinaryCofan X E) (hc : IsCol
rfl
· refine ((Category.assoc _ _ _).symm.trans e₁).trans ?_; symm; exact hc.fac _ _

set_option backward.isDefEq.respectTransparency false in
theorem IsPushout.isVanKampen_inl {W E X Z : C} (c : BinaryCofan W E) [FinitaryExtensive C]
[HasPullbacks C] (hc : IsColimit c) (f : W ⟶ X) (h : X ⟶ Z) (i : c.pt ⟶ Z)
(H : IsPushout f c.inl h i) : H.IsVanKampen := by
Expand Down
1 change: 0 additions & 1 deletion Mathlib/CategoryTheory/Distributive/Cartesian.lean
Original file line number Diff line number Diff line change
Expand Up @@ -67,7 +67,6 @@ lemma of_isMonoidalLeftDistrib [IsMonoidalLeftDistrib C] : IsCartesianDistributi
letI : BraidedCategory C := Nonempty.some inferInstance
SymmetricCategory.isMonoidalDistrib_of_isMonoidalLeftDistrib

set_option backward.isDefEq.respectTransparency false in
/-- The coproduct coprojections are monic in a Cartesian distributive category. -/
instance monoCoprod [IsCartesianDistributive C] : MonoCoprod C :=
MonoCoprod.mk' fun A B =>
Expand Down
1 change: 0 additions & 1 deletion Mathlib/CategoryTheory/Distributive/Monoidal.lean
Original file line number Diff line number Diff line change
Expand Up @@ -245,7 +245,6 @@ instance isMonoidalDistrib.of_symmetric_monoidal_closed [SymmetricCategory C] [M
IsMonoidalDistrib C := by
apply SymmetricCategory.isMonoidalDistrib_of_isMonoidalLeftDistrib

set_option backward.isDefEq.respectTransparency false in
/-- The inverse of distributivity isomorphism from the closed monoidal structure -/
lemma MonoidalClosed.leftDistrib_inv [MonoidalClosed C] {X Y Z : C} :
(leftDistrib X Y Z).inv =
Expand Down
3 changes: 0 additions & 3 deletions Mathlib/CategoryTheory/Extensive.lean
Original file line number Diff line number Diff line change
Expand Up @@ -117,7 +117,6 @@ instance preservesPullbackInl' :
HasPullback f coprod.inl :=
hasPullback_symmetry _ _

set_option backward.isDefEq.respectTransparency false in
instance hasPullbackInr' :
HasPullback f coprod.inr := by
have : IsPullback (𝟙 _) (f ≫ (coprod.braiding X Y).hom) f (coprod.braiding Y X).hom :=
Expand Down Expand Up @@ -148,7 +147,6 @@ instance preservesPullbackInl' :
PreservesLimit (cospan f coprod.inl) F :=
preservesPullback_symmetry _ _ _

set_option backward.isDefEq.respectTransparency false in
noncomputable
instance preservesPullbackInr' :
PreservesLimit (cospan f coprod.inr) F := by
Expand Down Expand Up @@ -402,7 +400,6 @@ instance {C} [Category* C] {D} [Category* D] (F : C ⥤ D)
{X Y Z : C} (f : X ⟶ Z) (g : Y ⟶ Z) [IsIso g] : PreservesLimit (cospan f g) F :=
preservesPullback_symmetry _ _ _

set_option backward.isDefEq.respectTransparency false in
theorem finitaryExtensive_of_preserves_and_reflects (F : C ⥤ D) [FinitaryExtensive D]
[HasFiniteCoproducts C] [HasPullbacksOfInclusions C]
[PreservesPullbacksOfInclusions F]
Expand Down
2 changes: 0 additions & 2 deletions Mathlib/CategoryTheory/Limits/Constructions/Equalizers.lean
Original file line number Diff line number Diff line change
Expand Up @@ -141,14 +141,12 @@ abbrev pushoutInl (F : WalkingParallelPair ⥤ C) :
F.obj WalkingParallelPair.one ⟶ constructCoequalizer F :=
pushout.inl _ _

set_option backward.isDefEq.respectTransparency false in
theorem pushoutInl_eq_pushout_inr (F : WalkingParallelPair ⥤ C) :
pushoutInl F = pushout.inr _ _ := by
convert!
(whisker_eq Limits.coprod.inl pushout.condition : (_ : F.obj _ ⟶ constructCoequalizer _) = _)
<;> simp

set_option backward.isDefEq.respectTransparency false in
/-- Define the equalizing cocone -/
abbrev coequalizerCocone (F : WalkingParallelPair ⥤ C) : Cocone F :=
Cocone.ofCofork
Expand Down
1 change: 0 additions & 1 deletion Mathlib/CategoryTheory/Limits/Constructions/Pullbacks.lean
Original file line number Diff line number Diff line change
Expand Up @@ -59,7 +59,6 @@ theorem hasPullbacks_of_hasBinaryProducts_of_hasEqualizers (C : Type u) [Categor

end

set_option backward.isDefEq.respectTransparency false in
/-- If the coproduct `Y ⨿ Z` and the coequalizer of `f ≫ ι₁` and `g ≫ ι₂` exist, then the
pushout of `f` and `g` exists: It is given by composing the inclusions with the coequalizer. -/
theorem hasColimit_span_of_hasColimit_pair_of_hasColimit_parallelPair {C : Type u}
Expand Down
2 changes: 0 additions & 2 deletions Mathlib/CategoryTheory/Limits/Constructions/ZeroObjects.lean
Original file line number Diff line number Diff line change
Expand Up @@ -96,7 +96,6 @@ instance hasBinaryCoproduct_zero_left (X : C) : HasBinaryCoproduct (0 : C) X :=
def zeroCoprodIso (X : C) : (0 : C) ⨿ X ≅ X :=
colimit.isoColimitCocone ⟨_, binaryCofanZeroLeftIsColimit X⟩

set_option backward.isDefEq.respectTransparency false in
@[simp]
theorem inr_zeroCoprodIso_hom (X : C) : coprod.inr ≫ (zeroCoprodIso X).hom = 𝟙 X := by
dsimp [zeroCoprodIso, binaryCofanZeroLeft]
Expand All @@ -122,7 +121,6 @@ instance hasBinaryCoproduct_zero_right (X : C) : HasBinaryCoproduct X (0 : C) :=
def coprodZeroIso (X : C) : X ⨿ (0 : C) ≅ X :=
colimit.isoColimitCocone ⟨_, binaryCofanZeroRightIsColimit X⟩

set_option backward.isDefEq.respectTransparency false in
@[simp]
theorem inr_coprodZeroIso_hom (X : C) : coprod.inl ≫ (coprodZeroIso X).hom = 𝟙 X := by
dsimp [coprodZeroIso, binaryCofanZeroRight]
Expand Down
3 changes: 0 additions & 3 deletions Mathlib/CategoryTheory/Limits/MonoCoprod.lean
Original file line number Diff line number Diff line change
Expand Up @@ -60,7 +60,6 @@ instance (priority := 100) monoCoprodOfHasZeroMorphisms [HasZeroMorphisms C] : M

namespace MonoCoprod

set_option backward.isDefEq.respectTransparency false in
theorem binaryCofan_inr {A B : C} [MonoCoprod C] (c : BinaryCofan A B) (hc : IsColimit c) :
Mono c.inr := by
have hc' : IsColimit (BinaryCofan.mk c.inr c.inl) :=
Expand Down Expand Up @@ -92,7 +91,6 @@ theorem mk' (h : ∀ A B : C, ∃ (c : BinaryCofan A B) (_ : IsColimit c), Mono
simpa only [mono_inl_iff hc' hc₁] using hc₂⟩

set_option backward.defeqAttrib.useBackward true in
set_option backward.isDefEq.respectTransparency false in
instance monoCoprodType : MonoCoprod (Type u) :=
MonoCoprod.mk' fun A B => by
refine ⟨BinaryCofan.mk (↾(Sum.inl : A → A ⊕ B))
Expand Down Expand Up @@ -233,7 +231,6 @@ section Preservation

variable {D : Type*} [Category* D] (F : C ⥤ D)

set_option backward.isDefEq.respectTransparency false in
theorem monoCoprod_of_preservesCoprod_of_reflectsMono [MonoCoprod D]
[PreservesColimitsOfShape (Discrete WalkingPair) F]
[ReflectsMonomorphisms F] : MonoCoprod C where
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -36,7 +36,6 @@ variable {X₁ Y₁ : C₁} {f₁ : X₁ ⟶ Y₁} {c₁ : CokernelCofork f₁}
[(F.obj c₁.pt).PreservesZeroMorphisms]
[F.PreservesZeroMorphisms]

set_option backward.isDefEq.respectTransparency false in
variable (c₁ c₂) in
/-- Let `c₁` (resp. `c₂`) be a cokernel cofork for a morphism `f₁ : X₁ ⟶ Y₁`
in a category `C₁` (resp. `f₂ : X₂ ⟶ Y₂` in `C₂`). Given a bifunctor `F : C₁ ⥤ C₂ ⥤ C`,
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -131,7 +131,6 @@ section

variable {P X Y : C} (f : X ⟶ P) (g : Y ⟶ P)

set_option backward.isDefEq.respectTransparency.types false in
set_option backward.defeqAttrib.useBackward true in
/-- The map of a binary cofan is a colimit iff
the cofork consisting of the mapped morphisms is a colimit.
Expand Down
2 changes: 0 additions & 2 deletions Mathlib/CategoryTheory/Limits/Shapes/BinaryBiproducts.lean
Original file line number Diff line number Diff line change
Expand Up @@ -632,7 +632,6 @@ theorem biprod.isoCoprod_inv {X Y : C} [HasBinaryBiproduct X Y] :
(biprod.isoCoprod X Y).inv = coprod.desc biprod.inl biprod.inr := by
ext <;> simp [biprod.isoCoprod]

set_option backward.isDefEq.respectTransparency false in
@[simp]
theorem biprod_isoCoprod_hom {X Y : C} [HasBinaryBiproduct X Y] :
(biprod.isoCoprod X Y).hom = biprod.desc coprod.inl coprod.inr := by
Expand Down Expand Up @@ -754,7 +753,6 @@ theorem biprod.isIso_inl_iff_id_eq_fst_comp_inl (X Y : C) [HasBinaryBiproduct X
· intro h
exact ⟨⟨biprod.fst, biprod.inl_fst, h.symm⟩⟩

set_option backward.isDefEq.respectTransparency false in
instance biprod.map_epi {W X Y Z : C} (f : W ⟶ Y) (g : X ⟶ Z) [Epi f]
[Epi g] [HasBinaryBiproduct W X] [HasBinaryBiproduct Y Z] : Epi (biprod.map f g) := by
rw [show biprod.map f g =
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -445,7 +445,6 @@ protected def BinaryFan.IsLimit.op {c : BinaryFan X Y} (hc : IsLimit c) : IsColi
(fun s m h₁ h₂ ↦ Quiver.Hom.unop_inj
(BinaryFan.IsLimit.hom_ext hc (by simp [← h₁]) (by simp [← h₂])))

set_option backward.isDefEq.respectTransparency false in
/-- If a `BinaryCofan` is a colimit, then its opposite is a limit. -/
protected def BinaryCofan.IsColimit.op {c : BinaryCofan X Y} (hc : IsColimit c) : IsLimit c.op :=
BinaryFan.isLimitMk (fun s ↦ (hc.desc s.unop).op)
Expand All @@ -461,7 +460,6 @@ protected def BinaryFan.IsLimit.unop {c : BinaryFan (op X) (op Y)} (hc : IsLimit
(fun s m h₁ h₂ ↦ Quiver.Hom.op_inj
(BinaryFan.IsLimit.hom_ext hc (by simp [← h₁]) (by simp [← h₂])))

set_option backward.isDefEq.respectTransparency false in
/-- If a `BinaryCofan` in the opposite category is a colimit, then its `unop` is a limit. -/
protected def BinaryCofan.IsColimit.unop {c : BinaryCofan (op X) (op Y)} (hc : IsColimit c) :
IsLimit c.unop :=
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -291,7 +291,6 @@ end ProdLemmas

noncomputable section CoprodLemmas

set_option backward.isDefEq.respectTransparency false in
@[reassoc, simp]
theorem coprod.desc_comp {V W X Y : C} [HasBinaryCoproduct X Y] (f : V ⟶ W) (g : X ⟶ V)
(h : Y ⟶ V) : coprod.desc g h ≫ f = coprod.desc (g ≫ f) (h ≫ f) := by
Expand All @@ -314,12 +313,10 @@ theorem coprod.inr_map {W X Y Z : C} [HasBinaryCoproduct W X] [HasBinaryCoproduc
theorem coprod.map_id_id {X Y : C} [HasBinaryCoproduct X Y] : coprod.map (𝟙 X) (𝟙 Y) = 𝟙 _ := by
ext <;> simp

set_option backward.isDefEq.respectTransparency false in
@[simp]
theorem coprod.desc_inl_inr {X Y : C} [HasBinaryCoproduct X Y] :
coprod.desc coprod.inl coprod.inr = 𝟙 (X ⨿ Y) := by ext <;> simp

set_option backward.isDefEq.respectTransparency false in
-- The simp linter says simp can prove the reassoc version of this lemma.
@[reassoc, simp]
theorem coprod.map_desc {S T U V W : C} [HasBinaryCoproduct U W] [HasBinaryCoproduct T V]
Expand Down Expand Up @@ -515,7 +512,6 @@ noncomputable section
variable {C}
variable [HasBinaryCoproducts C]

set_option backward.isDefEq.respectTransparency false in
/-- The braiding isomorphism which swaps a binary coproduct. -/
@[simps]
def coprod.braiding (P Q : C) : P ⨿ Q ≅ Q ⨿ P where
Expand All @@ -531,14 +527,12 @@ theorem coprod.symmetry' (P Q : C) :
theorem coprod.symmetry (P Q : C) : (coprod.braiding P Q).hom ≫ (coprod.braiding Q P).hom = 𝟙 _ :=
coprod.symmetry' _ _

set_option backward.isDefEq.respectTransparency false in
/-- The associator isomorphism for binary coproducts. -/
@[simps]
def coprod.associator (P Q R : C) : (P ⨿ Q) ⨿ R ≅ P ⨿ Q ⨿ R where
hom := coprod.desc (coprod.desc coprod.inl (coprod.inl ≫ coprod.inr)) (coprod.inr ≫ coprod.inr)
inv := coprod.desc (coprod.inl ≫ coprod.inl) (coprod.desc (coprod.inr ≫ coprod.inl) coprod.inr)

set_option backward.isDefEq.respectTransparency false in
theorem coprod.pentagon (W X Y Z : C) :
coprod.map (coprod.associator W X Y).hom (𝟙 Z) ≫
(coprod.associator W (X ⨿ Y) Z).hom ≫ coprod.map (𝟙 W) (coprod.associator X Y Z).hom =
Expand All @@ -553,7 +547,6 @@ theorem coprod.associator_naturality {X₁ X₂ X₃ Y₁ Y₂ Y₃ : C} (f₁ :

variable [HasInitial C]

set_option backward.isDefEq.respectTransparency false in
/-- The left unitor isomorphism for binary coproducts with the initial object. -/
@[simps]
def coprod.leftUnitor (P : C) : (⊥_ C) ⨿ P ≅ P where
Expand All @@ -566,7 +559,6 @@ theorem coprod.leftUnitor_naturality (f : X ⟶ Y) :
coprod.map (𝟙 _) f ≫ (coprod.leftUnitor Y).hom = (coprod.leftUnitor X).hom ≫ f := by
simp

set_option backward.isDefEq.respectTransparency false in
/-- The right unitor isomorphism for binary coproducts with the initial object. -/
@[simps]
def coprod.rightUnitor (P : C) : P ⨿ ⊥_ C ≅ P where
Expand All @@ -579,7 +571,6 @@ theorem coprod.rightUnitor_naturality (f : X ⟶ Y) :
coprod.map f (𝟙 _) ≫ (coprod.rightUnitor Y).hom = (coprod.rightUnitor X).hom ≫ f := by
simp

set_option backward.isDefEq.respectTransparency false in
theorem coprod.triangle (X Y : C) :
(coprod.associator X (⊥_ C) Y).hom ≫ coprod.map (𝟙 X) (coprod.leftUnitor Y).hom =
coprod.map (coprod.rightUnitor X).hom (𝟙 Y) := by
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -300,7 +300,6 @@ instance : HasBinaryCoproduct (op A) (op B) := by
convert! (inferInstance : HasCoproduct fun x ↦ op (WalkingPair.casesOn x A B : C)) with x
cases x <;> rfl

set_option backward.isDefEq.respectTransparency false in
variable (A B) in
/--
The canonical isomorphism from the opposite of the binary product to the coproduct in the opposite
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -116,7 +116,6 @@ noncomputable def map (F : C ⥤ D) [PreservesWellOrderContinuousOfShape J F]
(Cocone.ext (Iso.refl _))
fac := by simp [← Functor.map_comp]

set_option backward.isDefEq.respectTransparency.types false in
set_option backward.defeqAttrib.useBackward true in
/-- A transfinite composition of shape `J` induces a transfinite composition
of shape `Set.Iic j` for any `j : J`. -/
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -35,7 +35,6 @@ lemma isPullback_equalizer_prod [HasEqualizer f g] [HasBinaryProduct Y Y] :
· exact fun s ↦ by simpa using congr($s.condition ≫ prod.fst)
· exact fun s m hm _ ↦ by ext; simp [*]

set_option backward.isDefEq.respectTransparency false in
/-- The coequalizer of `f g : X ⟶ Y` is the pushout of the diagonal map `X ⨿ X ⟶ X`
along the map `(f, g) : X ⨿ X ⟶ Y`. -/
lemma isPushout_coequalizer_coprod [HasCoequalizer f g] [HasBinaryCoproduct X X] :
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -705,7 +705,6 @@ lemma id_horiz (f : X ⟶ Z) : IsPushout (𝟙 X) f f (𝟙 Z) :=
of_horiz_isIso ⟨by simp only [Category.id_comp, Category.comp_id]⟩

set_option backward.defeqAttrib.useBackward true in
set_option backward.isDefEq.respectTransparency false in
/--
In a category, given a morphism `f : A ⟶ B` and an object `X`,
this is the obvious pushout diagram:
Expand Down
1 change: 0 additions & 1 deletion Mathlib/CategoryTheory/Limits/Shapes/Pullback/Mono.lean
Original file line number Diff line number Diff line change
Expand Up @@ -309,7 +309,6 @@ instance pushout.inr_of_epi {X Y Z : C} {f : X ⟶ Y} {g : X ⟶ Z} [HasPushout
Epi (pushout.inr _ _ : Z ⟶ pushout f g) :=
PushoutCocone.epi_inr_of_is_pushout_of_epi (colimit.isColimit _)

set_option backward.isDefEq.respectTransparency false in
/-- The map `X ⨿ Y ⟶ X ⨿[Z] Y` is epi. -/
instance epi_coprod_to_pushout {C : Type*} [Category* C] {X Y Z : C} (f : X ⟶ Y) (g : X ⟶ Z)
[HasPushout f g] [HasBinaryCoproduct Y Z] :
Expand Down
1 change: 0 additions & 1 deletion Mathlib/CategoryTheory/Limits/Sifted.lean
Original file line number Diff line number Diff line change
Expand Up @@ -98,7 +98,6 @@ instance [IsSifted C] : IsConnected C :=
· simpa using Zag.of_inv X.hom.snd
· rfl)

set_option backward.isDefEq.respectTransparency false in
set_option backward.defeqAttrib.useBackward true in
/-- A category with binary coproducts is sifted or empty. -/
instance [HasBinaryCoproducts C] : IsSiftedOrEmpty C := by
Expand Down
Loading
Loading