@@ -86,7 +86,7 @@ lemma functorMap_commSq_aux {n m k : ℕ} (h : n ≤ m) (hh : ¬(k < m)) :
8686 rw [this, op_comp, Functor.map_comp]
8787 slice_lhs 2 4 => rw [ih]
8888 simp only [ homOfLE_leOfHom, Functor.ofOpSequence_map_homOfLE_succ,
89- functorMap, dite_eq_ite, limMap_π_assoc, Discrete.functor_obj_eq_as, Discrete.natTrans_app ]
89+ functorMap, dite_eq_ite]
9090 split_ifs
9191 · omega
9292 simp [dif_neg (by lia : ¬(k < m)), dif_neg hh]
@@ -149,14 +149,14 @@ set_option backward.isDefEq.respectTransparency false in
149149lemma cone_π_app_comp_Pi_π_pos (m n : ℕ) (h : n < m) : (cone f).π.app ⟨m⟩ ≫
150150 Pi.π (fun i ↦ if _ : i < m then M i else N i) n =
151151 Pi.π _ n ≫ eqToHom (functorObj_eq_pos h).symm := by
152- simp [cone_π_app, limMap_π, Discrete.functor_obj_eq_as, Discrete.natTrans_app, dif_pos h]
152+ simp [cone_π_app, dif_pos h]
153153
154154set_option backward.defeqAttrib.useBackward true in
155155set_option backward.isDefEq.respectTransparency false in
156156@[reassoc]
157157lemma cone_π_app_comp_Pi_π_neg (m n : ℕ) (h : ¬(n < m)) : (cone f).π.app ⟨m⟩ ≫ Pi.π _ n =
158158 Pi.π _ n ≫ f n ≫ eqToHom (functorObj_eq_neg h).symm := by
159- simp [cone_π_app, limMap_π, Discrete.functor_obj_eq_as, Discrete.natTrans_app, dif_neg h]
159+ simp [cone_π_app, dif_neg h]
160160
161161set_option backward.isDefEq.respectTransparency false in
162162/--
0 commit comments