no goals
ι : Type u_2
α : Type u_1
A : ι → Type ?u.43971
inst✝¹ : AddMonoid ι
inst✝ : GradedMonoid.GMonoid A
l : List α
fι : α → ι
⊢ dProdIndex l fι = sum (map fι l)
match l with
| [] => simp
| head::tail => simp [List.dProdIndex_eq_map_sum tail fι]
no goals
ι : Type u_2
α : Type u_1
A : ι → Type ?u.43971
inst✝¹ : AddMonoid ι
inst✝ : GradedMonoid.GMonoid A
l : List α
fι : α → ι
⊢ dProdIndex [] fι = sum (map fι [])
simp
no goals
ι : Type u_2
α : Type u_1
A : ι → Type ?u.43971
inst✝¹ : AddMonoid ι
inst✝ : GradedMonoid.GMonoid A
l : List α
fι : α → ι
head : α
tail : List α
⊢ dProdIndex (head :: tail) fι = sum (map fι (head :: tail))
simp [List.dProdIndex_eq_map_sum tail fι]