Theorem mplmonmul 22166

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 2761	. . 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 22165	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) ∈ 𝐵)
12		mplmonmul.x	. . . 4 ⊢ (𝜑 → 𝑌 ∈ 𝐷)
13	1, 2, 6, 7, 5, 8, 9, 12	mplmon 22165	. . 3 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) ∈ 𝐵)
14	1, 2, 3, 4, 5, 11, 13	mplmul 22139	. 2 ⊢ (𝜑 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))) = (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))))))
15		eqeq1 2765	. . . . 5 ⊢ (𝑦 = 𝑘 → (𝑦 = (𝑋 ∘f + 𝑌) ↔ 𝑘 = (𝑋 ∘f + 𝑌)))
16	15	ifbid 4510	. . . 4 ⊢ (𝑦 = 𝑘 → if(𝑦 = (𝑋 ∘f + 𝑌), 1 , 0 ) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
17	16	cbvmptv 5214	. . 3 ⊢ (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑋 ∘f + 𝑌), 1 , 0 )) = (𝑘 ∈ 𝐷 ↦ if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
18		simpr 489	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
19	18	snssd 4751	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → {𝑋} ⊆ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
20	19	resmptd 6042	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋}) = (𝑗 ∈ {𝑋} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))))
21	20	oveq2d 7426	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = (𝑅 Σg (𝑗 ∈ {𝑋} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))))
22	9	ad2antrr 738	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑅 ∈ Ring)
23		ringmnd 20324	. . . . . . . . 9 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
24	22, 23	syl 18	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑅 ∈ Mnd)
25	10	ad2antrr 738	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑋 ∈ 𝐷)
26		iftrue 4492	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑋 → if(𝑦 = 𝑋, 1 , 0 ) = 1 )
27		eqid 2761	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))
28	7	fvexi 6895	. . . . . . . . . . . . 13 ⊢ 1 ∈ V
29	26, 27, 28	fvmpt 6989	. . . . . . . . . . . 12 ⊢ (𝑋 ∈ 𝐷 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋) = 1 )
30	25, 29	syl 18	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋) = 1 )
31		ssrab2 4033	. . . . . . . . . . . . 13 ⊢ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ⊆ 𝐷
32		simplr 780	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑘 ∈ 𝐷)
33		eqid 2761	. . . . . . . . . . . . . . 15 ⊢ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} = {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}
34	5, 33	psrbagconcl 22056	. . . . . . . . . . . . . 14 ⊢ ((𝑘 ∈ 𝐷 ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑋) ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
35	32, 18, 34	syl2anc 595	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑋) ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
36	31, 35	sselid 3934	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑋) ∈ 𝐷)
37		eqeq1 2765	. . . . . . . . . . . . . 14 ⊢ (𝑦 = (𝑘 ∘f − 𝑋) → (𝑦 = 𝑌 ↔ (𝑘 ∘f − 𝑋) = 𝑌))
38	37	ifbid 4510	. . . . . . . . . . . . 13 ⊢ (𝑦 = (𝑘 ∘f − 𝑋) → if(𝑦 = 𝑌, 1 , 0 ) = if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ))
39		eqid 2761	. . . . . . . . . . . . 13 ⊢ (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))
40	6	fvexi 6895	. . . . . . . . . . . . . 14 ⊢ 0 ∈ V
41	28, 40	ifex 4537	. . . . . . . . . . . . 13 ⊢ if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) ∈ V
42	38, 39, 41	fvmpt 6989	. . . . . . . . . . . 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 7428	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))) = ( 1 (.r‘𝑅)if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 )))
45		eqid 2761	. . . . . . . . . . . . . 14 ⊢ (Base‘𝑅) = (Base‘𝑅)
46	45, 7	ringidcl 20347	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ Ring → 1 ∈ (Base‘𝑅))
47	45, 6	ring0cl 20349	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ Ring → 0 ∈ (Base‘𝑅))
48	46, 47	ifcld 4533	. . . . . . . . . . . 12 ⊢ (𝑅 ∈ Ring → if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) ∈ (Base‘𝑅))
49	22, 48	syl 18	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) ∈ (Base‘𝑅))
50	45, 3, 7	ringlidm 20351	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ Ring ∧ if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) ∈ (Base‘𝑅)) → ( 1 (.r‘𝑅)if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 )) = if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ))
51	22, 49, 50	syl2anc 595	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ( 1 (.r‘𝑅)if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 )) = if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ))
52	5	psrbagf 22047	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ 𝐷 → 𝑘:𝐼⟶ℕ0)
53	32, 52	syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑘:𝐼⟶ℕ0)
54	53	ffvelcdmda 7079	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (𝑘‘𝑧) ∈ ℕ0)
55	10	adantr 485	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋 ∈ 𝐷)
56	5	psrbagf 22047	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑋 ∈ 𝐷 → 𝑋:𝐼⟶ℕ0)
57	55, 56	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋:𝐼⟶ℕ0)
58	57	ffvelcdmda 7079	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → (𝑋‘𝑧) ∈ ℕ0)
59	58	adantlr 727	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (𝑋‘𝑧) ∈ ℕ0)
60	5	psrbagf 22047	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑌 ∈ 𝐷 → 𝑌:𝐼⟶ℕ0)
61	12, 60	syl 18	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑌:𝐼⟶ℕ0)
62	61	adantr 485	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑌:𝐼⟶ℕ0)
63	62	ffvelcdmda 7079	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → (𝑌‘𝑧) ∈ ℕ0)
64	63	adantlr 727	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (𝑌‘𝑧) ∈ ℕ0)
65		nn0cn 12513	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑘‘𝑧) ∈ ℕ0 → (𝑘‘𝑧) ∈ ℂ)
66		nn0cn 12513	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑋‘𝑧) ∈ ℕ0 → (𝑋‘𝑧) ∈ ℂ)
67		nn0cn 12513	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑌‘𝑧) ∈ ℕ0 → (𝑌‘𝑧) ∈ ℂ)
68		subadd 11459	. . . . . . . . . . . . . . . . 17 ⊢ (((𝑘‘𝑧) ∈ ℂ ∧ (𝑋‘𝑧) ∈ ℂ ∧ (𝑌‘𝑧) ∈ ℂ) → (((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ ((𝑋‘𝑧) + (𝑌‘𝑧)) = (𝑘‘𝑧)))
69	65, 66, 67, 68	syl3an 1176	. . . . . . . . . . . . . . . 16 ⊢ (((𝑘‘𝑧) ∈ ℕ0 ∧ (𝑋‘𝑧) ∈ ℕ0 ∧ (𝑌‘𝑧) ∈ ℕ0) → (((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ ((𝑋‘𝑧) + (𝑌‘𝑧)) = (𝑘‘𝑧)))
70	54, 59, 64, 69	syl3anc 1396	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ ((𝑋‘𝑧) + (𝑌‘𝑧)) = (𝑘‘𝑧)))
71		eqcom 2768	. . . . . . . . . . . . . . 15 ⊢ (((𝑋‘𝑧) + (𝑌‘𝑧)) = (𝑘‘𝑧) ↔ (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧)))
72	70, 71	bitrdi 290	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) ∧ 𝑧 ∈ 𝐼) → (((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧))))
73	72	ralbidva 3184	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (∀𝑧 ∈ 𝐼 ((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧) ↔ ∀𝑧 ∈ 𝐼 (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧))))
74		mpteqb 7009	. . . . . . . . . . . . . 14 ⊢ (∀𝑧 ∈ 𝐼 ((𝑘‘𝑧) − (𝑋‘𝑧)) ∈ V → ((𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))) = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)) ↔ ∀𝑧 ∈ 𝐼 ((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧)))
75		ovexd 7445	. . . . . . . . . . . . . 14 ⊢ (𝑧 ∈ 𝐼 → ((𝑘‘𝑧) − (𝑋‘𝑧)) ∈ V)
76	74, 75	mprg 3083	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))) = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)) ↔ ∀𝑧 ∈ 𝐼 ((𝑘‘𝑧) − (𝑋‘𝑧)) = (𝑌‘𝑧))
77		mpteqb 7009	. . . . . . . . . . . . . 14 ⊢ (∀𝑧 ∈ 𝐼 (𝑘‘𝑧) ∈ V → ((𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧))) ↔ ∀𝑧 ∈ 𝐼 (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧))))
78		fvexd 6896	. . . . . . . . . . . . . 14 ⊢ (𝑧 ∈ 𝐼 → (𝑘‘𝑧) ∈ V)
79	77, 78	mprg 3083	. . . . . . . . . . . . 13 ⊢ ((𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧))) ↔ ∀𝑧 ∈ 𝐼 (𝑘‘𝑧) = ((𝑋‘𝑧) + (𝑌‘𝑧)))
80	73, 76, 79	3bitr4g 317	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))) = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)) ↔ (𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧)))))
81	8	ad2antrr 738	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝐼 ∈ 𝑊)
82	53	feqmptd 6949	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑘 = (𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)))
83	57	feqmptd 6949	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋 = (𝑧 ∈ 𝐼 ↦ (𝑋‘𝑧)))
84	83	adantr 485	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑋 = (𝑧 ∈ 𝐼 ↦ (𝑋‘𝑧)))
85	81, 54, 59, 82, 84	offval2 7694	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑋) = (𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))))
86	62	feqmptd 6949	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑌 = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)))
87	86	adantr 485	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑌 = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧)))
88	85, 87	eqeq12d 2777	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑘 ∘f − 𝑋) = 𝑌 ↔ (𝑧 ∈ 𝐼 ↦ ((𝑘‘𝑧) − (𝑋‘𝑧))) = (𝑧 ∈ 𝐼 ↦ (𝑌‘𝑧))))
89	8	adantr 485	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝐼 ∈ 𝑊)
90	89, 58, 63, 83, 86	offval2 7694	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑋 ∘f + 𝑌) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧))))
91	90	adantr 485	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑋 ∘f + 𝑌) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧))))
92	82, 91	eqeq12d 2777	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 = (𝑋 ∘f + 𝑌) ↔ (𝑧 ∈ 𝐼 ↦ (𝑘‘𝑧)) = (𝑧 ∈ 𝐼 ↦ ((𝑋‘𝑧) + (𝑌‘𝑧)))))
93	80, 88, 92	3bitr4d 314	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑘 ∘f − 𝑋) = 𝑌 ↔ 𝑘 = (𝑋 ∘f + 𝑌)))
94	93	ifbid 4510	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → if((𝑘 ∘f − 𝑋) = 𝑌, 1 , 0 ) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
95	44, 51, 94	3eqtrd 2800	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
96	94, 49	eqeltrrd 2862	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ) ∈ (Base‘𝑅))
97	95, 96	eqeltrd 2861	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))) ∈ (Base‘𝑅))
98		fveq2 6881	. . . . . . . . . 10 ⊢ (𝑗 = 𝑋 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋))
99		oveq2 7418	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑋 → (𝑘 ∘f − 𝑗) = (𝑘 ∘f − 𝑋))
100	99	fveq2d 6885	. . . . . . . . . 10 ⊢ (𝑗 = 𝑋 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)) = ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋)))
101	98, 100	oveq12d 7428	. . . . . . . . 9 ⊢ (𝑗 = 𝑋 → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))))
102	45, 101	gsumsn 20023	. . . . . . . 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 1396	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg (𝑗 ∈ {𝑋} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))) = (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑋)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑋))))
104	21, 103, 95	3eqtrd 2800	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
105	6	gsum0 18741	. . . . . . 7 ⊢ (𝑅 Σg ∅) = 0
106		disjsn 4676	. . . . . . . . 9 ⊢ (({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∩ {𝑋}) = ∅ ↔ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
107	9	ad2antrr 738	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑅 ∈ Ring)
108	1, 45, 2, 5, 11	mplelf 22126	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )):𝐷⟶(Base‘𝑅))
109	108	ad2antrr 738	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )):𝐷⟶(Base‘𝑅))
110		simpr 489	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
111	31, 110	sselid 3934	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑗 ∈ 𝐷)
112	109, 111	ffvelcdmd 7080	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗) ∈ (Base‘𝑅))
113	1, 45, 2, 5, 13	mplelf 22126	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )):𝐷⟶(Base‘𝑅))
114	113	ad2antrr 738	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 )):𝐷⟶(Base‘𝑅))
115		simplr 780	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → 𝑘 ∈ 𝐷)
116	5, 33	psrbagconcl 22056	. . . . . . . . . . . . . . . 16 ⊢ ((𝑘 ∈ 𝐷 ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑗) ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
117	115, 110, 116	syl2anc 595	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑗) ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
118	31, 117	sselid 3934	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑗) ∈ 𝐷)
119	114, 118	ffvelcdmd 7080	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)) ∈ (Base‘𝑅))
120	45, 3	ringcl 20331	. . . . . . . . . . . . 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 1396	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) ∈ (Base‘𝑅))
122	121	fmpttd 7110	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))):{𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}⟶(Base‘𝑅))
123		ffn 6705	. . . . . . . . . . 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 6655	. . . . . . . . . . 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 481	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∩ {𝑋}) = ∅) → ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋}) = ∅)
127	106, 126	sylan2br 606	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋}) = ∅)
128	127	oveq2d 7426	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = (𝑅 Σg ∅))
129		breq1 5111	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑋 → (𝑥 ∘r ≤ (𝑋 ∘f + 𝑌) ↔ 𝑋 ∘r ≤ (𝑋 ∘f + 𝑌)))
130	58	nn0red 12565	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → (𝑋‘𝑧) ∈ ℝ)
131		nn0addge1 12549	. . . . . . . . . . . . . 14 ⊢ (((𝑋‘𝑧) ∈ ℝ ∧ (𝑌‘𝑧) ∈ ℕ0) → (𝑋‘𝑧) ≤ ((𝑋‘𝑧) + (𝑌‘𝑧)))
132	130, 63, 131	syl2anc 595	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → (𝑋‘𝑧) ≤ ((𝑋‘𝑧) + (𝑌‘𝑧)))
133	132	ralrimiva 3155	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ∀𝑧 ∈ 𝐼 (𝑋‘𝑧) ≤ ((𝑋‘𝑧) + (𝑌‘𝑧)))
134		ovexd 7445	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑧 ∈ 𝐼) → ((𝑋‘𝑧) + (𝑌‘𝑧)) ∈ V)
135	89, 58, 134, 83, 90	ofrfval2 7695	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑋 ∘r ≤ (𝑋 ∘f + 𝑌) ↔ ∀𝑧 ∈ 𝐼 (𝑋‘𝑧) ≤ ((𝑋‘𝑧) + (𝑌‘𝑧))))
136	133, 135	mpbird 260	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋 ∘r ≤ (𝑋 ∘f + 𝑌))
137	129, 55, 136	elrabd 3651	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ (𝑋 ∘f + 𝑌)})
138		breq2 5112	. . . . . . . . . . . 12 ⊢ (𝑘 = (𝑋 ∘f + 𝑌) → (𝑥 ∘r ≤ 𝑘 ↔ 𝑥 ∘r ≤ (𝑋 ∘f + 𝑌)))
139	138	rabbidv 3421	. . . . . . . . . . 11 ⊢ (𝑘 = (𝑋 ∘f + 𝑌) → {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} = {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ (𝑋 ∘f + 𝑌)})
140	139	eleq2d 2847	. . . . . . . . . 10 ⊢ (𝑘 = (𝑋 ∘f + 𝑌) → (𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↔ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ (𝑋 ∘f + 𝑌)}))
141	137, 140	syl5ibrcom 250	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑘 = (𝑋 ∘f + 𝑌) → 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}))
142	141	con3dimp 413	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ¬ 𝑘 = (𝑋 ∘f + 𝑌))
143	142	iffalsed 4497	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ) = 0 )
144	105, 128, 143	3eqtr4a 2822	. . . . . 6 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ ¬ 𝑋 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
145	104, 144	pm2.61dan 824	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑅 Σg ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ↾ {𝑋})) = if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ))
146	9	adantr 485	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑅 ∈ Ring)
147		ringcmn 20364	. . . . . . 7 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
148	146, 147	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑅 ∈ CMnd)
149	5	psrbaglefi 22055	. . . . . . 7 ⊢ (𝑘 ∈ 𝐷 → {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∈ Fin)
150	149	adantl 486	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∈ Fin)
151		ssdif 4097	. . . . . . . . . . . 12 ⊢ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ⊆ 𝐷 → ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋}) ⊆ (𝐷 ∖ {𝑋}))
152	31, 151	ax-mp 5	. . . . . . . . . . 11 ⊢ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋}) ⊆ (𝐷 ∖ {𝑋})
153	152	sseli 3932	. . . . . . . . . 10 ⊢ (𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋}) → 𝑗 ∈ (𝐷 ∖ {𝑋}))
154	108	adantr 485	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )):𝐷⟶(Base‘𝑅))
155		eldifsni 4757	. . . . . . . . . . . . . . 15 ⊢ (𝑦 ∈ (𝐷 ∖ {𝑋}) → 𝑦 ≠ 𝑋)
156	155	adantl 486	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑦 ∈ (𝐷 ∖ {𝑋})) → 𝑦 ≠ 𝑋)
157	156	neneqd 2961	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑦 ∈ (𝐷 ∖ {𝑋})) → ¬ 𝑦 = 𝑋)
158	157	iffalsed 4497	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑦 ∈ (𝐷 ∖ {𝑋})) → if(𝑦 = 𝑋, 1 , 0 ) = 0 )
159		ovex 7443	. . . . . . . . . . . . . 14 ⊢ (ℕ0 ↑m 𝐼) ∈ V
160	5, 159	rabex2 5311	. . . . . . . . . . . . 13 ⊢ 𝐷 ∈ V
161	160	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝐷 ∈ V)
162	158, 161	suppss2 8195	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) supp 0 ) ⊆ {𝑋})
163	40	a1i 11	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 0 ∈ V)
164	154, 162, 161, 163	suppssr 8190	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ (𝐷 ∖ {𝑋})) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗) = 0 )
165	153, 164	sylan2 604	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋})) → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗) = 0 )
166	165	oveq1d 7425	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋})) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = ( 0 (.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))
167		eldifi 4084	. . . . . . . . 9 ⊢ (𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋}) → 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘})
168	45, 3, 6	ringlz 20375	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Ring ∧ ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)) ∈ (Base‘𝑅)) → ( 0 (.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = 0 )
169	107, 119, 168	syl2anc 595	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘}) → ( 0 (.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = 0 )
170	167, 169	sylan2 604	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋})) → ( 0 (.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = 0 )
171	166, 170	eqtrd 2796	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑗 ∈ ({𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∖ {𝑋})) → (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))) = 0 )
172	160	rabex 5309	. . . . . . . 8 ⊢ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∈ V
173	172	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ∈ V)
174	171, 173	suppss2 8195	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ((𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) supp 0 ) ⊆ {𝑋})
175	160	mptrabex 7223	. . . . . . . . 9 ⊢ (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) ∈ V
176		funmpt 6574	. . . . . . . . 9 ⊢ Fun (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))
177	175, 176, 40	3pm3.2i 1356	. . . . . . . 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 9039	. . . . . . . 8 ⊢ {𝑋} ∈ Fin
180	179	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → {𝑋} ∈ Fin)
181		suppssfifsupp 9339	. . . . . . 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 849	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))) finSupp 0 )
183	45, 6, 148, 150, 122, 174, 182	gsumres 19982	. . . . 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 2798	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 ) = (𝑅 Σg (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗))))))
185	184	mpteq2dva 5203	. . 3 ⊢ (𝜑 → (𝑘 ∈ 𝐷 ↦ if(𝑘 = (𝑋 ∘f + 𝑌), 1 , 0 )) = (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))))))
186	17, 185	eqtrid 2808	. 2 ⊢ (𝜑 → (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑋 ∘f + 𝑌), 1 , 0 )) = (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑗 ∈ {𝑥 ∈ 𝐷 ∣ 𝑥 ∘r ≤ 𝑘} ↦ (((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 ))‘𝑗)(.r‘𝑅)((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))‘(𝑘 ∘f − 𝑗)))))))
187	14, 186	eqtr4d 2799	1 ⊢ (𝜑 → ((𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑋, 1 , 0 )) · (𝑦 ∈ 𝐷 ↦ if(𝑦 = 𝑌, 1 , 0 ))) = (𝑦 ∈ 𝐷 ↦ if(𝑦 = (𝑋 ∘f + 𝑌), 1 , 0 )))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1568   ∈ wcel 2141   ≠ wne 2956  ∀wral 3077  {crab 3414  Vcvv 3453   ∖ cdif 3901   ∩ cin 3903   ⊆ wss 3904  ∅c0 4285  ifcif 4486  {csn 4588   class class class wbr 5108   ↦ cmpt 5191  ^◡ccnv 5660   ↾ cres 5663   “ cima 5664  Fun wfun 6530   Fn wfn 6531  ⟶wf 6532  ‘cfv 6536  (class class class)co 7410   ∘_f cof 7672   ∘_r cofr 7673   supp csupp 8155   ↑_m cmap 8823  Fincfn 8942   finSupp cfsupp 9320  ℂcc 11097  ℝcr 11098   + caddc 11102   ≤ cle 11243   − cmin 11440  ℕcn 12232  ℕ₀cn0 12503  Basecbs 17268  ._rcmulr 17310  0_gc0g 17491   Σ_g cgsu 17492  Mndcmnd 18791  CMndccmn 19849  1_rcur 20262  Ringcrg 20314   mPoly cmpl 22035

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1823  ax-4 1837  ax-5 1938  ax-6 1995  ax-7 2036  ax-8 2143  ax-9 2151  ax-10 2174  ax-11 2190  ax-12 2211  ax-ext 2733  ax-rep 5237  ax-sep 5256  ax-nul 5268  ax-pow 5336  ax-pr 5404  ax-un 7732  ax-cnex 11155  ax-resscn 11156  ax-1cn 11157  ax-icn 11158  ax-addcl 11159  ax-addrcl 11160  ax-mulcl 11161  ax-mulrcl 11162  ax-mulcom 11163  ax-addass 11164  ax-mulass 11165  ax-distr 11166  ax-i2m1 11167  ax-1ne0 11168  ax-1rid 11169  ax-rnegex 11170  ax-rrecex 11171  ax-cnre 11172  ax-pre-lttri 11173  ax-pre-lttrn 11174  ax-pre-ltadd 11175  ax-pre-mulgt0 11176

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1571  df-fal 1581  df-ex 1808  df-nf 1812  df-sb 2095  df-mo 2565  df-eu 2595  df-clab 2740  df-cleq 2753  df-clel 2836  df-nfc 2910  df-ne 2957  df-nel 3063  df-ral 3078  df-rex 3088  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3455  df-sbc 3744  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-pss 3924  df-nul 4286  df-if 4487  df-pw 4563  df-sn 4589  df-pr 4591  df-tp 4593  df-op 4595  df-uni 4872  df-int 4912  df-iun 4957  df-br 5109  df-opab 5173  df-mpt 5192  df-tr 5218  df-id 5556  df-eprel 5561  df-po 5569  df-so 5570  df-fr 5614  df-se 5615  df-we 5616  df-xp 5667  df-rel 5668  df-cnv 5669  df-co 5670  df-dm 5671  df-rn 5672  df-res 5673  df-ima 5674  df-pred 6302  df-ord 6363  df-on 6364  df-lim 6365  df-suc 6366  df-iota 6492  df-fun 6538  df-fn 6539  df-f 6540  df-f1 6541  df-fo 6542  df-f1o 6543  df-fv 6544  df-isom 6545  df-riota 7367  df-ov 7413  df-oprab 7414  df-mpo 7415  df-of 7674  df-ofr 7675  df-om 7862  df-1st 7985  df-2nd 7986  df-supp 8156  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-1o 8452  df-er 8693  df-map 8825  df-pm 8826  df-ixp 8895  df-en 8943  df-dom 8944  df-sdom 8945  df-fin 8946  df-fsupp 9321  df-oi 9471  df-card 9924  df-pnf 11244  df-mnf 11245  df-xr 11246  df-ltxr 11247  df-le 11248  df-sub 11442  df-neg 11443  df-nn 12233  df-2 12302  df-3 12303  df-4 12304  df-5 12305  df-6 12306  df-7 12307  df-8 12308  df-9 12309  df-n0 12504  df-z 12591  df-uz 12862  df-fz 13535  df-fzo 13682  df-seq 14037  df-hash 14366  df-struct 17206  df-sets 17223  df-slot 17241  df-ndx 17253  df-base 17269  df-ress 17290  df-plusg 17322  df-mulr 17323  df-sca 17325  df-vsca 17326  df-tset 17328  df-0g 17493  df-gsum 17494  df-mgm 18697  df-sgrp 18776  df-mnd 18792  df-grp 19002  df-minusg 19003  df-mulg 19133  df-cntz 19386  df-cmn 19851  df-abl 19852  df-mgp 20216  df-rng 20230  df-ur 20263  df-ring 20316  df-psr 22038  df-mpl 22040

This theorem is referenced by:  mplcoe3  22168  mplcoe5  22170  mplmon2mul  22199