Theorem gsummatr01 22008

Description: Lemma 1 for smadiadetlem4 22018. (Contributed by AV, 8-Jan-2019.)

Hypotheses

Ref	Expression
gsummatr01.p	⊢ 𝑃 = (Base‘(SymGrp‘𝑁))
gsummatr01.r	⊢ 𝑅 = {𝑟 ∈ 𝑃 ∣ (𝑟‘𝐾) = 𝐿}
gsummatr01.0	⊢ 0 = (0g‘𝐺)
gsummatr01.s	⊢ 𝑆 = (Base‘𝐺)

Assertion

Ref	Expression
gsummatr01	⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → (𝐺 Σg (𝑛 ∈ 𝑁 ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)))) = (𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ (𝑁 ∖ {𝐾}), 𝑗 ∈ (𝑁 ∖ {𝐿}) ↦ (𝑖𝐴𝑗))(𝑄‘𝑛)))))

Distinct variable groups:   𝐴,𝑖,𝑗,𝑛   𝐵,𝑖,𝑗,𝑛   𝑖,𝐺,𝑗,𝑛   𝑖,𝐾,𝑗,𝑛   𝐾,𝑟   𝑖,𝐿,𝑗,𝑛   𝐿,𝑟   𝑖,𝑁,𝑗,𝑛   𝑃,𝑟   𝑄,𝑟   𝑄,𝑖,𝑗,𝑛   𝑅,𝑖,𝑗,𝑛   𝑆,𝑖,𝑗,𝑛   0 ,𝑖,𝑗,𝑛

Allowed substitution hints:   𝐴(𝑟)   𝐵(𝑟)   𝑃(𝑖,𝑗,𝑛)   𝑅(𝑟)   𝑆(𝑟)   𝐺(𝑟)   𝑁(𝑟)   0 (𝑟)

Proof of Theorem gsummatr01

Step	Hyp	Ref	Expression
1		difsnid 4770	. . . . . . 7 ⊢ (𝐾 ∈ 𝑁 → ((𝑁 ∖ {𝐾}) ∪ {𝐾}) = 𝑁)
2	1	eqcomd 2742	. . . . . 6 ⊢ (𝐾 ∈ 𝑁 → 𝑁 = ((𝑁 ∖ {𝐾}) ∪ {𝐾}))
3	2	3ad2ant1 1133	. . . . 5 ⊢ ((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) → 𝑁 = ((𝑁 ∖ {𝐾}) ∪ {𝐾}))
4	3	3ad2ant3 1135	. . . 4 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → 𝑁 = ((𝑁 ∖ {𝐾}) ∪ {𝐾}))
5	4	mpteq1d 5200	. . 3 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → (𝑛 ∈ 𝑁 ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛))) = (𝑛 ∈ ((𝑁 ∖ {𝐾}) ∪ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛))))
6	5	oveq2d 7373	. 2 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → (𝐺 Σg (𝑛 ∈ 𝑁 ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)))) = (𝐺 Σg (𝑛 ∈ ((𝑁 ∖ {𝐾}) ∪ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)))))
7		gsummatr01.p	. . 3 ⊢ 𝑃 = (Base‘(SymGrp‘𝑁))
8		gsummatr01.r	. . 3 ⊢ 𝑅 = {𝑟 ∈ 𝑃 ∣ (𝑟‘𝐾) = 𝐿}
9		gsummatr01.0	. . 3 ⊢ 0 = (0g‘𝐺)
10		gsummatr01.s	. . 3 ⊢ 𝑆 = (Base‘𝐺)
11	7, 8, 9, 10	gsummatr01lem3 22006	. 2 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → (𝐺 Σg (𝑛 ∈ ((𝑁 ∖ {𝐾}) ∪ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)))) = ((𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛))))(+g‘𝐺)(𝐾(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝐾))))
12		eqidd 2737	. . . . . 6 ⊢ ((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗))) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗))))
13		fveq1 6841	. . . . . . . . . . . 12 ⊢ (𝑟 = 𝑄 → (𝑟‘𝐾) = (𝑄‘𝐾))
14	13	eqeq1d 2738	. . . . . . . . . . 11 ⊢ (𝑟 = 𝑄 → ((𝑟‘𝐾) = 𝐿 ↔ (𝑄‘𝐾) = 𝐿))
15	14, 8	elrab2 3648	. . . . . . . . . 10 ⊢ (𝑄 ∈ 𝑅 ↔ (𝑄 ∈ 𝑃 ∧ (𝑄‘𝐾) = 𝐿))
16		eqeq2 2748	. . . . . . . . . . . 12 ⊢ ((𝑄‘𝐾) = 𝐿 → (𝑗 = (𝑄‘𝐾) ↔ 𝑗 = 𝐿))
17	16	adantl 482	. . . . . . . . . . 11 ⊢ ((𝑄 ∈ 𝑃 ∧ (𝑄‘𝐾) = 𝐿) → (𝑗 = (𝑄‘𝐾) ↔ 𝑗 = 𝐿))
18	17	anbi2d 629	. . . . . . . . . 10 ⊢ ((𝑄 ∈ 𝑃 ∧ (𝑄‘𝐾) = 𝐿) → ((𝑖 = 𝐾 ∧ 𝑗 = (𝑄‘𝐾)) ↔ (𝑖 = 𝐾 ∧ 𝑗 = 𝐿)))
19	15, 18	sylbi 216	. . . . . . . . 9 ⊢ (𝑄 ∈ 𝑅 → ((𝑖 = 𝐾 ∧ 𝑗 = (𝑄‘𝐾)) ↔ (𝑖 = 𝐾 ∧ 𝑗 = 𝐿)))
20	19	3ad2ant3 1135	. . . . . . . 8 ⊢ ((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) → ((𝑖 = 𝐾 ∧ 𝑗 = (𝑄‘𝐾)) ↔ (𝑖 = 𝐾 ∧ 𝑗 = 𝐿)))
21		iftrue 4492	. . . . . . . . 9 ⊢ (𝑖 = 𝐾 → if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)) = if(𝑗 = 𝐿, 0 , 𝐵))
22		iftrue 4492	. . . . . . . . 9 ⊢ (𝑗 = 𝐿 → if(𝑗 = 𝐿, 0 , 𝐵) = 0 )
23	21, 22	sylan9eq 2796	. . . . . . . 8 ⊢ ((𝑖 = 𝐾 ∧ 𝑗 = 𝐿) → if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)) = 0 )
24	20, 23	syl6bi 252	. . . . . . 7 ⊢ ((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) → ((𝑖 = 𝐾 ∧ 𝑗 = (𝑄‘𝐾)) → if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)) = 0 ))
25	24	imp 407	. . . . . 6 ⊢ (((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) ∧ (𝑖 = 𝐾 ∧ 𝑗 = (𝑄‘𝐾))) → if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)) = 0 )
26		simp1 1136	. . . . . 6 ⊢ ((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) → 𝐾 ∈ 𝑁)
27	7, 8	gsummatr01lem1 22004	. . . . . . . 8 ⊢ ((𝑄 ∈ 𝑅 ∧ 𝐾 ∈ 𝑁) → (𝑄‘𝐾) ∈ 𝑁)
28	27	ancoms 459	. . . . . . 7 ⊢ ((𝐾 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) → (𝑄‘𝐾) ∈ 𝑁)
29	28	3adant2 1131	. . . . . 6 ⊢ ((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) → (𝑄‘𝐾) ∈ 𝑁)
30	9	fvexi 6856	. . . . . . 7 ⊢ 0 ∈ V
31	30	a1i 11	. . . . . 6 ⊢ ((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) → 0 ∈ V)
32	12, 25, 26, 29, 31	ovmpod 7507	. . . . 5 ⊢ ((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) → (𝐾(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝐾)) = 0 )
33	32	3ad2ant3 1135	. . . 4 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → (𝐾(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝐾)) = 0 )
34	33	oveq2d 7373	. . 3 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → ((𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛))))(+g‘𝐺)(𝐾(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝐾))) = ((𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛))))(+g‘𝐺) 0 ))
35		cmnmnd 19579	. . . . . 6 ⊢ (𝐺 ∈ CMnd → 𝐺 ∈ Mnd)
36	35	adantr 481	. . . . 5 ⊢ ((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) → 𝐺 ∈ Mnd)
37	36	3ad2ant1 1133	. . . 4 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → 𝐺 ∈ Mnd)
38		eqid 2736	. . . . 5 ⊢ (Base‘𝐺) = (Base‘𝐺)
39		simp1l 1197	. . . . 5 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → 𝐺 ∈ CMnd)
40		diffi 9123	. . . . . . 7 ⊢ (𝑁 ∈ Fin → (𝑁 ∖ {𝐾}) ∈ Fin)
41	40	adantl 482	. . . . . 6 ⊢ ((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) → (𝑁 ∖ {𝐾}) ∈ Fin)
42	41	3ad2ant1 1133	. . . . 5 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → (𝑁 ∖ {𝐾}) ∈ Fin)
43		eqidd 2737	. . . . . . . . 9 ⊢ (((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) ∧ 𝑛 ∈ (𝑁 ∖ {𝐾})) → (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗))) = (𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗))))
44		eqeq1 2740	. . . . . . . . . . . 12 ⊢ (𝑖 = 𝑛 → (𝑖 = 𝐾 ↔ 𝑛 = 𝐾))
45	44	adantr 481	. . . . . . . . . . 11 ⊢ ((𝑖 = 𝑛 ∧ 𝑗 = (𝑄‘𝑛)) → (𝑖 = 𝐾 ↔ 𝑛 = 𝐾))
46		eqeq1 2740	. . . . . . . . . . . . 13 ⊢ (𝑗 = (𝑄‘𝑛) → (𝑗 = 𝐿 ↔ (𝑄‘𝑛) = 𝐿))
47	46	ifbid 4509	. . . . . . . . . . . 12 ⊢ (𝑗 = (𝑄‘𝑛) → if(𝑗 = 𝐿, 0 , 𝐵) = if((𝑄‘𝑛) = 𝐿, 0 , 𝐵))
48	47	adantl 482	. . . . . . . . . . 11 ⊢ ((𝑖 = 𝑛 ∧ 𝑗 = (𝑄‘𝑛)) → if(𝑗 = 𝐿, 0 , 𝐵) = if((𝑄‘𝑛) = 𝐿, 0 , 𝐵))
49		oveq12 7366	. . . . . . . . . . 11 ⊢ ((𝑖 = 𝑛 ∧ 𝑗 = (𝑄‘𝑛)) → (𝑖𝐴𝑗) = (𝑛𝐴(𝑄‘𝑛)))
50	45, 48, 49	ifbieq12d 4514	. . . . . . . . . 10 ⊢ ((𝑖 = 𝑛 ∧ 𝑗 = (𝑄‘𝑛)) → if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)) = if(𝑛 = 𝐾, if((𝑄‘𝑛) = 𝐿, 0 , 𝐵), (𝑛𝐴(𝑄‘𝑛))))
51		eldifsni 4750	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (𝑁 ∖ {𝐾}) → 𝑛 ≠ 𝐾)
52	51	neneqd 2948	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ (𝑁 ∖ {𝐾}) → ¬ 𝑛 = 𝐾)
53	52	iffalsed 4497	. . . . . . . . . . 11 ⊢ (𝑛 ∈ (𝑁 ∖ {𝐾}) → if(𝑛 = 𝐾, if((𝑄‘𝑛) = 𝐿, 0 , 𝐵), (𝑛𝐴(𝑄‘𝑛))) = (𝑛𝐴(𝑄‘𝑛)))
54	53	adantl 482	. . . . . . . . . 10 ⊢ (((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) ∧ 𝑛 ∈ (𝑁 ∖ {𝐾})) → if(𝑛 = 𝐾, if((𝑄‘𝑛) = 𝐿, 0 , 𝐵), (𝑛𝐴(𝑄‘𝑛))) = (𝑛𝐴(𝑄‘𝑛)))
55	50, 54	sylan9eqr 2798	. . . . . . . . 9 ⊢ ((((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) ∧ 𝑛 ∈ (𝑁 ∖ {𝐾})) ∧ (𝑖 = 𝑛 ∧ 𝑗 = (𝑄‘𝑛))) → if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)) = (𝑛𝐴(𝑄‘𝑛)))
56		eldifi 4086	. . . . . . . . . 10 ⊢ (𝑛 ∈ (𝑁 ∖ {𝐾}) → 𝑛 ∈ 𝑁)
57	56	adantl 482	. . . . . . . . 9 ⊢ (((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) ∧ 𝑛 ∈ (𝑁 ∖ {𝐾})) → 𝑛 ∈ 𝑁)
58		simp3 1138	. . . . . . . . . 10 ⊢ ((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) → 𝑄 ∈ 𝑅)
59	7, 8	gsummatr01lem1 22004	. . . . . . . . . 10 ⊢ ((𝑄 ∈ 𝑅 ∧ 𝑛 ∈ 𝑁) → (𝑄‘𝑛) ∈ 𝑁)
60	58, 56, 59	syl2an 596	. . . . . . . . 9 ⊢ (((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) ∧ 𝑛 ∈ (𝑁 ∖ {𝐾})) → (𝑄‘𝑛) ∈ 𝑁)
61		ovexd 7392	. . . . . . . . 9 ⊢ (((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) ∧ 𝑛 ∈ (𝑁 ∖ {𝐾})) → (𝑛𝐴(𝑄‘𝑛)) ∈ V)
62	43, 55, 57, 60, 61	ovmpod 7507	. . . . . . . 8 ⊢ (((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) ∧ 𝑛 ∈ (𝑁 ∖ {𝐾})) → (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)) = (𝑛𝐴(𝑄‘𝑛)))
63	62	3ad2antl3 1187	. . . . . . 7 ⊢ ((((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) ∧ 𝑛 ∈ (𝑁 ∖ {𝐾})) → (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)) = (𝑛𝐴(𝑄‘𝑛)))
64	10	eleq2i 2829	. . . . . . . . . . . . . . . 16 ⊢ ((𝑖𝐴𝑗) ∈ 𝑆 ↔ (𝑖𝐴𝑗) ∈ (Base‘𝐺))
65	64	2ralbii 3127	. . . . . . . . . . . . . . 15 ⊢ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ↔ ∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ (Base‘𝐺))
66	7, 8	gsummatr01lem2 22005	. . . . . . . . . . . . . . 15 ⊢ ((𝑄 ∈ 𝑅 ∧ 𝑛 ∈ 𝑁) → (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ (Base‘𝐺) → (𝑛𝐴(𝑄‘𝑛)) ∈ (Base‘𝐺)))
67	65, 66	biimtrid 241	. . . . . . . . . . . . . 14 ⊢ ((𝑄 ∈ 𝑅 ∧ 𝑛 ∈ 𝑁) → (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 → (𝑛𝐴(𝑄‘𝑛)) ∈ (Base‘𝐺)))
68	58, 56, 67	syl2anr 597	. . . . . . . . . . . . 13 ⊢ ((𝑛 ∈ (𝑁 ∖ {𝐾}) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 → (𝑛𝐴(𝑄‘𝑛)) ∈ (Base‘𝐺)))
69	68	ex 413	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ (𝑁 ∖ {𝐾}) → ((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) → (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 → (𝑛𝐴(𝑄‘𝑛)) ∈ (Base‘𝐺))))
70	69	com13 88	. . . . . . . . . . 11 ⊢ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 → ((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) → (𝑛 ∈ (𝑁 ∖ {𝐾}) → (𝑛𝐴(𝑄‘𝑛)) ∈ (Base‘𝐺))))
71	70	adantr 481	. . . . . . . . . 10 ⊢ ((∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) → ((𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅) → (𝑛 ∈ (𝑁 ∖ {𝐾}) → (𝑛𝐴(𝑄‘𝑛)) ∈ (Base‘𝐺))))
72	71	imp 407	. . . . . . . . 9 ⊢ (((∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → (𝑛 ∈ (𝑁 ∖ {𝐾}) → (𝑛𝐴(𝑄‘𝑛)) ∈ (Base‘𝐺)))
73	72	3adant1 1130	. . . . . . . 8 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → (𝑛 ∈ (𝑁 ∖ {𝐾}) → (𝑛𝐴(𝑄‘𝑛)) ∈ (Base‘𝐺)))
74	73	imp 407	. . . . . . 7 ⊢ ((((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) ∧ 𝑛 ∈ (𝑁 ∖ {𝐾})) → (𝑛𝐴(𝑄‘𝑛)) ∈ (Base‘𝐺))
75	63, 74	eqeltrd 2838	. . . . . 6 ⊢ ((((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) ∧ 𝑛 ∈ (𝑁 ∖ {𝐾})) → (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)) ∈ (Base‘𝐺))
76	75	ralrimiva 3143	. . . . 5 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → ∀𝑛 ∈ (𝑁 ∖ {𝐾})(𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)) ∈ (Base‘𝐺))
77	38, 39, 42, 76	gsummptcl 19744	. . . 4 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → (𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)))) ∈ (Base‘𝐺))
78		eqid 2736	. . . . 5 ⊢ (+g‘𝐺) = (+g‘𝐺)
79	38, 78, 9	mndrid 18577	. . . 4 ⊢ ((𝐺 ∈ Mnd ∧ (𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)))) ∈ (Base‘𝐺)) → ((𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛))))(+g‘𝐺) 0 ) = (𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)))))
80	37, 77, 79	syl2anc 584	. . 3 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → ((𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛))))(+g‘𝐺) 0 ) = (𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)))))
81	7, 8, 9, 10	gsummatr01lem4 22007	. . . . 5 ⊢ ((((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) ∧ 𝑛 ∈ (𝑁 ∖ {𝐾})) → (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)) = (𝑛(𝑖 ∈ (𝑁 ∖ {𝐾}), 𝑗 ∈ (𝑁 ∖ {𝐿}) ↦ (𝑖𝐴𝑗))(𝑄‘𝑛)))
82	81	mpteq2dva 5205	. . . 4 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛))) = (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ (𝑁 ∖ {𝐾}), 𝑗 ∈ (𝑁 ∖ {𝐿}) ↦ (𝑖𝐴𝑗))(𝑄‘𝑛))))
83	82	oveq2d 7373	. . 3 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → (𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)))) = (𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ (𝑁 ∖ {𝐾}), 𝑗 ∈ (𝑁 ∖ {𝐿}) ↦ (𝑖𝐴𝑗))(𝑄‘𝑛)))))
84	34, 80, 83	3eqtrd 2780	. 2 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → ((𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛))))(+g‘𝐺)(𝐾(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝐾))) = (𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ (𝑁 ∖ {𝐾}), 𝑗 ∈ (𝑁 ∖ {𝐿}) ↦ (𝑖𝐴𝑗))(𝑄‘𝑛)))))
85	6, 11, 84	3eqtrd 2780	1 ⊢ (((𝐺 ∈ CMnd ∧ 𝑁 ∈ Fin) ∧ (∀𝑖 ∈ 𝑁 ∀𝑗 ∈ 𝑁 (𝑖𝐴𝑗) ∈ 𝑆 ∧ 𝐵 ∈ 𝑆) ∧ (𝐾 ∈ 𝑁 ∧ 𝐿 ∈ 𝑁 ∧ 𝑄 ∈ 𝑅)) → (𝐺 Σg (𝑛 ∈ 𝑁 ↦ (𝑛(𝑖 ∈ 𝑁, 𝑗 ∈ 𝑁 ↦ if(𝑖 = 𝐾, if(𝑗 = 𝐿, 0 , 𝐵), (𝑖𝐴𝑗)))(𝑄‘𝑛)))) = (𝐺 Σg (𝑛 ∈ (𝑁 ∖ {𝐾}) ↦ (𝑛(𝑖 ∈ (𝑁 ∖ {𝐾}), 𝑗 ∈ (𝑁 ∖ {𝐿}) ↦ (𝑖𝐴𝑗))(𝑄‘𝑛)))))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106  ∀wral 3064  {crab 3407  Vcvv 3445   ∖ cdif 3907   ∪ cun 3908  ifcif 4486  {csn 4586   ↦ cmpt 5188  ‘cfv 6496  (class class class)co 7357   ∈ cmpo 7359  Fincfn 8883  Basecbs 17083  +_gcplusg 17133  0_gc0g 17321   Σ_g cgsu 17322  Mndcmnd 18556  SymGrpcsymg 19148  CMndccmn 19562

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-rmo 3353  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-tp 4591  df-op 4593  df-uni 4866  df-int 4908  df-iun 4956  df-iin 4957  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-se 5589  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-isom 6505  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-of 7617  df-om 7803  df-1st 7921  df-2nd 7922  df-supp 8093  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-rdg 8356  df-1o 8412  df-er 8648  df-map 8767  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-fsupp 9306  df-oi 9446  df-card 9875  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-nn 12154  df-2 12216  df-3 12217  df-4 12218  df-5 12219  df-6 12220  df-7 12221  df-8 12222  df-9 12223  df-n0 12414  df-z 12500  df-uz 12764  df-fz 13425  df-fzo 13568  df-seq 13907  df-hash 14231  df-struct 17019  df-sets 17036  df-slot 17054  df-ndx 17066  df-base 17084  df-ress 17113  df-plusg 17146  df-tset 17152  df-0g 17323  df-gsum 17324  df-mre 17466  df-mrc 17467  df-acs 17469  df-mgm 18497  df-sgrp 18546  df-mnd 18557  df-submnd 18602  df-efmnd 18679  df-mulg 18873  df-cntz 19097  df-symg 19149  df-cmn 19564

This theorem is referenced by:  smadiadetlem4  22018