Theorem psrdi 21908

Description: Distributive law for the ring of power series (left-distributivity). (Contributed by Mario Carneiro, 7-Jan-2015.)

Hypotheses

Ref	Expression
psrring.s	⊢ 𝑆 = (𝐼 mPwSer 𝑅)
psrring.i	⊢ (𝜑 → 𝐼 ∈ 𝑉)
psrring.r	⊢ (𝜑 → 𝑅 ∈ Ring)
psrass.d	⊢ 𝐷 = {𝑓 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin}
psrass.t	⊢ × = (.r‘𝑆)
psrass.b	⊢ 𝐵 = (Base‘𝑆)
psrass.x	⊢ (𝜑 → 𝑋 ∈ 𝐵)
psrass.y	⊢ (𝜑 → 𝑌 ∈ 𝐵)
psrass.z	⊢ (𝜑 → 𝑍 ∈ 𝐵)
psrdi.a	⊢ + = (+g‘𝑆)

Assertion

Ref	Expression
psrdi	⊢ (𝜑 → (𝑋 × (𝑌 + 𝑍)) = ((𝑋 × 𝑌) + (𝑋 × 𝑍)))

Distinct variable groups:   𝑓,𝐼   𝑅,𝑓   𝑓,𝑋   𝑓,𝑍   𝑓,𝑌

Allowed substitution hints:   𝜑(𝑓)   𝐵(𝑓)   𝐷(𝑓)   + (𝑓)   𝑆(𝑓)   × (𝑓)   𝑉(𝑓)

Proof of Theorem psrdi

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

Step	Hyp	Ref	Expression
1		psrring.s	. . . . . . . . . . . . 13 ⊢ 𝑆 = (𝐼 mPwSer 𝑅)
2		psrass.b	. . . . . . . . . . . . 13 ⊢ 𝐵 = (Base‘𝑆)
3		eqid 2728	. . . . . . . . . . . . 13 ⊢ (+g‘𝑅) = (+g‘𝑅)
4		psrdi.a	. . . . . . . . . . . . 13 ⊢ + = (+g‘𝑆)
5		psrass.y	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑌 ∈ 𝐵)
6		psrass.z	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑍 ∈ 𝐵)
7	1, 2, 3, 4, 5, 6	psradd 21882	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑌 + 𝑍) = (𝑌 ∘f (+g‘𝑅)𝑍))
8	7	fveq1d 6899	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑌 + 𝑍)‘(𝑘 ∘f − 𝑥)) = ((𝑌 ∘f (+g‘𝑅)𝑍)‘(𝑘 ∘f − 𝑥)))
9	8	ad2antrr 725	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → ((𝑌 + 𝑍)‘(𝑘 ∘f − 𝑥)) = ((𝑌 ∘f (+g‘𝑅)𝑍)‘(𝑘 ∘f − 𝑥)))
10		ssrab2 4075	. . . . . . . . . . . 12 ⊢ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ⊆ 𝐷
11		simplr 768	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → 𝑘 ∈ 𝐷)
12		simpr 484	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘})
13		psrass.d	. . . . . . . . . . . . . 14 ⊢ 𝐷 = {𝑓 ∈ (ℕ0 ↑m 𝐼) ∣ (◡𝑓 “ ℕ) ∈ Fin}
14		eqid 2728	. . . . . . . . . . . . . 14 ⊢ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} = {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}
15	13, 14	psrbagconcl 21867	. . . . . . . . . . . . 13 ⊢ ((𝑘 ∈ 𝐷 ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑥) ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘})
16	11, 12, 15	syl2anc 583	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑥) ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘})
17	10, 16	sselid 3978	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → (𝑘 ∘f − 𝑥) ∈ 𝐷)
18		eqid 2728	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝑅) = (Base‘𝑅)
19	1, 18, 13, 2, 5	psrelbas 21879	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑌:𝐷⟶(Base‘𝑅))
20	19	ad2antrr 725	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → 𝑌:𝐷⟶(Base‘𝑅))
21	20	ffnd 6723	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → 𝑌 Fn 𝐷)
22	1, 18, 13, 2, 6	psrelbas 21879	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑍:𝐷⟶(Base‘𝑅))
23	22	ad2antrr 725	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → 𝑍:𝐷⟶(Base‘𝑅))
24	23	ffnd 6723	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → 𝑍 Fn 𝐷)
25		ovex 7453	. . . . . . . . . . . . . 14 ⊢ (ℕ0 ↑m 𝐼) ∈ V
26	13, 25	rabex2 5336	. . . . . . . . . . . . 13 ⊢ 𝐷 ∈ V
27	26	a1i 11	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → 𝐷 ∈ V)
28		inidm 4219	. . . . . . . . . . . 12 ⊢ (𝐷 ∩ 𝐷) = 𝐷
29		eqidd 2729	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) ∧ (𝑘 ∘f − 𝑥) ∈ 𝐷) → (𝑌‘(𝑘 ∘f − 𝑥)) = (𝑌‘(𝑘 ∘f − 𝑥)))
30		eqidd 2729	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) ∧ (𝑘 ∘f − 𝑥) ∈ 𝐷) → (𝑍‘(𝑘 ∘f − 𝑥)) = (𝑍‘(𝑘 ∘f − 𝑥)))
31	21, 24, 27, 27, 28, 29, 30	ofval 7696	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) ∧ (𝑘 ∘f − 𝑥) ∈ 𝐷) → ((𝑌 ∘f (+g‘𝑅)𝑍)‘(𝑘 ∘f − 𝑥)) = ((𝑌‘(𝑘 ∘f − 𝑥))(+g‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥))))
32	17, 31	mpdan 686	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → ((𝑌 ∘f (+g‘𝑅)𝑍)‘(𝑘 ∘f − 𝑥)) = ((𝑌‘(𝑘 ∘f − 𝑥))(+g‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥))))
33	9, 32	eqtrd 2768	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → ((𝑌 + 𝑍)‘(𝑘 ∘f − 𝑥)) = ((𝑌‘(𝑘 ∘f − 𝑥))(+g‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥))))
34	33	oveq2d 7436	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → ((𝑋‘𝑥)(.r‘𝑅)((𝑌 + 𝑍)‘(𝑘 ∘f − 𝑥))) = ((𝑋‘𝑥)(.r‘𝑅)((𝑌‘(𝑘 ∘f − 𝑥))(+g‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥)))))
35		psrring.r	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ∈ Ring)
36	35	ad2antrr 725	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → 𝑅 ∈ Ring)
37		psrass.x	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
38	1, 18, 13, 2, 37	psrelbas 21879	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑋:𝐷⟶(Base‘𝑅))
39	38	ad2antrr 725	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → 𝑋:𝐷⟶(Base‘𝑅))
40	10, 12	sselid 3978	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → 𝑥 ∈ 𝐷)
41	39, 40	ffvelcdmd 7095	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → (𝑋‘𝑥) ∈ (Base‘𝑅))
42	20, 17	ffvelcdmd 7095	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → (𝑌‘(𝑘 ∘f − 𝑥)) ∈ (Base‘𝑅))
43	23, 17	ffvelcdmd 7095	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → (𝑍‘(𝑘 ∘f − 𝑥)) ∈ (Base‘𝑅))
44		eqid 2728	. . . . . . . . . 10 ⊢ (.r‘𝑅) = (.r‘𝑅)
45	18, 3, 44	ringdi 20200	. . . . . . . . 9 ⊢ ((𝑅 ∈ Ring ∧ ((𝑋‘𝑥) ∈ (Base‘𝑅) ∧ (𝑌‘(𝑘 ∘f − 𝑥)) ∈ (Base‘𝑅) ∧ (𝑍‘(𝑘 ∘f − 𝑥)) ∈ (Base‘𝑅))) → ((𝑋‘𝑥)(.r‘𝑅)((𝑌‘(𝑘 ∘f − 𝑥))(+g‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥)))) = (((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))(+g‘𝑅)((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥)))))
46	36, 41, 42, 43, 45	syl13anc 1370	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → ((𝑋‘𝑥)(.r‘𝑅)((𝑌‘(𝑘 ∘f − 𝑥))(+g‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥)))) = (((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))(+g‘𝑅)((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥)))))
47	34, 46	eqtrd 2768	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → ((𝑋‘𝑥)(.r‘𝑅)((𝑌 + 𝑍)‘(𝑘 ∘f − 𝑥))) = (((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))(+g‘𝑅)((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥)))))
48	47	mpteq2dva 5248	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)((𝑌 + 𝑍)‘(𝑘 ∘f − 𝑥)))) = (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ (((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))(+g‘𝑅)((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥))))))
49	13	psrbaglefi 21865	. . . . . . . 8 ⊢ (𝑘 ∈ 𝐷 → {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ∈ Fin)
50	49	adantl 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ∈ Fin)
51	18, 44	ringcl 20190	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ (𝑋‘𝑥) ∈ (Base‘𝑅) ∧ (𝑌‘(𝑘 ∘f − 𝑥)) ∈ (Base‘𝑅)) → ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥))) ∈ (Base‘𝑅))
52	36, 41, 42, 51	syl3anc 1369	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥))) ∈ (Base‘𝑅))
53	18, 44	ringcl 20190	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ (𝑋‘𝑥) ∈ (Base‘𝑅) ∧ (𝑍‘(𝑘 ∘f − 𝑥)) ∈ (Base‘𝑅)) → ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥))) ∈ (Base‘𝑅))
54	36, 41, 43, 53	syl3anc 1369	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑘 ∈ 𝐷) ∧ 𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘}) → ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥))) ∈ (Base‘𝑅))
55		eqidd 2729	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))) = (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))))
56		eqidd 2729	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥)))) = (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥)))))
57	50, 52, 54, 55, 56	offval2 7705	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))) ∘f (+g‘𝑅)(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥))))) = (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ (((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))(+g‘𝑅)((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥))))))
58	48, 57	eqtr4d 2771	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)((𝑌 + 𝑍)‘(𝑘 ∘f − 𝑥)))) = ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))) ∘f (+g‘𝑅)(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥))))))
59	58	oveq2d 7436	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)((𝑌 + 𝑍)‘(𝑘 ∘f − 𝑥))))) = (𝑅 Σg ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))) ∘f (+g‘𝑅)(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥)))))))
60	35	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑅 ∈ Ring)
61		ringcmn 20218	. . . . . 6 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ CMnd)
62	60, 61	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → 𝑅 ∈ CMnd)
63		eqid 2728	. . . . 5 ⊢ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))) = (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥))))
64		eqid 2728	. . . . 5 ⊢ (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥)))) = (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥))))
65	18, 3, 62, 50, 52, 54, 63, 64	gsummptfidmadd2 19881	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑅 Σg ((𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))) ∘f (+g‘𝑅)(𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥)))))) = ((𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))))(+g‘𝑅)(𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥)))))))
66	59, 65	eqtrd 2768	. . 3 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)((𝑌 + 𝑍)‘(𝑘 ∘f − 𝑥))))) = ((𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))))(+g‘𝑅)(𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥)))))))
67	66	mpteq2dva 5248	. 2 ⊢ (𝜑 → (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)((𝑌 + 𝑍)‘(𝑘 ∘f − 𝑥)))))) = (𝑘 ∈ 𝐷 ↦ ((𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))))(+g‘𝑅)(𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥))))))))
68		psrass.t	. . 3 ⊢ × = (.r‘𝑆)
69	35	ringgrpd 20182	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ Grp)
70	69	grpmgmd 18918	. . . 4 ⊢ (𝜑 → 𝑅 ∈ Mgm)
71	1, 2, 4, 70, 5, 6	psraddcl 21883	. . 3 ⊢ (𝜑 → (𝑌 + 𝑍) ∈ 𝐵)
72	1, 2, 44, 68, 13, 37, 71	psrmulfval 21886	. 2 ⊢ (𝜑 → (𝑋 × (𝑌 + 𝑍)) = (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)((𝑌 + 𝑍)‘(𝑘 ∘f − 𝑥)))))))
73	1, 2, 68, 35, 37, 5	psrmulcl 21889	. . . 4 ⊢ (𝜑 → (𝑋 × 𝑌) ∈ 𝐵)
74	1, 2, 68, 35, 37, 6	psrmulcl 21889	. . . 4 ⊢ (𝜑 → (𝑋 × 𝑍) ∈ 𝐵)
75	1, 2, 3, 4, 73, 74	psradd 21882	. . 3 ⊢ (𝜑 → ((𝑋 × 𝑌) + (𝑋 × 𝑍)) = ((𝑋 × 𝑌) ∘f (+g‘𝑅)(𝑋 × 𝑍)))
76	26	a1i 11	. . . 4 ⊢ (𝜑 → 𝐷 ∈ V)
77		ovexd 7455	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥))))) ∈ V)
78		ovexd 7455	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ 𝐷) → (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥))))) ∈ V)
79	1, 2, 44, 68, 13, 37, 5	psrmulfval 21886	. . . 4 ⊢ (𝜑 → (𝑋 × 𝑌) = (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))))))
80	1, 2, 44, 68, 13, 37, 6	psrmulfval 21886	. . . 4 ⊢ (𝜑 → (𝑋 × 𝑍) = (𝑘 ∈ 𝐷 ↦ (𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥)))))))
81	76, 77, 78, 79, 80	offval2 7705	. . 3 ⊢ (𝜑 → ((𝑋 × 𝑌) ∘f (+g‘𝑅)(𝑋 × 𝑍)) = (𝑘 ∈ 𝐷 ↦ ((𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))))(+g‘𝑅)(𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥))))))))
82	75, 81	eqtrd 2768	. 2 ⊢ (𝜑 → ((𝑋 × 𝑌) + (𝑋 × 𝑍)) = (𝑘 ∈ 𝐷 ↦ ((𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑌‘(𝑘 ∘f − 𝑥)))))(+g‘𝑅)(𝑅 Σg (𝑥 ∈ {𝑦 ∈ 𝐷 ∣ 𝑦 ∘r ≤ 𝑘} ↦ ((𝑋‘𝑥)(.r‘𝑅)(𝑍‘(𝑘 ∘f − 𝑥))))))))
83	67, 72, 82	3eqtr4d 2778	1 ⊢ (𝜑 → (𝑋 × (𝑌 + 𝑍)) = ((𝑋 × 𝑌) + (𝑋 × 𝑍)))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1534   ∈ wcel 2099  {crab 3429  Vcvv 3471   class class class wbr 5148   ↦ cmpt 5231  ^◡ccnv 5677   “ cima 5681  ⟶wf 6544  ‘cfv 6548  (class class class)co 7420   ∘_f cof 7683   ∘_r cofr 7684   ↑_m cmap 8845  Fincfn 8964   ≤ cle 11280   − cmin 11475  ℕcn 12243  ℕ₀cn0 12503  Basecbs 17180  +_gcplusg 17233  ._rcmulr 17234   Σ_g cgsu 17422  CMndccmn 19735  Ringcrg 20173   mPwSer cmps 21837

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2699  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5365  ax-pr 5429  ax-un 7740  ax-cnex 11195  ax-resscn 11196  ax-1cn 11197  ax-icn 11198  ax-addcl 11199  ax-addrcl 11200  ax-mulcl 11201  ax-mulrcl 11202  ax-mulcom 11203  ax-addass 11204  ax-mulass 11205  ax-distr 11206  ax-i2m1 11207  ax-1ne0 11208  ax-1rid 11209  ax-rnegex 11210  ax-rrecex 11211  ax-cnre 11212  ax-pre-lttri 11213  ax-pre-lttrn 11214  ax-pre-ltadd 11215  ax-pre-mulgt0 11216

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3or 1086  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2530  df-eu 2559  df-clab 2706  df-cleq 2720  df-clel 2806  df-nfc 2881  df-ne 2938  df-nel 3044  df-ral 3059  df-rex 3068  df-rmo 3373  df-reu 3374  df-rab 3430  df-v 3473  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4324  df-if 4530  df-pw 4605  df-sn 4630  df-pr 4632  df-tp 4634  df-op 4636  df-uni 4909  df-int 4950  df-iun 4998  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5576  df-eprel 5582  df-po 5590  df-so 5591  df-fr 5633  df-se 5634  df-we 5635  df-xp 5684  df-rel 5685  df-cnv 5686  df-co 5687  df-dm 5688  df-rn 5689  df-res 5690  df-ima 5691  df-pred 6305  df-ord 6372  df-on 6373  df-lim 6374  df-suc 6375  df-iota 6500  df-fun 6550  df-fn 6551  df-f 6552  df-f1 6553  df-fo 6554  df-f1o 6555  df-fv 6556  df-isom 6557  df-riota 7376  df-ov 7423  df-oprab 7424  df-mpo 7425  df-of 7685  df-ofr 7686  df-om 7871  df-1st 7993  df-2nd 7994  df-supp 8166  df-frecs 8287  df-wrecs 8318  df-recs 8392  df-rdg 8431  df-1o 8487  df-er 8725  df-map 8847  df-pm 8848  df-ixp 8917  df-en 8965  df-dom 8966  df-sdom 8967  df-fin 8968  df-fsupp 9387  df-oi 9534  df-card 9963  df-pnf 11281  df-mnf 11282  df-xr 11283  df-ltxr 11284  df-le 11285  df-sub 11477  df-neg 11478  df-nn 12244  df-2 12306  df-3 12307  df-4 12308  df-5 12309  df-6 12310  df-7 12311  df-8 12312  df-9 12313  df-n0 12504  df-z 12590  df-uz 12854  df-fz 13518  df-fzo 13661  df-seq 14000  df-hash 14323  df-struct 17116  df-sets 17133  df-slot 17151  df-ndx 17163  df-base 17181  df-ress 17210  df-plusg 17246  df-mulr 17247  df-sca 17249  df-vsca 17250  df-tset 17252  df-0g 17423  df-gsum 17424  df-mgm 18600  df-sgrp 18679  df-mnd 18695  df-submnd 18741  df-grp 18893  df-minusg 18894  df-cntz 19268  df-cmn 19737  df-abl 19738  df-mgp 20075  df-ur 20122  df-ring 20175  df-psr 21842

This theorem is referenced by:  psrring  21913