@@ -92,12 +92,12 @@ lemma mapComp'₀₁₃_hom_comp_whiskerLeft_mapComp'_hom (hf : f₀₁ ≫ f₁
9292 subst h₀₂ h₁₃ hf
9393 simp [mapComp_assoc_right_hom, Strict.associator_eqToIso, mapComp']
9494
95- -- Adaptation note for lean4#13557: `useBackward true` is required for the `_app` and
96- -- `_app_assoc` forms generated by `to_app` to be properly normalized by `catAppSimp`,
97- -- which calls into simp with several `[backward_defeq]`-only lemmas (e.g.
98- -- `Cat.Hom.comp_toFunctor`, `Functor.comp_obj`). Without it, the generated lemma's type
99- -- differs subtly and `IsPrestack.overMapCompPresheafHomIso` (and possibly other
100- -- downstream callers) cannot supply `rfl` for the auxiliary equality hypotheses.
95+ #adaptation_note /-- lean4#13557: `useBackward true` is required for the `_app` and
96+ `_app_assoc` forms generated by `to_app` to be properly normalized by `catAppSimp`,
97+ which calls into simp with several `[backward_defeq]`-only lemmas (e.g.
98+ `Cat.Hom.comp_toFunctor`, `Functor.comp_obj`). Without it, the generated lemma's type
99+ differs subtly and `IsPrestack.overMapCompPresheafHomIso` (and possibly other downstream
100+ callers) cannot supply `rfl` for the auxiliary equality hypotheses. -/
101101set_option backward.defeqAttrib.useBackward true in
102102@ [to_app (attr := reassoc)]
103103lemma mapComp'₀₁₃_inv_comp_mapComp'₀₂₃_hom (hf : f₀₁ ≫ f₁₃ = f) :
@@ -124,7 +124,7 @@ lemma mapComp'₀₂₃_hom_comp_mapComp'_hom_whiskerRight (hf : f₀₂ ≫ f
124124 rw [F.mapComp'₀₁₃_hom_comp_whiskerLeft_mapComp'_hom_assoc _ _ _ _ _ f h₀₂ h₁₃ (by cat_disch)]
125125 simp
126126
127- -- See the adaptation note above `mapComp'₀₁₃_inv_comp_mapComp'₀₂₃_hom` (lean4#13557).
127+ -- see adaptation note above `mapComp'₀₁₃_inv_comp_mapComp'₀₂₃_hom` (lean4#13557).
128128set_option backward.defeqAttrib.useBackward true in
129129@ [to_app (attr := reassoc)]
130130lemma mapComp'_inv_whiskerRight_mapComp'₀₂₃_inv (hf : f₀₂ ≫ f₂₃ = f) :
@@ -134,7 +134,7 @@ lemma mapComp'_inv_whiskerRight_mapComp'₀₂₃_inv (hf : f₀₂ ≫ f₂₃
134134 rw [whiskerLeft_mapComp'_inv_comp_mapComp'₀₁₃_inv _ _ _ _ _ _ f h₀₂ h₁₃,
135135 Iso.hom_inv_id_assoc]
136136
137- -- See the adaptation note above `mapComp'₀₁₃_inv_comp_mapComp'₀₂₃_hom` (lean4#13557).
137+ -- see adaptation note above `mapComp'₀₁₃_inv_comp_mapComp'₀₂₃_hom` (lean4#13557).
138138set_option backward.defeqAttrib.useBackward true in
139139@ [to_app (attr := reassoc)]
140140lemma mapComp'₀₁₃_inv (hf : f₀₁ ≫ f₁₃ = f) :
@@ -151,7 +151,7 @@ lemma mapComp'₀₁₃_hom (hf : f₀₁ ≫ f₁₃ = f) :
151151 rw [← cancel_epi (F.mapComp' f₀₁ f₁₃ f).inv, Iso.inv_hom_id]
152152 simp [mapComp'₀₁₃_inv _ _ _ _ _ _ f h₀₂ h₁₃ hf]
153153
154- -- See the adaptation note above `mapComp'₀₁₃_inv_comp_mapComp'₀₂₃_hom` (lean4#13557).
154+ -- see adaptation note above `mapComp'₀₁₃_inv_comp_mapComp'₀₂₃_hom` (lean4#13557).
155155set_option backward.defeqAttrib.useBackward true in
156156@ [to_app (attr := reassoc)]
157157lemma mapComp'₀₂₃_hom (hf : f₀₂ ≫ f₂₃ = f) :
@@ -168,7 +168,7 @@ lemma mapComp'₀₂₃_inv (hf : f₀₂ ≫ f₂₃ = f) :
168168 rw [← cancel_epi (F.mapComp' f₀₂ f₂₃ f).hom, Iso.hom_inv_id]
169169 simp [mapComp'₀₂₃_hom _ _ _ _ _ _ f h₀₂ h₁₃ hf]
170170
171- -- See the adaptation note above `mapComp'₀₁₃_inv_comp_mapComp'₀₂₃_hom` (lean4#13557).
171+ -- see adaptation note above `mapComp'₀₁₃_inv_comp_mapComp'₀₂₃_hom` (lean4#13557).
172172set_option backward.defeqAttrib.useBackward true in
173173@ [to_app (attr := reassoc)]
174174lemma mapComp'₀₂₃_inv_comp_mapComp'₀₁₃_hom (hf : f₀₂ ≫ f₂₃ = f) :
0 commit comments