Theorem mplmonmul 22375

Description: The product of two monomials adds the exponent vectors together. For example, the product of (𝑥↑2)(𝑦↑2) with (𝑦↑1)(𝑧↑3) is (𝑥↑2)(𝑦↑3)(𝑧↑3), where the exponent vectors ⟨2, 2, 0⟩ and ⟨0, 1, 3⟩ are added to give ⟨2, 3, 3⟩. (Contributed by Mario Carneiro, 9-Jan-2015.)

Hypotheses

Ref	Expression
mplmon.s	⊢ 𝑃 = (𝐼 mPoly 𝑅)
mplmon.b	⊢ 𝐵 = (Base‘𝑃)
mplmon.z	⊢ 0 = (0g‘𝑅)
mplmon.o	⊢ 1 = (1r‘𝑅)
mplmon.d	⊢ 𝐷 = {𝑓 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin}
mplmon.i	⊢ (𝜑 → 𝐼 ∈ 𝑊)
mplmon.r	⊢ (𝜑 → 𝑅 ∈ Ring)
mplmon.x	⊢ (𝜑 → 𝑋 ∈ 𝐷)
mplmonmul.t	⊢ · = (.r‘𝑃)
mplmonmul.x	⊢ (𝜑 → 𝑌 ∈ 𝐷)

Assertion

Ref	Expression
mplmonmul	⊢ (𝜑 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑋 ∘f + 𝑌), 1 , 0 )))

Distinct variable groups:   𝑦,𝐷   𝑓,𝐼   𝜑,𝑦   𝑦,𝑓,𝑋   𝑦, 0   𝑦, 1   𝑦,𝑅   𝑓,𝑌,𝑦

Allowed substitution hints:   𝜑(𝑓)   𝐵(𝑦, 𝑓)   𝐷(𝑓)   𝑃(𝑦, 𝑓)   𝑅(𝑓)   · (𝑦, 𝑓)   1 (𝑓)   𝐼(𝑦)   𝑊(𝑦, 𝑓)   0 (𝑓)

Proof of Theorem mplmonmul

Dummy variables 𝑗 𝑘 𝑥 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mplmon.s	. . 3 ⊢ 𝑃 = (𝐼 mPoly 𝑅)
2		mplmon.b	. . 3 ⊢ 𝐵 = (Base‘𝑃)
3		eqid 2763	. . 3 ⊢ (.r‘𝑅) = (.r‘𝑅)
4		mplmonmul.t	. . 3 ⊢ · = (.r‘𝑃)
5		mplmon.d	. . 3 ⊢ 𝐷 = {𝑓 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin}
6		mplmon.z	. . . 4 ⊢ 0 = (0g‘𝑅)
7		mplmon.o	. . . 4 ⊢ 1 = (1r‘𝑅)
8		mplmon.i	. . . 4 ⊢ (𝜑 → 𝐼 ∈ 𝑊)
9		mplmon.r	. . . 4 ⊢ (𝜑 → 𝑅 ∈ Ring)
10		mplmon.x	. . . 4 ⊢ (𝜑 → 𝑋 ∈ 𝐷)
11	1, 2, 6, 7, 5, 8, 9, 10	mplmon 22374	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) ∈ 𝐵)
12		mplmonmul.x	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝐷)
13	1, 2, 6, 7, 5, 8, 9, 12	mplmon 22374	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) ∈ 𝐵)
14	1, 2, 3, 4, 5, 11, 13	mplmul 22348	. 2 ⊢ (𝜑 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))) = (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))))))
15		eqeq1 2767	. . . . 5 ⊢ (𝑦 = 𝑘 → (𝑦 = (𝑋 ∘f + 𝑌) ↔ 𝑘 = (𝑋 ∘f + 𝑌)))
16	15	ifbid 4509	. . . 4 ⊢ (𝑦 = 𝑘 → if(𝑦 = (𝑋 ∘f + 𝑌), 1 , 0 ) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
17	16	cbvmptv 5212	. . 3 ⊢ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑋 ∘f + 𝑌), 1 , 0 )) = (𝑘 ∈ 𝐷 ↦ if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
18		simpr 490	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
19	18	snssd 4747	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → {𝑋} ⊆ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
20	19	resmptd 6044	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋}) = (𝑗 ∈ {𝑋} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))))
21	20	oveq2d 7459	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = (𝑅 Σg (𝑗 ∈ {𝑋} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))))
22	9	ad2antrr 739	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑅 ∈ Ring)
23		ringmnd 20500	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
24	22, 23	syl 18	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑅 ∈ Mnd)
25	10	ad2antrr 739	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑋 ∈ 𝐷)
26		iftrue 4491	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑋 → if(𝑦 = 𝑋, 1 , 0 ) = 1 )
27		eqid 2763	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))
28	7	fvexi 6922	. . . . . . . . . . . . 13 ⊢ 1 ∈ V
29	26, 27, 28	fvmpt 7016	. . . . . . . . . . . 12 ⊢ (𝑋 ∈ 𝐷 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋) = 1 )
30	25, 29	syl 18	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋) = 1 )
31		ssrab2 4008	. . . . . . . . . . . . 13 ⊢ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ⊆ 𝐷
32		simplr 781	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑘 ∈ 𝐷)
33		eqid 2763	. . . . . . . . . . . . . . 15 ⊢ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} = {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}
34	5, 33	psrbagconcl 22265	. . . . . . . . . . . . . 14 ⊢ ((𝑘 ∈ 𝐷 ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑋) ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
35	32, 18, 34	syl2anc 596	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑋) ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
36	31, 35	sselid 3911	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑋) ∈ 𝐷)
37		eqeq1 2767	. . . . . . . . . . . . . 14 ⊢ (𝑦 = (𝑘 ∘f − 𝑋) → (𝑦 = 𝑌 ↔ (𝑘 ∘f − 𝑋) = 𝑌))
38	37	ifbid 4509	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑘 ∘f − 𝑋) → if(𝑦 = 𝑌, 1 , 0 ) = if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ))
39		eqid 2763	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))
40	6	fvexi 6922	. . . . . . . . . . . . . 14 ⊢ 0 ∈ V
41	28, 40	ifex 4536	. . . . . . . . . . . . 13 ⊢ if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) ∈ V
42	38, 39, 41	fvmpt 7016	. . . . . . . . . . . 12 ⊢ ((𝑘 ∘f − 𝑋) ∈ 𝐷 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋)) = if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ))
43	36, 42	syl 18	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋)) = if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ))
44	30, 43	oveq12d 7461	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))) = ( 1 (.r‘𝑅)if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 )))
45		eqid 2763	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑅) = (Base‘𝑅)
46	45, 7	ringidcl 20524	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ Ring → 1 ∈ (Base‘𝑅))
47	45, 6	ring0cl 20526	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ Ring → 0 ∈ (Base‘𝑅))
48	46, 47	ifcld 4532	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ Ring → if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) ∈ (Base‘𝑅))
49	22, 48	syl 18	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) ∈ (Base‘𝑅))
50	45, 3, 7	ringlidm 20528	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ Ring ∧ if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) ∈ (Base‘𝑅)) → ( 1 (.r‘𝑅)if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 )) = if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ))
51	22, 49, 50	syl2anc 596	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ( 1 (.r‘𝑅)if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 )) = if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ))
52	5	psrbagf 22256	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ 𝐷 → 𝑘:𝐼⟶ℕ0)
53	32, 52	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑘:𝐼⟶ℕ0)
54	53	ffvelcdmda 7108	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (𝑘‘𝑧) ∈ ℕ0)
55	10	adantr 486	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋 ∈ 𝐷)
56	5	psrbagf 22256	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑋 ∈ 𝐷 → 𝑋:𝐼⟶ℕ0)
57	55, 56	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋:𝐼⟶ℕ0)
58	57	ffvelcdmda 7108	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → (𝑋‘𝑧) ∈ ℕ0)
59	58	adantlr 728	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (𝑋‘𝑧) ∈ ℕ0)
60	5	psrbagf 22256	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑌 ∈ 𝐷 → 𝑌:𝐼⟶ℕ0)
61	12, 60	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑌:𝐼⟶ℕ0)
62	61	adantr 486	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑌:𝐼⟶ℕ0)
63	62	ffvelcdmda 7108	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → (𝑌‘𝑧) ∈ ℕ0)
64	63	adantlr 728	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (𝑌‘𝑧) ∈ ℕ0)
65		nn0cn 12643	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑘‘𝑧) ∈ ℕ0 → (𝑘‘𝑧) ∈ ℂ)
66		nn0cn 12643	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑋‘𝑧) ∈ ℕ0 → (𝑋‘𝑧) ∈ ℂ)
67		nn0cn 12643	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑌‘𝑧) ∈ ℕ0 → (𝑌‘𝑧) ∈ ℂ)
68		subadd 11587	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑘‘𝑧) ∈ ℂ ∧ (𝑋‘𝑧) ∈ ℂ ∧ (𝑌‘𝑧) ∈ ℂ) → (((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ ((𝑋‘𝑧) + (𝑌‘𝑧)) = (𝑘‘𝑧)))
69	65, 66, 67, 68	syl3an 1178	. . . . . . . . . . . . . . . 16 ⊢ (((𝑘‘𝑧) ∈ ℕ0 ∧ (𝑋‘𝑧) ∈ ℕ0 ∧ (𝑌‘𝑧) ∈ ℕ0) → (((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ ((𝑋‘𝑧) + (𝑌‘𝑧)) = (𝑘‘𝑧)))
70	54, 59, 64, 69	syl3anc 1399	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ ((𝑋‘𝑧) + (𝑌‘𝑧)) = (𝑘‘𝑧)))
71		eqcom 2770	. . . . . . . . . . . . . . 15 ⊢ (((𝑋‘𝑧) + (𝑌‘𝑧)) = (𝑘‘𝑧) ↔ (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧)))
72	70, 71	bitrdi 290	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧))))
73	72	ralbidva 3187	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (∀𝑧 ∈ 𝐼 ((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ ∀𝑧 ∈ 𝐼 (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧))))
74		mpteqb 7036	. . . . . . . . . . . . . 14 ⊢ (∀𝑧 ∈ 𝐼 ((𝑘‘𝑧) − (𝑋‘𝑧)) ∈ V → ((𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))) = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)) ↔ ∀𝑧 ∈ 𝐼 ((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧)))
75		ovexd 7478	. . . . . . . . . . . . . 14 ⊢ (𝑧 ∈ 𝐼 → ((𝑘‘𝑧) − (𝑋‘𝑧)) ∈ V)
76	74, 75	mprg 3086	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))) = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)) ↔ ∀𝑧 ∈ 𝐼 ((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧))
77		mpteqb 7036	. . . . . . . . . . . . . 14 ⊢ (∀𝑧 ∈ 𝐼 (𝑘‘𝑧) ∈ V → ((𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧))) ↔ ∀𝑧 ∈ 𝐼 (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧))))
78		fvexd 6923	. . . . . . . . . . . . . 14 ⊢ (𝑧 ∈ 𝐼 → (𝑘‘𝑧) ∈ V)
79	77, 78	mprg 3086	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧))) ↔ ∀𝑧 ∈ 𝐼 (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧)))
80	73, 76, 79	3bitr4g 317	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))) = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)) ↔ (𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧)))))
81	8	ad2antrr 739	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝐼 ∈ 𝑊)
82	53	feqmptd 6976	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑘 = (𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)))
83	57	feqmptd 6976	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋 = (𝑧 ∈ 𝐼 ↦ (𝑋‘𝑧)))
84	83	adantr 486	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑋 = (𝑧 ∈ 𝐼 ↦ (𝑋‘𝑧)))
85	81, 54, 59, 82, 84	offval2 7737	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑋) = (𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))))
86	62	feqmptd 6976	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑌 = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)))
87	86	adantr 486	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑌 = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)))
88	85, 87	eqeq12d 2779	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑘 ∘f − 𝑋) = 𝑌 ↔ (𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))) = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧))))
89	8	adantr 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝐼 ∈ 𝑊)
90	89, 58, 63, 83, 86	offval2 7737	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑋 ∘f + 𝑌) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧))))
91	90	adantr 486	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑋 ∘f + 𝑌) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧))))
92	82, 91	eqeq12d 2779	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 = (𝑋 ∘f + 𝑌) ↔ (𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧)))))
93	80, 88, 92	3bitr4d 314	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑘 ∘f − 𝑋) = 𝑌 ↔ 𝑘 = (𝑋 ∘f + 𝑌)))
94	93	ifbid 4509	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
95	44, 51, 94	3eqtrd 2802	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
96	94, 49	eqeltrrd 2865	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ) ∈ (Base‘𝑅))
97	95, 96	eqeltrd 2864	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))) ∈ (Base‘𝑅))
98		fveq2 6908	. . . . . . . . . 10 ⊢ (𝑗 = 𝑋 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋))
99		oveq2 7451	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑋 → (𝑘 ∘f − 𝑗) = (𝑘 ∘f − 𝑋))
100	99	fveq2d 6912	. . . . . . . . . 10 ⊢ (𝑗 = 𝑋 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋)))
101	98, 100	oveq12d 7461	. . . . . . . . 9 ⊢ (𝑗 = 𝑋 → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))))
102	45, 101	gsumsn 20198	. . . . . . . 8 ⊢ ((𝑅 ∈ Mnd ∧ 𝑋 ∈ 𝐷 ∧ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))) ∈ (Base‘𝑅)) → (𝑅 Σg (𝑗 ∈ {𝑋} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))) = (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))))
103	24, 25, 97, 102	syl3anc 1399	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg (𝑗 ∈ {𝑋} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))) = (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))))
104	21, 103, 95	3eqtrd 2802	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
105	6	gsum0 18902	. . . . . . 7 ⊢ (𝑅 Σg ∅) = 0
106		disjsn 4672	. . . . . . . . 9 ⊢ (({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∩ {𝑋}) = ∅ ↔ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
107	9	ad2antrr 739	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑅 ∈ Ring)
108	1, 45, 2, 5, 11	mplelf 22335	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )):𝐷⟶(Base‘𝑅))
109	108	ad2antrr 739	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )):𝐷⟶(Base‘𝑅))
110		simpr 490	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
111	31, 110	sselid 3911	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑗 ∈ 𝐷)
112	109, 111	ffvelcdmd 7109	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗) ∈ (Base‘𝑅))
113	1, 45, 2, 5, 13	mplelf 22335	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )):𝐷⟶(Base‘𝑅))
114	113	ad2antrr 739	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )):𝐷⟶(Base‘𝑅))
115		simplr 781	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑘 ∈ 𝐷)
116	5, 33	psrbagconcl 22265	. . . . . . . . . . . . . . . 16 ⊢ ((𝑘 ∈ 𝐷 ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑗) ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
117	115, 110, 116	syl2anc 596	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑗) ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
118	31, 117	sselid 3911	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑗) ∈ 𝐷)
119	114, 118	ffvelcdmd 7109	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)) ∈ (Base‘𝑅))
120	45, 3	ringcl 20507	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗) ∈ (Base‘𝑅) ∧ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)) ∈ (Base‘𝑅)) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) ∈ (Base‘𝑅))
121	107, 112, 119, 120	syl3anc 1399	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) ∈ (Base‘𝑅))
122	121	fmpttd 7139	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))):{𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}⟶(Base‘𝑅))
123		ffn 6731	. . . . . . . . . . 11 ⊢ ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))):{𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}⟶(Base‘𝑅) → (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) Fn {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
124		fnresdisj 6681	. . . . . . . . . . 11 ⊢ ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) Fn {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} → (({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∩ {𝑋}) = ∅ ↔ ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋}) = ∅))
125	122, 123, 124	3syl 19	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∩ {𝑋}) = ∅ ↔ ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋}) = ∅))
126	125	biimpa 482	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∩ {𝑋}) = ∅) → ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋}) = ∅)
127	106, 126	sylan2br 607	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋}) = ∅)
128	127	oveq2d 7459	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = (𝑅 Σg ∅))
129		breq1 5109	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑋 → (𝑥 ∘r ≤ (𝑋 ∘f + 𝑌) ↔ 𝑋 ∘r ≤ (𝑋 ∘f + 𝑌)))
130	58	nn0red 12695	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → (𝑋‘𝑧) ∈ ℝ)
131		nn0addge1 12679	. . . . . . . . . . . . . 14 ⊢ (((𝑋‘𝑧) ∈ ℝ ∧ (𝑌‘𝑧) ∈ ℕ0) → (𝑋‘𝑧) ≤ ((𝑋‘𝑧) + (𝑌‘𝑧)))
132	130, 63, 131	syl2anc 596	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → (𝑋‘𝑧) ≤ ((𝑋‘𝑧) + (𝑌‘𝑧)))
133	132	ralrimiva 3158	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ∀𝑧 ∈ 𝐼 (𝑋‘𝑧) ≤ ((𝑋‘𝑧) + (𝑌‘𝑧)))
134		ovexd 7478	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → ((𝑋‘𝑧) + (𝑌‘𝑧)) ∈ V)
135	89, 58, 134, 83, 90	ofrfval2 7738	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑋 ∘r ≤ (𝑋 ∘f + 𝑌) ↔ ∀𝑧 ∈ 𝐼 (𝑋‘𝑧) ≤ ((𝑋‘𝑧) + (𝑌‘𝑧))))
136	133, 135	mpbird 260	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋 ∘r ≤ (𝑋 ∘f + 𝑌))
137	129, 55, 136	elrabd 3650	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ (𝑋 ∘f + 𝑌)})
138		breq2 5110	. . . . . . . . . . . 12 ⊢ (𝑘 = (𝑋 ∘f + 𝑌) → (𝑥 ∘r ≤ 𝑘 ↔ 𝑥 ∘r ≤ (𝑋 ∘f + 𝑌)))
139	138	rabbidv 3423	. . . . . . . . . . 11 ⊢ (𝑘 = (𝑋 ∘f + 𝑌) → {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} = {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ (𝑋 ∘f + 𝑌)})
140	139	eleq2d 2850	. . . . . . . . . 10 ⊢ (𝑘 = (𝑋 ∘f + 𝑌) → (𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↔ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ (𝑋 ∘f + 𝑌)}))
141	137, 140	syl5ibrcom 250	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑘 = (𝑋 ∘f + 𝑌) → 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}))
142	141	con3dimp 414	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ¬ 𝑘 = (𝑋 ∘f + 𝑌))
143	142	iffalsed 4496	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ) = 0 )
144	105, 128, 143	3eqtr4a 2824	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
145	104, 144	pm2.61dan 825	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
146	9	adantr 486	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑅 ∈ Ring)
147		ringcmn 20541	. . . . . . 7 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
148	146, 147	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑅 ∈ CMnd)
149	5	psrbaglefi 22264	. . . . . . 7 ⊢ (𝑘 ∈ 𝐷 → {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∈ Fin)
150	149	adantl 487	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∈ Fin)
151		ssdif 4083	. . . . . . . . . . . 12 ⊢ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ⊆ 𝐷 → ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋}) ⊆ (𝐷 ∖ {𝑋}))
152	31, 151	ax-mp 5	. . . . . . . . . . 11 ⊢ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋}) ⊆ (𝐷 ∖ {𝑋})
153	152	sseli 3909	. . . . . . . . . 10 ⊢ (𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋}) → 𝑗 ∈ (𝐷 ∖ {𝑋}))
154	108	adantr 486	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )):𝐷⟶(Base‘𝑅))
155		eldifsni 4753	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ (𝐷 ∖ {𝑋}) → 𝑦 ≠ 𝑋)
156	155	adantl 487	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑦 ∈ (𝐷 ∖ {𝑋})) → 𝑦 ≠ 𝑋)
157	156	neneqd 2964	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑦 ∈ (𝐷 ∖ {𝑋})) → ¬ 𝑦 = 𝑋)
158	157	iffalsed 4496	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑦 ∈ (𝐷 ∖ {𝑋})) → if(𝑦 = 𝑋, 1 , 0 ) = 0 )
159		ovex 7476	. . . . . . . . . . . . . 14 ⊢ (ℕ0 ↑m 𝐼) ∈ V
160	5, 159	rabex2 5306	. . . . . . . . . . . . 13 ⊢ 𝐷 ∈ V
161	160	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝐷 ∈ V)
162	158, 161	suppss2 8245	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) supp 0 ) ⊆ {𝑋})
163	40	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 0 ∈ V)
164	154, 162, 161, 163	suppssr 8240	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ (𝐷 ∖ {𝑋})) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗) = 0 )
165	153, 164	sylan2 605	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋})) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗) = 0 )
166	165	oveq1d 7458	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋})) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = ( 0 (.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))
167		eldifi 4070	. . . . . . . . 9 ⊢ (𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋}) → 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
168	45, 3, 6	ringlz 20554	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)) ∈ (Base‘𝑅)) → ( 0 (.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = 0 )
169	107, 119, 168	syl2anc 596	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ( 0 (.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = 0 )
170	167, 169	sylan2 605	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋})) → ( 0 (.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = 0 )
171	166, 170	eqtrd 2798	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋})) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = 0 )
172	160	rabex 5304	. . . . . . . 8 ⊢ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∈ V
173	172	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∈ V)
174	171, 173	suppss2 8245	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) supp 0 ) ⊆ {𝑋})
175	160	mptrabex 7254	. . . . . . . . 9 ⊢ (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ∈ V
176		funmpt 6598	. . . . . . . . 9 ⊢ Fun (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))
177	175, 176, 40	3pm3.2i 1358	. . . . . . . 8 ⊢ ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ∈ V ∧ Fun (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ∧ 0 ∈ V)
178	177	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ∈ V ∧ Fun (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ∧ 0 ∈ V))
179		snfi 9099	. . . . . . . 8 ⊢ {𝑋} ∈ Fin
180	179	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → {𝑋} ∈ Fin)
181		suppssfifsupp 9399	. . . . . . 7 ⊢ ((((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ∈ V ∧ Fun (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ∧ 0 ∈ V) ∧ ({𝑋} ∈ Fin ∧ ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) supp 0 ) ⊆ {𝑋})) → (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) finSupp 0 )
182	178, 180, 174, 181	syl12anc 850	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) finSupp 0 )
183	45, 6, 148, 150, 122, 174, 182	gsumres 20157	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = (𝑅 Σg (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))))
184	145, 183	eqtr3d 2800	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ) = (𝑅 Σg (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))))
185	184	mpteq2dva 5201	. . 3 ⊢ (𝜑 → (𝑘 ∈ 𝐷 ↦ if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 )) = (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))))))
186	17, 185	eqtrid 2810	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑋 ∘f + 𝑌), 1 , 0 )) = (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))))))
187	14, 186	eqtr4d 2801	1 ⊢ (𝜑 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑋 ∘f + 𝑌), 1 , 0 )))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2147   ≠ wne 2959  ∀wral 3080  {crab 3416  Vcvv 3454   ⊆ wss 3900   ∖ cdif 4048   ∩ cin 4092  ∅c0 4281  ifcif 4485  {csn 4588   class class class wbr 5106   ↦ cmpt 5189  ^◡ccnv 5654   ↾ cres 5657   “ cima 5658  Fun wfun 6552   Fn wfn 6553  ⟶wf 6554  ‘cfv 6558  (class class class)co 7443   ∘_f cof 7715   ∘_r cofr 7716   supp csupp 8204   ↑_m cmap 8875  Fincfn 9001   finSupp cfsupp 9381  ℂcc 11225  ℝcr 11226   + caddc 11230   ≤ cle 11371   − cmin 11568  ℕcn 12362  ℕ₀cn0 12633  Basecbs 17416  ._rcmulr 17458  0_gc0g 17639   Σ_g cgsu 17640  Mndcmnd 18952  CMndccmn 20024  1_rcur 20437  Ringcrg 20489   mPoly cmpl 22244

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7775  ax-cnex 11283  ax-resscn 11284  ax-1cn 11285  ax-icn 11286  ax-addcl 11287  ax-addrcl 11288  ax-mulcl 11289  ax-mulrcl 11290  ax-mulcom 11291  ax-addass 11292  ax-mulass 11293  ax-distr 11294  ax-i2m1 11295  ax-1ne0 11296  ax-1rid 11297  ax-rnegex 11298  ax-rrecex 11299  ax-cnre 11300  ax-pre-lttri 11301  ax-pre-lttrn 11302  ax-pre-ltadd 11303  ax-pre-mulgt0 11304

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-tp 4593  df-op 4839  df-uni 4871  df-int 4911  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-tr 5216  df-id 5550  df-eprel 5555  df-po 5563  df-so 5564  df-fr 5608  df-se 5609  df-we 5610  df-xp 5661  df-rel 5662  df-cnv 5663  df-co 5664  df-dm 5665  df-rn 5666  df-res 5667  df-ima 5668  df-pred 6322  df-ord 6383  df-on 6384  df-lim 6385  df-suc 6386  df-iota 6512  df-fun 6560  df-fn 6561  df-f 6562  df-f1 6563  df-fo 6564  df-f1o 6565  df-fv 6566  df-isom 6567  df-riota 7400  df-ov 7446  df-oprab 7447  df-mpo 7448  df-of 7717  df-ofr 7718  df-om 7902  df-1st 8025  df-2nd 8026  df-supp 8205  df-frecs 8327  df-wrecs 8358  df-recs 8407  df-rdg 8446  df-1o 8504  df-er 8745  df-map 8877  df-pm 8878  df-ixp 8954  df-en 9002  df-dom 9003  df-sdom 9004  df-fin 9005  df-fsupp 9382  df-oi 9531  df-card 10047  df-pnf 11372  df-mnf 11373  df-xr 11374  df-ltxr 11375  df-le 11376  df-sub 11570  df-neg 11571  df-nn 12363  df-2 12432  df-3 12433  df-4 12434  df-5 12435  df-6 12436  df-7 12437  df-8 12438  df-9 12439  df-n0 12634  df-z 12721  df-uz 12993  df-fz 13667  df-fzo 13816  df-seq 14172  df-hash 14502  df-struct 17354  df-sets 17371  df-slot 17389  df-ndx 17401  df-base 17417  df-ress 17438  df-plusg 17470  df-mulr 17471  df-sca 17473  df-vsca 17474  df-tset 17476  df-0g 17641  df-gsum 17642  df-mgm 18845  df-sgrp 18937  df-mnd 18953  df-grp 19176  df-minusg 19177  df-mulg 19307  df-cntz 19561  df-cmn 20026  df-abl 20027  df-mgp 20391  df-rng 20405  df-ur 20438  df-ring 20491  df-psr 22247  df-mpl 22249

This theorem is used by:  mplcoe3  22377  mplcoe5  22379  mplmon2mul  22408