Theorem mplmonmul 20245

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 2821	. . 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 20244	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) ∈ 𝐵)
12		mplmonmul.x	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝐷)
13	1, 2, 6, 7, 5, 8, 9, 12	mplmon 20244	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) ∈ 𝐵)
14	1, 2, 3, 4, 5, 11, 13	mplmul 20223	. 2 ⊢ (𝜑 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))) = (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))))))
15		eqeq1 2825	. . . . 5 ⊢ (𝑦 = 𝑘 → (𝑦 = (𝑋 ∘f + 𝑌) ↔ 𝑘 = (𝑋 ∘f + 𝑌)))
16	15	ifbid 4489	. . . 4 ⊢ (𝑦 = 𝑘 → if(𝑦 = (𝑋 ∘f + 𝑌), 1 , 0 ) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
17	16	cbvmptv 5169	. . 3 ⊢ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑋 ∘f + 𝑌), 1 , 0 )) = (𝑘 ∈ 𝐷 ↦ if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
18		simpr 487	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
19	18	snssd 4742	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → {𝑋} ⊆ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
20	19	resmptd 5908	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋}) = (𝑗 ∈ {𝑋} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))))
21	20	oveq2d 7172	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = (𝑅 Σg (𝑗 ∈ {𝑋} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))))
22	9	ad2antrr 724	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑅 ∈ Ring)
23		ringmnd 19306	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
24	22, 23	syl 17	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑅 ∈ Mnd)
25	10	ad2antrr 724	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑋 ∈ 𝐷)
26		iftrue 4473	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑋 → if(𝑦 = 𝑋, 1 , 0 ) = 1 )
27		eqid 2821	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))
28	7	fvexi 6684	. . . . . . . . . . . . 13 ⊢ 1 ∈ V
29	26, 27, 28	fvmpt 6768	. . . . . . . . . . . 12 ⊢ (𝑋 ∈ 𝐷 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋) = 1 )
30	25, 29	syl 17	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋) = 1 )
31		ssrab2 4056	. . . . . . . . . . . . 13 ⊢ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ⊆ 𝐷
32	8	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝐼 ∈ 𝑊)
33		simplr 767	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑘 ∈ 𝐷)
34		eqid 2821	. . . . . . . . . . . . . . 15 ⊢ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} = {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}
35	5, 34	psrbagconcl 20153	. . . . . . . . . . . . . 14 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑘 ∈ 𝐷 ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑋) ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
36	32, 33, 18, 35	syl3anc 1367	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑋) ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
37	31, 36	sseldi 3965	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑋) ∈ 𝐷)
38		eqeq1 2825	. . . . . . . . . . . . . 14 ⊢ (𝑦 = (𝑘 ∘f − 𝑋) → (𝑦 = 𝑌 ↔ (𝑘 ∘f − 𝑋) = 𝑌))
39	38	ifbid 4489	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑘 ∘f − 𝑋) → if(𝑦 = 𝑌, 1 , 0 ) = if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ))
40		eqid 2821	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))
41	6	fvexi 6684	. . . . . . . . . . . . . 14 ⊢ 0 ∈ V
42	28, 41	ifex 4515	. . . . . . . . . . . . 13 ⊢ if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) ∈ V
43	39, 40, 42	fvmpt 6768	. . . . . . . . . . . 12 ⊢ ((𝑘 ∘f − 𝑋) ∈ 𝐷 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋)) = if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ))
44	37, 43	syl 17	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋)) = if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ))
45	30, 44	oveq12d 7174	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))) = ( 1 (.r‘𝑅)if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 )))
46		eqid 2821	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑅) = (Base‘𝑅)
47	46, 7	ringidcl 19318	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ Ring → 1 ∈ (Base‘𝑅))
48	46, 6	ring0cl 19319	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ Ring → 0 ∈ (Base‘𝑅))
49	47, 48	ifcld 4512	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ Ring → if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) ∈ (Base‘𝑅))
50	22, 49	syl 17	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) ∈ (Base‘𝑅))
51	46, 3, 7	ringlidm 19321	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ Ring ∧ if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) ∈ (Base‘𝑅)) → ( 1 (.r‘𝑅)if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 )) = if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ))
52	22, 50, 51	syl2anc 586	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ( 1 (.r‘𝑅)if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 )) = if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ))
53	5	psrbagf 20145	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑘 ∈ 𝐷) → 𝑘:𝐼⟶ℕ0)
54	32, 33, 53	syl2anc 586	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑘:𝐼⟶ℕ0)
55	54	ffvelrnda 6851	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (𝑘‘𝑧) ∈ ℕ0)
56	8	adantr 483	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝐼 ∈ 𝑊)
57	10	adantr 483	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋 ∈ 𝐷)
58	5	psrbagf 20145	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑋 ∈ 𝐷) → 𝑋:𝐼⟶ℕ0)
59	56, 57, 58	syl2anc 586	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋:𝐼⟶ℕ0)
60	59	ffvelrnda 6851	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → (𝑋‘𝑧) ∈ ℕ0)
61	60	adantlr 713	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (𝑋‘𝑧) ∈ ℕ0)
62	5	psrbagf 20145	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑌 ∈ 𝐷) → 𝑌:𝐼⟶ℕ0)
63	8, 12, 62	syl2anc 586	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑌:𝐼⟶ℕ0)
64	63	adantr 483	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑌:𝐼⟶ℕ0)
65	64	ffvelrnda 6851	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → (𝑌‘𝑧) ∈ ℕ0)
66	65	adantlr 713	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (𝑌‘𝑧) ∈ ℕ0)
67		nn0cn 11908	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑘‘𝑧) ∈ ℕ0 → (𝑘‘𝑧) ∈ ℂ)
68		nn0cn 11908	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑋‘𝑧) ∈ ℕ0 → (𝑋‘𝑧) ∈ ℂ)
69		nn0cn 11908	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑌‘𝑧) ∈ ℕ0 → (𝑌‘𝑧) ∈ ℂ)
70		subadd 10889	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑘‘𝑧) ∈ ℂ ∧ (𝑋‘𝑧) ∈ ℂ ∧ (𝑌‘𝑧) ∈ ℂ) → (((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ ((𝑋‘𝑧) + (𝑌‘𝑧)) = (𝑘‘𝑧)))
71	67, 68, 69, 70	syl3an 1156	. . . . . . . . . . . . . . . 16 ⊢ (((𝑘‘𝑧) ∈ ℕ0 ∧ (𝑋‘𝑧) ∈ ℕ0 ∧ (𝑌‘𝑧) ∈ ℕ0) → (((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ ((𝑋‘𝑧) + (𝑌‘𝑧)) = (𝑘‘𝑧)))
72	55, 61, 66, 71	syl3anc 1367	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ ((𝑋‘𝑧) + (𝑌‘𝑧)) = (𝑘‘𝑧)))
73		eqcom 2828	. . . . . . . . . . . . . . 15 ⊢ (((𝑋‘𝑧) + (𝑌‘𝑧)) = (𝑘‘𝑧) ↔ (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧)))
74	72, 73	syl6bb 289	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧))))
75	74	ralbidva 3196	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (∀𝑧 ∈ 𝐼 ((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ ∀𝑧 ∈ 𝐼 (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧))))
76		mpteqb 6787	. . . . . . . . . . . . . 14 ⊢ (∀𝑧 ∈ 𝐼 ((𝑘‘𝑧) − (𝑋‘𝑧)) ∈ V → ((𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))) = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)) ↔ ∀𝑧 ∈ 𝐼 ((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧)))
77		ovexd 7191	. . . . . . . . . . . . . 14 ⊢ (𝑧 ∈ 𝐼 → ((𝑘‘𝑧) − (𝑋‘𝑧)) ∈ V)
78	76, 77	mprg 3152	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))) = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)) ↔ ∀𝑧 ∈ 𝐼 ((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧))
79		mpteqb 6787	. . . . . . . . . . . . . 14 ⊢ (∀𝑧 ∈ 𝐼 (𝑘‘𝑧) ∈ V → ((𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧))) ↔ ∀𝑧 ∈ 𝐼 (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧))))
80		fvexd 6685	. . . . . . . . . . . . . 14 ⊢ (𝑧 ∈ 𝐼 → (𝑘‘𝑧) ∈ V)
81	79, 80	mprg 3152	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧))) ↔ ∀𝑧 ∈ 𝐼 (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧)))
82	75, 78, 81	3bitr4g 316	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))) = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)) ↔ (𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧)))))
83	54	feqmptd 6733	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑘 = (𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)))
84	59	feqmptd 6733	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋 = (𝑧 ∈ 𝐼 ↦ (𝑋‘𝑧)))
85	84	adantr 483	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑋 = (𝑧 ∈ 𝐼 ↦ (𝑋‘𝑧)))
86	32, 55, 61, 83, 85	offval2 7426	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑋) = (𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))))
87	64	feqmptd 6733	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑌 = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)))
88	87	adantr 483	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑌 = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)))
89	86, 88	eqeq12d 2837	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑘 ∘f − 𝑋) = 𝑌 ↔ (𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))) = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧))))
90	56, 60, 65, 84, 87	offval2 7426	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑋 ∘f + 𝑌) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧))))
91	90	adantr 483	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑋 ∘f + 𝑌) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧))))
92	83, 91	eqeq12d 2837	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 = (𝑋 ∘f + 𝑌) ↔ (𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧)))))
93	82, 89, 92	3bitr4d 313	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑘 ∘f − 𝑋) = 𝑌 ↔ 𝑘 = (𝑋 ∘f + 𝑌)))
94	93	ifbid 4489	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
95	45, 52, 94	3eqtrd 2860	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
96	94, 50	eqeltrrd 2914	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ) ∈ (Base‘𝑅))
97	95, 96	eqeltrd 2913	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))) ∈ (Base‘𝑅))
98		fveq2 6670	. . . . . . . . . 10 ⊢ (𝑗 = 𝑋 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋))
99		oveq2 7164	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑋 → (𝑘 ∘f − 𝑗) = (𝑘 ∘f − 𝑋))
100	99	fveq2d 6674	. . . . . . . . . 10 ⊢ (𝑗 = 𝑋 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋)))
101	98, 100	oveq12d 7174	. . . . . . . . 9 ⊢ (𝑗 = 𝑋 → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))))
102	46, 101	gsumsn 19074	. . . . . . . 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 1367	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg (𝑗 ∈ {𝑋} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))) = (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))))
104	21, 103, 95	3eqtrd 2860	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
105	6	gsum0 17894	. . . . . . 7 ⊢ (𝑅 Σg ∅) = 0
106		disjsn 4647	. . . . . . . . 9 ⊢ (({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∩ {𝑋}) = ∅ ↔ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
107	9	ad2antrr 724	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑅 ∈ Ring)
108	1, 46, 2, 5, 11	mplelf 20213	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )):𝐷⟶(Base‘𝑅))
109	108	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )):𝐷⟶(Base‘𝑅))
110		simpr 487	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
111	31, 110	sseldi 3965	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑗 ∈ 𝐷)
112	109, 111	ffvelrnd 6852	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗) ∈ (Base‘𝑅))
113	1, 46, 2, 5, 13	mplelf 20213	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )):𝐷⟶(Base‘𝑅))
114	113	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )):𝐷⟶(Base‘𝑅))
115	8	ad2antrr 724	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝐼 ∈ 𝑊)
116		simplr 767	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑘 ∈ 𝐷)
117	5, 34	psrbagconcl 20153	. . . . . . . . . . . . . . . 16 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑘 ∈ 𝐷 ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑗) ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
118	115, 116, 110, 117	syl3anc 1367	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑗) ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
119	31, 118	sseldi 3965	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑗) ∈ 𝐷)
120	114, 119	ffvelrnd 6852	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)) ∈ (Base‘𝑅))
121	46, 3	ringcl 19311	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ Ring ∧ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗) ∈ (Base‘𝑅) ∧ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)) ∈ (Base‘𝑅)) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) ∈ (Base‘𝑅))
122	107, 112, 120, 121	syl3anc 1367	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) ∈ (Base‘𝑅))
123	122	fmpttd 6879	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))):{𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}⟶(Base‘𝑅))
124		ffn 6514	. . . . . . . . . . 11 ⊢ ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))):{𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}⟶(Base‘𝑅) → (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) Fn {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
125		fnresdisj 6467	. . . . . . . . . . 11 ⊢ ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) Fn {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} → (({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∩ {𝑋}) = ∅ ↔ ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋}) = ∅))
126	123, 124, 125	3syl 18	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∩ {𝑋}) = ∅ ↔ ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋}) = ∅))
127	126	biimpa 479	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∩ {𝑋}) = ∅) → ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋}) = ∅)
128	106, 127	sylan2br 596	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋}) = ∅)
129	128	oveq2d 7172	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = (𝑅 Σg ∅))
130		breq1 5069	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑋 → (𝑥 ∘r ≤ (𝑋 ∘f + 𝑌) ↔ 𝑋 ∘r ≤ (𝑋 ∘f + 𝑌)))
131	60	nn0red 11957	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → (𝑋‘𝑧) ∈ ℝ)
132		nn0addge1 11944	. . . . . . . . . . . . . 14 ⊢ (((𝑋‘𝑧) ∈ ℝ ∧ (𝑌‘𝑧) ∈ ℕ0) → (𝑋‘𝑧) ≤ ((𝑋‘𝑧) + (𝑌‘𝑧)))
133	131, 65, 132	syl2anc 586	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → (𝑋‘𝑧) ≤ ((𝑋‘𝑧) + (𝑌‘𝑧)))
134	133	ralrimiva 3182	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ∀𝑧 ∈ 𝐼 (𝑋‘𝑧) ≤ ((𝑋‘𝑧) + (𝑌‘𝑧)))
135		ovexd 7191	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → ((𝑋‘𝑧) + (𝑌‘𝑧)) ∈ V)
136	56, 60, 135, 84, 90	ofrfval2 7427	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑋 ∘r ≤ (𝑋 ∘f + 𝑌) ↔ ∀𝑧 ∈ 𝐼 (𝑋‘𝑧) ≤ ((𝑋‘𝑧) + (𝑌‘𝑧))))
137	134, 136	mpbird 259	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋 ∘r ≤ (𝑋 ∘f + 𝑌))
138	130, 57, 137	elrabd 3682	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ (𝑋 ∘f + 𝑌)})
139		breq2 5070	. . . . . . . . . . . 12 ⊢ (𝑘 = (𝑋 ∘f + 𝑌) → (𝑥 ∘r ≤ 𝑘 ↔ 𝑥 ∘r ≤ (𝑋 ∘f + 𝑌)))
140	139	rabbidv 3480	. . . . . . . . . . 11 ⊢ (𝑘 = (𝑋 ∘f + 𝑌) → {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} = {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ (𝑋 ∘f + 𝑌)})
141	140	eleq2d 2898	. . . . . . . . . 10 ⊢ (𝑘 = (𝑋 ∘f + 𝑌) → (𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↔ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ (𝑋 ∘f + 𝑌)}))
142	138, 141	syl5ibrcom 249	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑘 = (𝑋 ∘f + 𝑌) → 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}))
143	142	con3dimp 411	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ¬ 𝑘 = (𝑋 ∘f + 𝑌))
144	143	iffalsed 4478	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ) = 0 )
145	105, 129, 144	3eqtr4a 2882	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
146	104, 145	pm2.61dan 811	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
147	9	adantr 483	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑅 ∈ Ring)
148		ringcmn 19331	. . . . . . 7 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
149	147, 148	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑅 ∈ CMnd)
150	5	psrbaglefi 20152	. . . . . . 7 ⊢ ((𝐼 ∈ 𝑊 ∧ 𝑘 ∈ 𝐷) → {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∈ Fin)
151	8, 150	sylan 582	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∈ Fin)
152		ssdif 4116	. . . . . . . . . . . 12 ⊢ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ⊆ 𝐷 → ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋}) ⊆ (𝐷 ∖ {𝑋}))
153	31, 152	ax-mp 5	. . . . . . . . . . 11 ⊢ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋}) ⊆ (𝐷 ∖ {𝑋})
154	153	sseli 3963	. . . . . . . . . 10 ⊢ (𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋}) → 𝑗 ∈ (𝐷 ∖ {𝑋}))
155	108	adantr 483	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )):𝐷⟶(Base‘𝑅))
156		eldifsni 4722	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ (𝐷 ∖ {𝑋}) → 𝑦 ≠ 𝑋)
157	156	adantl 484	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑦 ∈ (𝐷 ∖ {𝑋})) → 𝑦 ≠ 𝑋)
158	157	neneqd 3021	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑦 ∈ (𝐷 ∖ {𝑋})) → ¬ 𝑦 = 𝑋)
159	158	iffalsed 4478	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑦 ∈ (𝐷 ∖ {𝑋})) → if(𝑦 = 𝑋, 1 , 0 ) = 0 )
160		ovex 7189	. . . . . . . . . . . . . 14 ⊢ (ℕ0 ↑m 𝐼) ∈ V
161	5, 160	rabex2 5237	. . . . . . . . . . . . 13 ⊢ 𝐷 ∈ V
162	161	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝐷 ∈ V)
163	159, 162	suppss2 7864	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) supp 0 ) ⊆ {𝑋})
164	41	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 0 ∈ V)
165	155, 163, 162, 164	suppssr 7861	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ (𝐷 ∖ {𝑋})) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗) = 0 )
166	154, 165	sylan2 594	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋})) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗) = 0 )
167	166	oveq1d 7171	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋})) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = ( 0 (.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))
168		eldifi 4103	. . . . . . . . 9 ⊢ (𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋}) → 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
169	46, 3, 6	ringlz 19337	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)) ∈ (Base‘𝑅)) → ( 0 (.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = 0 )
170	107, 120, 169	syl2anc 586	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ( 0 (.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = 0 )
171	168, 170	sylan2 594	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋})) → ( 0 (.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = 0 )
172	167, 171	eqtrd 2856	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋})) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = 0 )
173	161	rabex 5235	. . . . . . . 8 ⊢ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∈ V
174	173	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∈ V)
175	172, 174	suppss2 7864	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) supp 0 ) ⊆ {𝑋})
176	161	mptrabex 6988	. . . . . . . . 9 ⊢ (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ∈ V
177		funmpt 6393	. . . . . . . . 9 ⊢ Fun (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))
178	176, 177, 41	3pm3.2i 1335	. . . . . . . 8 ⊢ ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ∈ V ∧ Fun (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ∧ 0 ∈ V)
179	178	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))
180		snfi 8594	. . . . . . . 8 ⊢ {𝑋} ∈ Fin
181	180	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → {𝑋} ∈ Fin)
182		suppssfifsupp 8848	. . . . . . 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 )
183	179, 181, 175, 182	syl12anc 834	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) finSupp 0 )
184	46, 6, 149, 151, 123, 175, 183	gsumres 19033	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = (𝑅 Σg (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))))
185	146, 184	eqtr3d 2858	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ) = (𝑅 Σg (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))))
186	185	mpteq2dva 5161	. . 3 ⊢ (𝜑 → (𝑘 ∈ 𝐷 ↦ if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 )) = (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))))))
187	17, 186	syl5eq 2868	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑋 ∘f + 𝑌), 1 , 0 )) = (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))))))
188	14, 187	eqtr4d 2859	1 ⊢ (𝜑 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑋 ∘f + 𝑌), 1 , 0 )))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 398   ∧ w3a 1083   = wceq 1537   ∈ wcel 2114   ≠ wne 3016  ∀wral 3138  {crab 3142  Vcvv 3494   ∖ cdif 3933   ∩ cin 3935   ⊆ wss 3936  ∅c0 4291  ifcif 4467  {csn 4567   class class class wbr 5066   ↦ cmpt 5146  ^◡ccnv 5554   ↾ cres 5557   “ cima 5558  Fun wfun 6349   Fn wfn 6350  ⟶wf 6351  ‘cfv 6355  (class class class)co 7156   ∘_f cof 7407   ∘_r cofr 7408   supp csupp 7830   ↑_m cmap 8406  Fincfn 8509   finSupp cfsupp 8833  ℂcc 10535  ℝcr 10536   + caddc 10540   ≤ cle 10676   − cmin 10870  ℕcn 11638  ℕ₀cn0 11898  Basecbs 16483  ._rcmulr 16566  0_gc0g 16713   Σ_g cgsu 16714  Mndcmnd 17911  CMndccmn 18906  1_rcur 19251  Ringcrg 19297   mPoly cmpl 20133

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793  ax-rep 5190  ax-sep 5203  ax-nul 5210  ax-pow 5266  ax-pr 5330  ax-un 7461  ax-cnex 10593  ax-resscn 10594  ax-1cn 10595  ax-icn 10596  ax-addcl 10597  ax-addrcl 10598  ax-mulcl 10599  ax-mulrcl 10600  ax-mulcom 10601  ax-addass 10602  ax-mulass 10603  ax-distr 10604  ax-i2m1 10605  ax-1ne0 10606  ax-1rid 10607  ax-rnegex 10608  ax-rrecex 10609  ax-cnre 10610  ax-pre-lttri 10611  ax-pre-lttrn 10612  ax-pre-ltadd 10613  ax-pre-mulgt0 10614

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-nel 3124  df-ral 3143  df-rex 3144  df-reu 3145  df-rmo 3146  df-rab 3147  df-v 3496  df-sbc 3773  df-csb 3884  df-dif 3939  df-un 3941  df-in 3943  df-ss 3952  df-pss 3954  df-nul 4292  df-if 4468  df-pw 4541  df-sn 4568  df-pr 4570  df-tp 4572  df-op 4574  df-uni 4839  df-int 4877  df-iun 4921  df-br 5067  df-opab 5129  df-mpt 5147  df-tr 5173  df-id 5460  df-eprel 5465  df-po 5474  df-so 5475  df-fr 5514  df-se 5515  df-we 5516  df-xp 5561  df-rel 5562  df-cnv 5563  df-co 5564  df-dm 5565  df-rn 5566  df-res 5567  df-ima 5568  df-pred 6148  df-ord 6194  df-on 6195  df-lim 6196  df-suc 6197  df-iota 6314  df-fun 6357  df-fn 6358  df-f 6359  df-f1 6360  df-fo 6361  df-f1o 6362  df-fv 6363  df-isom 6364  df-riota 7114  df-ov 7159  df-oprab 7160  df-mpo 7161  df-of 7409  df-ofr 7410  df-om 7581  df-1st 7689  df-2nd 7690  df-supp 7831  df-wrecs 7947  df-recs 8008  df-rdg 8046  df-1o 8102  df-2o 8103  df-oadd 8106  df-er 8289  df-map 8408  df-pm 8409  df-ixp 8462  df-en 8510  df-dom 8511  df-sdom 8512  df-fin 8513  df-fsupp 8834  df-oi 8974  df-card 9368  df-pnf 10677  df-mnf 10678  df-xr 10679  df-ltxr 10680  df-le 10681  df-sub 10872  df-neg 10873  df-nn 11639  df-2 11701  df-3 11702  df-4 11703  df-5 11704  df-6 11705  df-7 11706  df-8 11707  df-9 11708  df-n0 11899  df-z 11983  df-uz 12245  df-fz 12894  df-fzo 13035  df-seq 13371  df-hash 13692  df-struct 16485  df-ndx 16486  df-slot 16487  df-base 16489  df-sets 16490  df-ress 16491  df-plusg 16578  df-mulr 16579  df-sca 16581  df-vsca 16582  df-tset 16584  df-0g 16715  df-gsum 16716  df-mgm 17852  df-sgrp 17901  df-mnd 17912  df-grp 18106  df-minusg 18107  df-mulg 18225  df-cntz 18447  df-cmn 18908  df-abl 18909  df-mgp 19240  df-ur 19252  df-ring 19299  df-psr 20136  df-mpl 20138

This theorem is referenced by:  mplcoe3  20247  mplcoe5  20249  mplmon2mul  20281