MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  psropprmul Structured version   Visualization version   GIF version

Theorem psropprmul 21767
Description: Reversing multiplication in a ring reverses multiplication in the power series ring. (Contributed by Stefan O'Rear, 27-Mar-2015.)
Hypotheses
Ref Expression
psropprmul.y π‘Œ = (𝐼 mPwSer 𝑅)
psropprmul.s 𝑆 = (opprβ€˜π‘…)
psropprmul.z 𝑍 = (𝐼 mPwSer 𝑆)
psropprmul.t Β· = (.rβ€˜π‘Œ)
psropprmul.u βˆ™ = (.rβ€˜π‘)
psropprmul.b 𝐡 = (Baseβ€˜π‘Œ)
Assertion
Ref Expression
psropprmul ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ (𝐹 βˆ™ 𝐺) = (𝐺 Β· 𝐹))

Proof of Theorem psropprmul
Dummy variables 𝑏 𝑐 𝑒 𝑓 π‘Ž 𝑑 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2732 . . . . 5 (Baseβ€˜π‘…) = (Baseβ€˜π‘…)
2 eqid 2732 . . . . 5 (0gβ€˜π‘…) = (0gβ€˜π‘…)
3 ringcmn 20101 . . . . . . 7 (𝑅 ∈ Ring β†’ 𝑅 ∈ CMnd)
433ad2ant1 1133 . . . . . 6 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ 𝑅 ∈ CMnd)
54adantr 481 . . . . 5 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ 𝑅 ∈ CMnd)
6 ovex 7444 . . . . . . . 8 (β„•0 ↑m 𝐼) ∈ V
76rabex 5332 . . . . . . 7 {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∈ V
87rabex 5332 . . . . . 6 {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ∈ V
98a1i 11 . . . . 5 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ∈ V)
10 simpll1 1212 . . . . . . 7 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ 𝑅 ∈ Ring)
11 psropprmul.y . . . . . . . . . 10 π‘Œ = (𝐼 mPwSer 𝑅)
12 eqid 2732 . . . . . . . . . 10 {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} = {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}
13 psropprmul.b . . . . . . . . . 10 𝐡 = (Baseβ€˜π‘Œ)
14 simp3 1138 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ 𝐺 ∈ 𝐡)
1511, 1, 12, 13, 14psrelbas 21504 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ 𝐺:{π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}⟢(Baseβ€˜π‘…))
1615adantr 481 . . . . . . . 8 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ 𝐺:{π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}⟢(Baseβ€˜π‘…))
17 elrabi 3677 . . . . . . . 8 (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} β†’ 𝑒 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin})
18 ffvelcdm 7083 . . . . . . . 8 ((𝐺:{π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}⟢(Baseβ€˜π‘…) ∧ 𝑒 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ (πΊβ€˜π‘’) ∈ (Baseβ€˜π‘…))
1916, 17, 18syl2an 596 . . . . . . 7 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ (πΊβ€˜π‘’) ∈ (Baseβ€˜π‘…))
20 simp2 1137 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ 𝐹 ∈ 𝐡)
2111, 1, 12, 13, 20psrelbas 21504 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ 𝐹:{π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}⟢(Baseβ€˜π‘…))
2221ad2antrr 724 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ 𝐹:{π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}⟢(Baseβ€˜π‘…))
23 ssrab2 4077 . . . . . . . . 9 {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} βŠ† {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}
24 eqid 2732 . . . . . . . . . . 11 {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} = {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}
2512, 24psrbagconcl 21493 . . . . . . . . . 10 ((𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∧ 𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ (𝑏 ∘f βˆ’ 𝑒) ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏})
2625adantll 712 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ (𝑏 ∘f βˆ’ 𝑒) ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏})
2723, 26sselid 3980 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ (𝑏 ∘f βˆ’ 𝑒) ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin})
2822, 27ffvelcdmd 7087 . . . . . . 7 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ (πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)) ∈ (Baseβ€˜π‘…))
29 eqid 2732 . . . . . . . 8 (.rβ€˜π‘…) = (.rβ€˜π‘…)
301, 29ringcl 20075 . . . . . . 7 ((𝑅 ∈ Ring ∧ (πΊβ€˜π‘’) ∈ (Baseβ€˜π‘…) ∧ (πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)) ∈ (Baseβ€˜π‘…)) β†’ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒))) ∈ (Baseβ€˜π‘…))
3110, 19, 28, 30syl3anc 1371 . . . . . 6 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒))) ∈ (Baseβ€˜π‘…))
3231fmpttd 7116 . . . . 5 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))):{𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}⟢(Baseβ€˜π‘…))
33 mptexg 7225 . . . . . . 7 ({𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ∈ V β†’ (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) ∈ V)
348, 33mp1i 13 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) ∈ V)
35 funmpt 6586 . . . . . . 7 Fun (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒))))
3635a1i 11 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ Fun (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))))
37 fvexd 6906 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ (0gβ€˜π‘…) ∈ V)
3812psrbaglefi 21491 . . . . . . 7 (𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} β†’ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ∈ Fin)
3938adantl 482 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ∈ Fin)
40 suppssdm 8164 . . . . . . . 8 ((𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) supp (0gβ€˜π‘…)) βŠ† dom (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒))))
41 eqid 2732 . . . . . . . . 9 (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) = (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒))))
4241dmmptss 6240 . . . . . . . 8 dom (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) βŠ† {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}
4340, 42sstri 3991 . . . . . . 7 ((𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) supp (0gβ€˜π‘…)) βŠ† {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}
4443a1i 11 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ ((𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) supp (0gβ€˜π‘…)) βŠ† {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏})
45 suppssfifsupp 9380 . . . . . 6 ((((𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) ∈ V ∧ Fun (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) ∧ (0gβ€˜π‘…) ∈ V) ∧ ({𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ∈ Fin ∧ ((𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) supp (0gβ€˜π‘…)) βŠ† {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏})) β†’ (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) finSupp (0gβ€˜π‘…))
4634, 36, 37, 39, 44, 45syl32anc 1378 . . . . 5 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) finSupp (0gβ€˜π‘…))
4712, 24psrbagconf1o 21495 . . . . . 6 (𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} β†’ (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ (𝑏 ∘f βˆ’ 𝑐)):{𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}–1-1-ontoβ†’{𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏})
4847adantl 482 . . . . 5 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ (𝑏 ∘f βˆ’ 𝑐)):{𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}–1-1-ontoβ†’{𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏})
491, 2, 5, 9, 32, 46, 48gsumf1o 19786 . . . 4 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ (𝑅 Ξ£g (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒))))) = (𝑅 Ξ£g ((𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) ∘ (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ (𝑏 ∘f βˆ’ 𝑐)))))
5012, 24psrbagconcl 21493 . . . . . . . 8 ((𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∧ 𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ (𝑏 ∘f βˆ’ 𝑐) ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏})
5150adantll 712 . . . . . . 7 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ (𝑏 ∘f βˆ’ 𝑐) ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏})
52 eqidd 2733 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ (𝑏 ∘f βˆ’ 𝑐)) = (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ (𝑏 ∘f βˆ’ 𝑐)))
53 eqidd 2733 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) = (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))))
54 fveq2 6891 . . . . . . . 8 (𝑒 = (𝑏 ∘f βˆ’ 𝑐) β†’ (πΊβ€˜π‘’) = (πΊβ€˜(𝑏 ∘f βˆ’ 𝑐)))
55 oveq2 7419 . . . . . . . . 9 (𝑒 = (𝑏 ∘f βˆ’ 𝑐) β†’ (𝑏 ∘f βˆ’ 𝑒) = (𝑏 ∘f βˆ’ (𝑏 ∘f βˆ’ 𝑐)))
5655fveq2d 6895 . . . . . . . 8 (𝑒 = (𝑏 ∘f βˆ’ 𝑐) β†’ (πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)) = (πΉβ€˜(𝑏 ∘f βˆ’ (𝑏 ∘f βˆ’ 𝑐))))
5754, 56oveq12d 7429 . . . . . . 7 (𝑒 = (𝑏 ∘f βˆ’ 𝑐) β†’ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒))) = ((πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ (𝑏 ∘f βˆ’ 𝑐)))))
5851, 52, 53, 57fmptco 7129 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ ((𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) ∘ (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ (𝑏 ∘f βˆ’ 𝑐))) = (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ (𝑏 ∘f βˆ’ 𝑐))))))
59 reldmpsr 21473 . . . . . . . . . . . . . 14 Rel dom mPwSer
6011, 13, 59strov2rcl 17154 . . . . . . . . . . . . 13 (𝐺 ∈ 𝐡 β†’ 𝐼 ∈ V)
61603ad2ant3 1135 . . . . . . . . . . . 12 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ 𝐼 ∈ V)
6261ad2antrr 724 . . . . . . . . . . 11 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ 𝐼 ∈ V)
6312psrbagf 21477 . . . . . . . . . . . . 13 (𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} β†’ 𝑏:πΌβŸΆβ„•0)
6463adantl 482 . . . . . . . . . . . 12 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ 𝑏:πΌβŸΆβ„•0)
6564adantr 481 . . . . . . . . . . 11 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ 𝑏:πΌβŸΆβ„•0)
66 elrabi 3677 . . . . . . . . . . . . 13 (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} β†’ 𝑐 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin})
6712psrbagf 21477 . . . . . . . . . . . . 13 (𝑐 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} β†’ 𝑐:πΌβŸΆβ„•0)
6866, 67syl 17 . . . . . . . . . . . 12 (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} β†’ 𝑐:πΌβŸΆβ„•0)
6968adantl 482 . . . . . . . . . . 11 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ 𝑐:πΌβŸΆβ„•0)
70 nn0cn 12484 . . . . . . . . . . . . 13 (𝑒 ∈ β„•0 β†’ 𝑒 ∈ β„‚)
71 nn0cn 12484 . . . . . . . . . . . . 13 (𝑓 ∈ β„•0 β†’ 𝑓 ∈ β„‚)
72 nncan 11491 . . . . . . . . . . . . 13 ((𝑒 ∈ β„‚ ∧ 𝑓 ∈ β„‚) β†’ (𝑒 βˆ’ (𝑒 βˆ’ 𝑓)) = 𝑓)
7370, 71, 72syl2an 596 . . . . . . . . . . . 12 ((𝑒 ∈ β„•0 ∧ 𝑓 ∈ β„•0) β†’ (𝑒 βˆ’ (𝑒 βˆ’ 𝑓)) = 𝑓)
7473adantl 482 . . . . . . . . . . 11 (((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) ∧ (𝑒 ∈ β„•0 ∧ 𝑓 ∈ β„•0)) β†’ (𝑒 βˆ’ (𝑒 βˆ’ 𝑓)) = 𝑓)
7562, 65, 69, 74caonncan 7713 . . . . . . . . . 10 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ (𝑏 ∘f βˆ’ (𝑏 ∘f βˆ’ 𝑐)) = 𝑐)
7675fveq2d 6895 . . . . . . . . 9 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ (πΉβ€˜(𝑏 ∘f βˆ’ (𝑏 ∘f βˆ’ 𝑐))) = (πΉβ€˜π‘))
7776oveq2d 7427 . . . . . . . 8 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ ((πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ (𝑏 ∘f βˆ’ 𝑐)))) = ((πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))(.rβ€˜π‘…)(πΉβ€˜π‘)))
78 psropprmul.s . . . . . . . . 9 𝑆 = (opprβ€˜π‘…)
79 eqid 2732 . . . . . . . . 9 (.rβ€˜π‘†) = (.rβ€˜π‘†)
801, 29, 78, 79opprmul 20157 . . . . . . . 8 ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))) = ((πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))(.rβ€˜π‘…)(πΉβ€˜π‘))
8177, 80eqtr4di 2790 . . . . . . 7 ((((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) ∧ 𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏}) β†’ ((πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ (𝑏 ∘f βˆ’ 𝑐)))) = ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))))
8281mpteq2dva 5248 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ (𝑏 ∘f βˆ’ 𝑐))))) = (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐)))))
8358, 82eqtrd 2772 . . . . 5 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ ((𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) ∘ (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ (𝑏 ∘f βˆ’ 𝑐))) = (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐)))))
8483oveq2d 7427 . . . 4 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ (𝑅 Ξ£g ((𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))) ∘ (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ (𝑏 ∘f βˆ’ 𝑐)))) = (𝑅 Ξ£g (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))))))
858mptex 7227 . . . . . . . 8 (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐)))) ∈ V
8685a1i 11 . . . . . . 7 (𝑅 ∈ Ring β†’ (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐)))) ∈ V)
87 id 22 . . . . . . 7 (𝑅 ∈ Ring β†’ 𝑅 ∈ Ring)
8878fvexi 6905 . . . . . . . 8 𝑆 ∈ V
8988a1i 11 . . . . . . 7 (𝑅 ∈ Ring β†’ 𝑆 ∈ V)
9078, 1opprbas 20161 . . . . . . . 8 (Baseβ€˜π‘…) = (Baseβ€˜π‘†)
9190a1i 11 . . . . . . 7 (𝑅 ∈ Ring β†’ (Baseβ€˜π‘…) = (Baseβ€˜π‘†))
92 eqid 2732 . . . . . . . . 9 (+gβ€˜π‘…) = (+gβ€˜π‘…)
9378, 92oppradd 20163 . . . . . . . 8 (+gβ€˜π‘…) = (+gβ€˜π‘†)
9493a1i 11 . . . . . . 7 (𝑅 ∈ Ring β†’ (+gβ€˜π‘…) = (+gβ€˜π‘†))
9586, 87, 89, 91, 94gsumpropd 18599 . . . . . 6 (𝑅 ∈ Ring β†’ (𝑅 Ξ£g (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))))) = (𝑆 Ξ£g (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))))))
96953ad2ant1 1133 . . . . 5 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ (𝑅 Ξ£g (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))))) = (𝑆 Ξ£g (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))))))
9796adantr 481 . . . 4 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ (𝑅 Ξ£g (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))))) = (𝑆 Ξ£g (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))))))
9849, 84, 973eqtrd 2776 . . 3 (((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) ∧ 𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin}) β†’ (𝑅 Ξ£g (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒))))) = (𝑆 Ξ£g (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐))))))
9998mpteq2dva 5248 . 2 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ (𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ↦ (𝑅 Ξ£g (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))))) = (𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ↦ (𝑆 Ξ£g (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐)))))))
100 psropprmul.t . . 3 Β· = (.rβ€˜π‘Œ)
10111, 13, 29, 100, 12, 14, 20psrmulfval 21510 . 2 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ (𝐺 Β· 𝐹) = (𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ↦ (𝑅 Ξ£g (𝑒 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΊβ€˜π‘’)(.rβ€˜π‘…)(πΉβ€˜(𝑏 ∘f βˆ’ 𝑒)))))))
102 psropprmul.z . . 3 𝑍 = (𝐼 mPwSer 𝑆)
103 eqid 2732 . . 3 (Baseβ€˜π‘) = (Baseβ€˜π‘)
104 psropprmul.u . . 3 βˆ™ = (.rβ€˜π‘)
10590a1i 11 . . . . . 6 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ (Baseβ€˜π‘…) = (Baseβ€˜π‘†))
106105psrbaspropd 21764 . . . . 5 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ (Baseβ€˜(𝐼 mPwSer 𝑅)) = (Baseβ€˜(𝐼 mPwSer 𝑆)))
10711fveq2i 6894 . . . . . 6 (Baseβ€˜π‘Œ) = (Baseβ€˜(𝐼 mPwSer 𝑅))
10813, 107eqtri 2760 . . . . 5 𝐡 = (Baseβ€˜(𝐼 mPwSer 𝑅))
109102fveq2i 6894 . . . . 5 (Baseβ€˜π‘) = (Baseβ€˜(𝐼 mPwSer 𝑆))
110106, 108, 1093eqtr4g 2797 . . . 4 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ 𝐡 = (Baseβ€˜π‘))
11120, 110eleqtrd 2835 . . 3 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ 𝐹 ∈ (Baseβ€˜π‘))
11214, 110eleqtrd 2835 . . 3 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ 𝐺 ∈ (Baseβ€˜π‘))
113102, 103, 79, 104, 12, 111, 112psrmulfval 21510 . 2 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ (𝐹 βˆ™ 𝐺) = (𝑏 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ↦ (𝑆 Ξ£g (𝑐 ∈ {𝑑 ∈ {π‘Ž ∈ (β„•0 ↑m 𝐼) ∣ (β—‘π‘Ž β€œ β„•) ∈ Fin} ∣ 𝑑 ∘r ≀ 𝑏} ↦ ((πΉβ€˜π‘)(.rβ€˜π‘†)(πΊβ€˜(𝑏 ∘f βˆ’ 𝑐)))))))
11499, 101, 1133eqtr4rd 2783 1 ((𝑅 ∈ Ring ∧ 𝐹 ∈ 𝐡 ∧ 𝐺 ∈ 𝐡) β†’ (𝐹 βˆ™ 𝐺) = (𝐺 Β· 𝐹))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106  {crab 3432  Vcvv 3474   βŠ† wss 3948   class class class wbr 5148   ↦ cmpt 5231  β—‘ccnv 5675  dom cdm 5676   β€œ cima 5679   ∘ ccom 5680  Fun wfun 6537  βŸΆwf 6539  β€“1-1-ontoβ†’wf1o 6542  β€˜cfv 6543  (class class class)co 7411   ∘f cof 7670   ∘r cofr 7671   supp csupp 8148   ↑m cmap 8822  Fincfn 8941   finSupp cfsupp 9363  β„‚cc 11110   ≀ cle 11251   βˆ’ cmin 11446  β„•cn 12214  β„•0cn0 12474  Basecbs 17146  +gcplusg 17199  .rcmulr 17200  0gc0g 17387   Ξ£g cgsu 17388  CMndccmn 19650  Ringcrg 20058  opprcoppr 20153   mPwSer cmps 21463
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7727  ax-cnex 11168  ax-resscn 11169  ax-1cn 11170  ax-icn 11171  ax-addcl 11172  ax-addrcl 11173  ax-mulcl 11174  ax-mulrcl 11175  ax-mulcom 11176  ax-addass 11177  ax-mulass 11178  ax-distr 11179  ax-i2m1 11180  ax-1ne0 11181  ax-1rid 11182  ax-rnegex 11183  ax-rrecex 11184  ax-cnre 11185  ax-pre-lttri 11186  ax-pre-lttrn 11187  ax-pre-ltadd 11188  ax-pre-mulgt0 11189
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-tp 4633  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7367  df-ov 7414  df-oprab 7415  df-mpo 7416  df-of 7672  df-ofr 7673  df-om 7858  df-1st 7977  df-2nd 7978  df-supp 8149  df-tpos 8213  df-frecs 8268  df-wrecs 8299  df-recs 8373  df-rdg 8412  df-1o 8468  df-er 8705  df-map 8824  df-pm 8825  df-ixp 8894  df-en 8942  df-dom 8943  df-sdom 8944  df-fin 8945  df-fsupp 9364  df-oi 9507  df-card 9936  df-pnf 11252  df-mnf 11253  df-xr 11254  df-ltxr 11255  df-le 11256  df-sub 11448  df-neg 11449  df-nn 12215  df-2 12277  df-3 12278  df-4 12279  df-5 12280  df-6 12281  df-7 12282  df-8 12283  df-9 12284  df-n0 12475  df-z 12561  df-uz 12825  df-fz 13487  df-fzo 13630  df-seq 13969  df-hash 14293  df-struct 17082  df-sets 17099  df-slot 17117  df-ndx 17129  df-base 17147  df-plusg 17212  df-mulr 17213  df-sca 17215  df-vsca 17216  df-tset 17218  df-0g 17389  df-gsum 17390  df-mgm 18563  df-sgrp 18612  df-mnd 18628  df-grp 18824  df-minusg 18825  df-cntz 19183  df-cmn 19652  df-abl 19653  df-mgp 19990  df-ur 20007  df-ring 20060  df-oppr 20154  df-psr 21468
This theorem is referenced by:  ply1opprmul  21768
  Copyright terms: Public domain W3C validator