File tree Expand file tree Collapse file tree 2 files changed +3
-2
lines changed
Algebra/BigOperators/Group/List Expand file tree Collapse file tree 2 files changed +3
-2
lines changed Original file line number Diff line number Diff line change @@ -245,7 +245,7 @@ lemma prod_map_erase [DecidableEq α] (f : α → M) {a} :
245245@[to_additive] lemma Perm.prod_eq (h : Perm l₁ l₂) : prod l₁ = prod l₂ := h.foldr_op_eq
246246
247247-- In order to make `to_additive` work, this theorem is adjusted to `List.sum_reverse` from core
248- @ [to_additive existing]
248+ @ [to_additive existing, simp ]
249249lemma prod_reverse [One α] [Mul α] [@Std.Associative α (· * ·)] [@Std.Commutative α (· * ·)]
250250 [@Std.LawfulLeftIdentity α α (· * ·) 1 ] (l : List α) : prod l.reverse = prod l :=
251251 @List.sum_reverse α ⟨1 ⟩ ⟨(· * ·)⟩ _ _ _ l
Original file line number Diff line number Diff line change @@ -171,7 +171,8 @@ theorem toEmbedding_coeEquiv_trans (m : Multiset α) :
171171 m.coeEquiv.toEmbedding.trans (Function.Embedding.subtype _) = m.coeEmbedding := by ext <;> rfl
172172
173173#adaptation_note /-- Before https://github.com/leanprover/lean4/pull/12247
174- this was `@[irreducible]`, which is no longer allowed. -/
174+ this was `@[irreducible]`, which is no longer allowed at the definition site,
175+ and must be applied afterwards. -/
175176instance fintypeCoe : Fintype m :=
176177 Fintype.ofEquiv m.toEnumFinset m.coeEquiv.symm
177178
You can’t perform that action at this time.
0 commit comments