Metamath Proof Explorer


Theorem psrmonprod

Description: Finite product of bags of variables in a power series. Here the function G maps a bag of variables to the corresponding monomial. (Contributed by Thierry Arnoux, 16-Mar-2026)

Ref Expression
Hypotheses psrmonprod.s 𝑆 = ( 𝐼 mPwSer 𝑅 )
psrmonprod.b 𝐵 = ( Base ‘ 𝑆 )
psrmonprod.r ( 𝜑𝑅 ∈ CRing )
psrmonprod.i ( 𝜑𝐼𝑉 )
psrmonprod.d 𝐷 = { ∈ ( ℕ0m 𝐼 ) ∣ finSupp 0 }
psrmonprod.a ( 𝜑𝐴 ∈ Fin )
psrmonprod.f ( 𝜑𝐹 : 𝐴𝐷 )
psrmonprod.1 1 = ( 1r𝑅 )
psrmonprod.0 0 = ( 0g𝑅 )
psrmonprod.m 𝑀 = ( mulGrp ‘ 𝑆 )
psrmonprod.g 𝐺 = ( 𝑦𝐷 ↦ ( 𝑧𝐷 ↦ if ( 𝑧 = 𝑦 , 1 , 0 ) ) )
Assertion psrmonprod ( 𝜑 → ( 𝑀 Σg ( 𝐺𝐹 ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝐴 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )

Proof

Step Hyp Ref Expression
1 psrmonprod.s 𝑆 = ( 𝐼 mPwSer 𝑅 )
2 psrmonprod.b 𝐵 = ( Base ‘ 𝑆 )
3 psrmonprod.r ( 𝜑𝑅 ∈ CRing )
4 psrmonprod.i ( 𝜑𝐼𝑉 )
5 psrmonprod.d 𝐷 = { ∈ ( ℕ0m 𝐼 ) ∣ finSupp 0 }
6 psrmonprod.a ( 𝜑𝐴 ∈ Fin )
7 psrmonprod.f ( 𝜑𝐹 : 𝐴𝐷 )
8 psrmonprod.1 1 = ( 1r𝑅 )
9 psrmonprod.0 0 = ( 0g𝑅 )
10 psrmonprod.m 𝑀 = ( mulGrp ‘ 𝑆 )
11 psrmonprod.g 𝐺 = ( 𝑦𝐷 ↦ ( 𝑧𝐷 ↦ if ( 𝑧 = 𝑦 , 1 , 0 ) ) )
12 7 ffvelcdmda ( ( 𝜑𝑘𝐴 ) → ( 𝐹𝑘 ) ∈ 𝐷 )
13 7 feqmptd ( 𝜑𝐹 = ( 𝑘𝐴 ↦ ( 𝐹𝑘 ) ) )
14 fvexd ( ( 𝜑𝑦𝐷 ) → ( Base ‘ 𝑅 ) ∈ V )
15 ovex ( ℕ0m 𝐼 ) ∈ V
16 5 15 rabex2 𝐷 ∈ V
17 16 a1i ( ( 𝜑𝑦𝐷 ) → 𝐷 ∈ V )
18 eqid ( Base ‘ 𝑅 ) = ( Base ‘ 𝑅 )
19 3 crngringd ( 𝜑𝑅 ∈ Ring )
20 18 8 19 ringidcld ( 𝜑1 ∈ ( Base ‘ 𝑅 ) )
21 20 ad2antrr ( ( ( 𝜑𝑦𝐷 ) ∧ 𝑧𝐷 ) → 1 ∈ ( Base ‘ 𝑅 ) )
22 3 crnggrpd ( 𝜑𝑅 ∈ Grp )
23 18 9 grpidcl ( 𝑅 ∈ Grp → 0 ∈ ( Base ‘ 𝑅 ) )
24 22 23 syl ( 𝜑0 ∈ ( Base ‘ 𝑅 ) )
25 24 ad2antrr ( ( ( 𝜑𝑦𝐷 ) ∧ 𝑧𝐷 ) → 0 ∈ ( Base ‘ 𝑅 ) )
26 21 25 ifcld ( ( ( 𝜑𝑦𝐷 ) ∧ 𝑧𝐷 ) → if ( 𝑧 = 𝑦 , 1 , 0 ) ∈ ( Base ‘ 𝑅 ) )
27 26 fmpttd ( ( 𝜑𝑦𝐷 ) → ( 𝑧𝐷 ↦ if ( 𝑧 = 𝑦 , 1 , 0 ) ) : 𝐷 ⟶ ( Base ‘ 𝑅 ) )
28 14 17 27 elmapdd ( ( 𝜑𝑦𝐷 ) → ( 𝑧𝐷 ↦ if ( 𝑧 = 𝑦 , 1 , 0 ) ) ∈ ( ( Base ‘ 𝑅 ) ↑m 𝐷 ) )
29 5 psrbasfsupp 𝐷 = { ∈ ( ℕ0m 𝐼 ) ∣ ( “ ℕ ) ∈ Fin }
30 1 18 29 2 4 psrbas ( 𝜑𝐵 = ( ( Base ‘ 𝑅 ) ↑m 𝐷 ) )
31 30 adantr ( ( 𝜑𝑦𝐷 ) → 𝐵 = ( ( Base ‘ 𝑅 ) ↑m 𝐷 ) )
32 28 31 eleqtrrd ( ( 𝜑𝑦𝐷 ) → ( 𝑧𝐷 ↦ if ( 𝑧 = 𝑦 , 1 , 0 ) ) ∈ 𝐵 )
33 32 11 fmptd ( 𝜑𝐺 : 𝐷𝐵 )
34 33 feqmptd ( 𝜑𝐺 = ( 𝑦𝐷 ↦ ( 𝐺𝑦 ) ) )
35 fveq2 ( 𝑦 = ( 𝐹𝑘 ) → ( 𝐺𝑦 ) = ( 𝐺 ‘ ( 𝐹𝑘 ) ) )
36 12 13 34 35 fmptco ( 𝜑 → ( 𝐺𝐹 ) = ( 𝑘𝐴 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) )
37 36 oveq2d ( 𝜑 → ( 𝑀 Σg ( 𝐺𝐹 ) ) = ( 𝑀 Σg ( 𝑘𝐴 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) )
38 mpteq1 ( 𝑎 = ∅ → ( 𝑘𝑎 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) = ( 𝑘 ∈ ∅ ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) )
39 38 oveq2d ( 𝑎 = ∅ → ( 𝑀 Σg ( 𝑘𝑎 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝑀 Σg ( 𝑘 ∈ ∅ ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) )
40 mpteq1 ( 𝑎 = ∅ → ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) = ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) )
41 40 oveq2d ( 𝑎 = ∅ → ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) = ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) )
42 41 mpteq2dv ( 𝑎 = ∅ → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) )
43 42 fveq2d ( 𝑎 = ∅ → ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )
44 39 43 eqeq12d ( 𝑎 = ∅ → ( ( 𝑀 Σg ( 𝑘𝑎 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ↔ ( 𝑀 Σg ( 𝑘 ∈ ∅ ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) )
45 mpteq1 ( 𝑎 = 𝑏 → ( 𝑘𝑎 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) = ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) )
46 45 oveq2d ( 𝑎 = 𝑏 → ( 𝑀 Σg ( 𝑘𝑎 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) )
47 mpteq1 ( 𝑎 = 𝑏 → ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) = ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) )
48 47 oveq2d ( 𝑎 = 𝑏 → ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) = ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) )
49 48 mpteq2dv ( 𝑎 = 𝑏 → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) )
50 49 fveq2d ( 𝑎 = 𝑏 → ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )
51 46 50 eqeq12d ( 𝑎 = 𝑏 → ( ( 𝑀 Σg ( 𝑘𝑎 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ↔ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) )
52 mpteq1 ( 𝑎 = ( 𝑏 ∪ { 𝑓 } ) → ( 𝑘𝑎 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) = ( 𝑘 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) )
53 52 oveq2d ( 𝑎 = ( 𝑏 ∪ { 𝑓 } ) → ( 𝑀 Σg ( 𝑘𝑎 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝑀 Σg ( 𝑘 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) )
54 mpteq1 ( 𝑎 = ( 𝑏 ∪ { 𝑓 } ) → ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) = ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) )
55 54 oveq2d ( 𝑎 = ( 𝑏 ∪ { 𝑓 } ) → ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) = ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) )
56 55 mpteq2dv ( 𝑎 = ( 𝑏 ∪ { 𝑓 } ) → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) )
57 56 fveq2d ( 𝑎 = ( 𝑏 ∪ { 𝑓 } ) → ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )
58 53 57 eqeq12d ( 𝑎 = ( 𝑏 ∪ { 𝑓 } ) → ( ( 𝑀 Σg ( 𝑘𝑎 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ↔ ( 𝑀 Σg ( 𝑘 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) )
59 mpteq1 ( 𝑎 = 𝐴 → ( 𝑘𝑎 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) = ( 𝑘𝐴 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) )
60 59 oveq2d ( 𝑎 = 𝐴 → ( 𝑀 Σg ( 𝑘𝑎 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝑀 Σg ( 𝑘𝐴 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) )
61 mpteq1 ( 𝑎 = 𝐴 → ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) = ( 𝑥𝐴 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) )
62 61 oveq2d ( 𝑎 = 𝐴 → ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) = ( ℂfld Σg ( 𝑥𝐴 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) )
63 62 mpteq2dv ( 𝑎 = 𝐴 → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝐴 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) )
64 63 fveq2d ( 𝑎 = 𝐴 → ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝐴 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )
65 60 64 eqeq12d ( 𝑎 = 𝐴 → ( ( 𝑀 Σg ( 𝑘𝑎 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑎 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ↔ ( 𝑀 Σg ( 𝑘𝐴 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝐴 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) )
66 eqid ( 1r𝑆 ) = ( 1r𝑆 )
67 10 66 ringidval ( 1r𝑆 ) = ( 0g𝑀 )
68 67 gsum0 ( 𝑀 Σg ∅ ) = ( 1r𝑆 )
69 mpt0 ( 𝑘 ∈ ∅ ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) = ∅
70 69 oveq2i ( 𝑀 Σg ( 𝑘 ∈ ∅ ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝑀 Σg ∅ )
71 70 a1i ( 𝜑 → ( 𝑀 Σg ( 𝑘 ∈ ∅ ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝑀 Σg ∅ ) )
72 mpt0 ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) = ∅
73 72 oveq2i ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) = ( ℂfld Σg ∅ )
74 cnfld0 0 = ( 0g ‘ ℂfld )
75 74 gsum0 ( ℂfld Σg ∅ ) = 0
76 73 75 eqtri ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) = 0
77 76 mpteq2i ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) = ( 𝑖𝐼 ↦ 0 )
78 fconstmpt ( 𝐼 × { 0 } ) = ( 𝑖𝐼 ↦ 0 )
79 77 78 eqtr4i ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) = ( 𝐼 × { 0 } )
80 79 a1i ( 𝜑 → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) = ( 𝐼 × { 0 } ) )
81 80 eqeq2d ( 𝜑 → ( 𝑦 = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ↔ 𝑦 = ( 𝐼 × { 0 } ) ) )
82 81 biimpa ( ( 𝜑𝑦 = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) → 𝑦 = ( 𝐼 × { 0 } ) )
83 82 eqeq2d ( ( 𝜑𝑦 = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) → ( 𝑧 = 𝑦𝑧 = ( 𝐼 × { 0 } ) ) )
84 83 ifbid ( ( 𝜑𝑦 = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) → if ( 𝑧 = 𝑦 , 1 , 0 ) = if ( 𝑧 = ( 𝐼 × { 0 } ) , 1 , 0 ) )
85 84 mpteq2dv ( ( 𝜑𝑦 = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) → ( 𝑧𝐷 ↦ if ( 𝑧 = 𝑦 , 1 , 0 ) ) = ( 𝑧𝐷 ↦ if ( 𝑧 = ( 𝐼 × { 0 } ) , 1 , 0 ) ) )
86 1 4 19 29 9 8 66 psr1 ( 𝜑 → ( 1r𝑆 ) = ( 𝑧𝐷 ↦ if ( 𝑧 = ( 𝐼 × { 0 } ) , 1 , 0 ) ) )
87 86 adantr ( ( 𝜑𝑦 = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) → ( 1r𝑆 ) = ( 𝑧𝐷 ↦ if ( 𝑧 = ( 𝐼 × { 0 } ) , 1 , 0 ) ) )
88 85 87 eqtr4d ( ( 𝜑𝑦 = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) → ( 𝑧𝐷 ↦ if ( 𝑧 = 𝑦 , 1 , 0 ) ) = ( 1r𝑆 ) )
89 breq1 ( = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) → ( finSupp 0 ↔ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) finSupp 0 ) )
90 nn0ex 0 ∈ V
91 90 a1i ( 𝜑 → ℕ0 ∈ V )
92 0nn0 0 ∈ ℕ0
93 92 fconst6 ( 𝐼 × { 0 } ) : 𝐼 ⟶ ℕ0
94 93 a1i ( 𝜑 → ( 𝐼 × { 0 } ) : 𝐼 ⟶ ℕ0 )
95 91 4 94 elmapdd ( 𝜑 → ( 𝐼 × { 0 } ) ∈ ( ℕ0m 𝐼 ) )
96 79 95 eqeltrid ( 𝜑 → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ∈ ( ℕ0m 𝐼 ) )
97 92 a1i ( 𝜑 → 0 ∈ ℕ0 )
98 4 97 fczfsuppd ( 𝜑 → ( 𝐼 × { 0 } ) finSupp 0 )
99 79 98 eqbrtrid ( 𝜑 → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) finSupp 0 )
100 89 96 99 elrabd ( 𝜑 → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ∈ { ∈ ( ℕ0m 𝐼 ) ∣ finSupp 0 } )
101 100 5 eleqtrrdi ( 𝜑 → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ∈ 𝐷 )
102 fvexd ( 𝜑 → ( 1r𝑆 ) ∈ V )
103 11 88 101 102 fvmptd2 ( 𝜑 → ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) = ( 1r𝑆 ) )
104 68 71 103 3eqtr4a ( 𝜑 → ( 𝑀 Σg ( 𝑘 ∈ ∅ ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ∅ ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )
105 2fveq3 ( 𝑘 = 𝑙 → ( 𝐺 ‘ ( 𝐹𝑘 ) ) = ( 𝐺 ‘ ( 𝐹𝑙 ) ) )
106 105 cbvmptv ( 𝑘 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) = ( 𝑙 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( 𝐺 ‘ ( 𝐹𝑙 ) ) )
107 106 oveq2i ( 𝑀 Σg ( 𝑘 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝑀 Σg ( 𝑙 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( 𝐺 ‘ ( 𝐹𝑙 ) ) ) )
108 10 2 mgpbas 𝐵 = ( Base ‘ 𝑀 )
109 eqid ( .r𝑆 ) = ( .r𝑆 )
110 10 109 mgpplusg ( .r𝑆 ) = ( +g𝑀 )
111 1 4 3 psrcrng ( 𝜑𝑆 ∈ CRing )
112 10 crngmgp ( 𝑆 ∈ CRing → 𝑀 ∈ CMnd )
113 111 112 syl ( 𝜑𝑀 ∈ CMnd )
114 113 ad3antrrr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → 𝑀 ∈ CMnd )
115 6 adantr ( ( 𝜑𝑏𝐴 ) → 𝐴 ∈ Fin )
116 simpr ( ( 𝜑𝑏𝐴 ) → 𝑏𝐴 )
117 115 116 ssfid ( ( 𝜑𝑏𝐴 ) → 𝑏 ∈ Fin )
118 117 ad2antrr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → 𝑏 ∈ Fin )
119 33 ad4antr ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) ∧ 𝑙𝑏 ) → 𝐺 : 𝐷𝐵 )
120 7 ad4antr ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) ∧ 𝑙𝑏 ) → 𝐹 : 𝐴𝐷 )
121 simpllr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → 𝑏𝐴 )
122 121 sselda ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) ∧ 𝑙𝑏 ) → 𝑙𝐴 )
123 120 122 ffvelcdmd ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) ∧ 𝑙𝑏 ) → ( 𝐹𝑙 ) ∈ 𝐷 )
124 119 123 ffvelcdmd ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) ∧ 𝑙𝑏 ) → ( 𝐺 ‘ ( 𝐹𝑙 ) ) ∈ 𝐵 )
125 simplr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → 𝑓 ∈ ( 𝐴𝑏 ) )
126 125 eldifbd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → ¬ 𝑓𝑏 )
127 33 ad3antrrr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → 𝐺 : 𝐷𝐵 )
128 7 ad3antrrr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → 𝐹 : 𝐴𝐷 )
129 125 eldifad ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → 𝑓𝐴 )
130 128 129 ffvelcdmd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → ( 𝐹𝑓 ) ∈ 𝐷 )
131 127 130 ffvelcdmd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → ( 𝐺 ‘ ( 𝐹𝑓 ) ) ∈ 𝐵 )
132 2fveq3 ( 𝑙 = 𝑓 → ( 𝐺 ‘ ( 𝐹𝑙 ) ) = ( 𝐺 ‘ ( 𝐹𝑓 ) ) )
133 108 110 114 118 124 125 126 131 132 gsumunsn ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → ( 𝑀 Σg ( 𝑙 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( 𝐺 ‘ ( 𝐹𝑙 ) ) ) ) = ( ( 𝑀 Σg ( 𝑙𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑙 ) ) ) ) ( .r𝑆 ) ( 𝐺 ‘ ( 𝐹𝑓 ) ) ) )
134 105 cbvmptv ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) = ( 𝑙𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑙 ) ) )
135 134 oveq2i ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝑀 Σg ( 𝑙𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑙 ) ) ) )
136 id ( ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) → ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )
137 135 136 eqtr3id ( ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) → ( 𝑀 Σg ( 𝑙𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑙 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )
138 137 oveq1d ( ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) → ( ( 𝑀 Σg ( 𝑙𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑙 ) ) ) ) ( .r𝑆 ) ( 𝐺 ‘ ( 𝐹𝑓 ) ) ) = ( ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ( .r𝑆 ) ( 𝐺 ‘ ( 𝐹𝑓 ) ) ) )
139 138 adantl ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → ( ( 𝑀 Σg ( 𝑙𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑙 ) ) ) ) ( .r𝑆 ) ( 𝐺 ‘ ( 𝐹𝑓 ) ) ) = ( ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ( .r𝑆 ) ( 𝐺 ‘ ( 𝐹𝑓 ) ) ) )
140 4 ad2antrr ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → 𝐼𝑉 )
141 19 ad2antrr ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → 𝑅 ∈ Ring )
142 breq1 ( = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) → ( finSupp 0 ↔ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) finSupp 0 ) )
143 90 a1i ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ℕ0 ∈ V )
144 cnfldfld fld ∈ Field
145 id ( ℂfld ∈ Field → ℂfld ∈ Field )
146 145 fldcrngd ( ℂfld ∈ Field → ℂfld ∈ CRing )
147 crngring ( ℂfld ∈ CRing → ℂfld ∈ Ring )
148 ringcmn ( ℂfld ∈ Ring → ℂfld ∈ CMnd )
149 146 147 148 3syl ( ℂfld ∈ Field → ℂfld ∈ CMnd )
150 144 149 ax-mp fld ∈ CMnd
151 150 a1i ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) → ℂfld ∈ CMnd )
152 117 ad2antrr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) → 𝑏 ∈ Fin )
153 nn0subm 0 ∈ ( SubMnd ‘ ℂfld )
154 153 a1i ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) → ℕ0 ∈ ( SubMnd ‘ ℂfld ) )
155 4 ad4antr ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) ∧ 𝑥𝑏 ) → 𝐼𝑉 )
156 90 a1i ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) ∧ 𝑥𝑏 ) → ℕ0 ∈ V )
157 5 ssrab3 𝐷 ⊆ ( ℕ0m 𝐼 )
158 7 ad2antrr ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → 𝐹 : 𝐴𝐷 )
159 158 ad2antrr ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) ∧ 𝑥𝑏 ) → 𝐹 : 𝐴𝐷 )
160 simpllr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) → 𝑏𝐴 )
161 160 sselda ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) ∧ 𝑥𝑏 ) → 𝑥𝐴 )
162 159 161 ffvelcdmd ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) ∧ 𝑥𝑏 ) → ( 𝐹𝑥 ) ∈ 𝐷 )
163 157 162 sselid ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) ∧ 𝑥𝑏 ) → ( 𝐹𝑥 ) ∈ ( ℕ0m 𝐼 ) )
164 155 156 163 elmaprd ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) ∧ 𝑥𝑏 ) → ( 𝐹𝑥 ) : 𝐼 ⟶ ℕ0 )
165 simplr ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) ∧ 𝑥𝑏 ) → 𝑖𝐼 )
166 164 165 ffvelcdmd ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) ∧ 𝑥𝑏 ) → ( ( 𝐹𝑥 ) ‘ 𝑖 ) ∈ ℕ0 )
167 166 fmpttd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) → ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) : 𝑏 ⟶ ℕ0 )
168 92 a1i ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) → 0 ∈ ℕ0 )
169 167 152 168 fdmfifsupp ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) → ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) finSupp 0 )
170 74 151 152 154 167 169 gsumsubmcl ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) → ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ∈ ℕ0 )
171 170 fmpttd ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) : 𝐼 ⟶ ℕ0 )
172 143 140 171 elmapdd ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ∈ ( ℕ0m 𝐼 ) )
173 92 a1i ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → 0 ∈ ℕ0 )
174 171 ffund ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → Fun ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) )
175 117 adantr ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → 𝑏 ∈ Fin )
176 140 adantr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑥𝑏 ) → 𝐼𝑉 )
177 90 a1i ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑥𝑏 ) → ℕ0 ∈ V )
178 158 adantr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑥𝑏 ) → 𝐹 : 𝐴𝐷 )
179 simplr ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → 𝑏𝐴 )
180 179 sselda ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑥𝑏 ) → 𝑥𝐴 )
181 178 180 ffvelcdmd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑥𝑏 ) → ( 𝐹𝑥 ) ∈ 𝐷 )
182 157 181 sselid ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑥𝑏 ) → ( 𝐹𝑥 ) ∈ ( ℕ0m 𝐼 ) )
183 176 177 182 elmaprd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑥𝑏 ) → ( 𝐹𝑥 ) : 𝐼 ⟶ ℕ0 )
184 183 feqmptd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑥𝑏 ) → ( 𝐹𝑥 ) = ( 𝑖𝐼 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) )
185 184 oveq1d ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑥𝑏 ) → ( ( 𝐹𝑥 ) supp 0 ) = ( ( 𝑖𝐼 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) supp 0 ) )
186 breq1 ( = ( 𝐹𝑥 ) → ( finSupp 0 ↔ ( 𝐹𝑥 ) finSupp 0 ) )
187 181 5 eleqtrdi ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑥𝑏 ) → ( 𝐹𝑥 ) ∈ { ∈ ( ℕ0m 𝐼 ) ∣ finSupp 0 } )
188 186 187 elrabrd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑥𝑏 ) → ( 𝐹𝑥 ) finSupp 0 )
189 188 fsuppimpd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑥𝑏 ) → ( ( 𝐹𝑥 ) supp 0 ) ∈ Fin )
190 185 189 eqeltrrd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑥𝑏 ) → ( ( 𝑖𝐼 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) supp 0 ) ∈ Fin )
191 190 ralrimiva ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ∀ 𝑥𝑏 ( ( 𝑖𝐼 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) supp 0 ) ∈ Fin )
192 iunfi ( ( 𝑏 ∈ Fin ∧ ∀ 𝑥𝑏 ( ( 𝑖𝐼 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) supp 0 ) ∈ Fin ) → 𝑥𝑏 ( ( 𝑖𝐼 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) supp 0 ) ∈ Fin )
193 175 191 192 syl2anc ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → 𝑥𝑏 ( ( 𝑖𝐼 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) supp 0 ) ∈ Fin )
194 cmnmnd ( ℂfld ∈ CMnd → ℂfld ∈ Mnd )
195 150 194 ax-mp fld ∈ Mnd
196 195 a1i ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ℂfld ∈ Mnd )
197 115 adantr ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → 𝐴 ∈ Fin )
198 197 179 ssexd ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → 𝑏 ∈ V )
199 74 196 198 140 166 suppgsumssiun ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) supp 0 ) ⊆ 𝑥𝑏 ( ( 𝑖𝐼 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) supp 0 ) )
200 193 199 ssfid ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) supp 0 ) ∈ Fin )
201 172 173 174 200 isfsuppd ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) finSupp 0 )
202 142 172 201 elrabd ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ∈ { ∈ ( ℕ0m 𝐼 ) ∣ finSupp 0 } )
203 202 5 eleqtrrdi ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ∈ 𝐷 )
204 difssd ( ( 𝜑𝑏𝐴 ) → ( 𝐴𝑏 ) ⊆ 𝐴 )
205 204 sselda ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → 𝑓𝐴 )
206 158 205 ffvelcdmd ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( 𝐹𝑓 ) ∈ 𝐷 )
207 1 2 9 8 5 140 141 203 109 206 11 psrmonmul2 ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ( .r𝑆 ) ( 𝐺 ‘ ( 𝐹𝑓 ) ) ) = ( 𝐺 ‘ ( ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ∘f + ( 𝐹𝑓 ) ) ) )
208 171 ffnd ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) Fn 𝐼 )
209 157 206 sselid ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( 𝐹𝑓 ) ∈ ( ℕ0m 𝐼 ) )
210 140 143 209 elmaprd ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( 𝐹𝑓 ) : 𝐼 ⟶ ℕ0 )
211 210 ffnd ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( 𝐹𝑓 ) Fn 𝐼 )
212 nfv 𝑖 ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) )
213 ovexd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑖𝐼 ) → ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ∈ V )
214 eqid ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) )
215 212 213 214 fnmptd ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) Fn 𝐼 )
216 eqid ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) )
217 fveq2 ( 𝑖 = 𝑗 → ( ( 𝐹𝑥 ) ‘ 𝑖 ) = ( ( 𝐹𝑥 ) ‘ 𝑗 ) )
218 217 mpteq2dv ( 𝑖 = 𝑗 → ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) = ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑗 ) ) )
219 218 oveq2d ( 𝑖 = 𝑗 → ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) = ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑗 ) ) ) )
220 simpr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → 𝑗𝐼 )
221 ovexd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑗 ) ) ) ∈ V )
222 216 219 220 221 fvmptd3 ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → ( ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ‘ 𝑗 ) = ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑗 ) ) ) )
223 eqidd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → ( ( 𝐹𝑓 ) ‘ 𝑗 ) = ( ( 𝐹𝑓 ) ‘ 𝑗 ) )
224 217 mpteq2dv ( 𝑖 = 𝑗 → ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) = ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑗 ) ) )
225 224 oveq2d ( 𝑖 = 𝑗 → ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) = ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑗 ) ) ) )
226 ovexd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑗 ) ) ) ∈ V )
227 214 225 220 226 fvmptd3 ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → ( ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ‘ 𝑗 ) = ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑗 ) ) ) )
228 cnfldbas ℂ = ( Base ‘ ℂfld )
229 cnfldadd + = ( +g ‘ ℂfld )
230 150 a1i ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → ℂfld ∈ CMnd )
231 175 adantr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → 𝑏 ∈ Fin )
232 183 adantlr ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) ∧ 𝑥𝑏 ) → ( 𝐹𝑥 ) : 𝐼 ⟶ ℕ0 )
233 nn0sscn 0 ⊆ ℂ
234 233 a1i ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) ∧ 𝑥𝑏 ) → ℕ0 ⊆ ℂ )
235 232 234 fssd ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) ∧ 𝑥𝑏 ) → ( 𝐹𝑥 ) : 𝐼 ⟶ ℂ )
236 simplr ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) ∧ 𝑥𝑏 ) → 𝑗𝐼 )
237 235 236 ffvelcdmd ( ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) ∧ 𝑥𝑏 ) → ( ( 𝐹𝑥 ) ‘ 𝑗 ) ∈ ℂ )
238 simplr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → 𝑓 ∈ ( 𝐴𝑏 ) )
239 238 eldifbd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → ¬ 𝑓𝑏 )
240 210 adantr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → ( 𝐹𝑓 ) : 𝐼 ⟶ ℕ0 )
241 233 a1i ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → ℕ0 ⊆ ℂ )
242 240 241 fssd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → ( 𝐹𝑓 ) : 𝐼 ⟶ ℂ )
243 242 220 ffvelcdmd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → ( ( 𝐹𝑓 ) ‘ 𝑗 ) ∈ ℂ )
244 fveq2 ( 𝑥 = 𝑓 → ( 𝐹𝑥 ) = ( 𝐹𝑓 ) )
245 244 fveq1d ( 𝑥 = 𝑓 → ( ( 𝐹𝑥 ) ‘ 𝑗 ) = ( ( 𝐹𝑓 ) ‘ 𝑗 ) )
246 228 229 230 231 237 238 239 243 245 gsumunsn ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑗 ) ) ) = ( ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑗 ) ) ) + ( ( 𝐹𝑓 ) ‘ 𝑗 ) ) )
247 227 246 eqtr2d ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ 𝑗𝐼 ) → ( ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑗 ) ) ) + ( ( 𝐹𝑓 ) ‘ 𝑗 ) ) = ( ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ‘ 𝑗 ) )
248 140 208 211 215 222 223 247 offveq ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ∘f + ( 𝐹𝑓 ) ) = ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) )
249 248 fveq2d ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( 𝐺 ‘ ( ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ∘f + ( 𝐹𝑓 ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )
250 207 249 eqtrd ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ( .r𝑆 ) ( 𝐺 ‘ ( 𝐹𝑓 ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )
251 250 adantr ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → ( ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ( .r𝑆 ) ( 𝐺 ‘ ( 𝐹𝑓 ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )
252 133 139 251 3eqtrd ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → ( 𝑀 Σg ( 𝑙 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( 𝐺 ‘ ( 𝐹𝑙 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )
253 107 252 eqtrid ( ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) ∧ ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) → ( 𝑀 Σg ( 𝑘 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )
254 253 ex ( ( ( 𝜑𝑏𝐴 ) ∧ 𝑓 ∈ ( 𝐴𝑏 ) ) → ( ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) → ( 𝑀 Σg ( 𝑘 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) )
255 254 anasss ( ( 𝜑 ∧ ( 𝑏𝐴𝑓 ∈ ( 𝐴𝑏 ) ) ) → ( ( 𝑀 Σg ( 𝑘𝑏 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝑏 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) → ( 𝑀 Σg ( 𝑘 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥 ∈ ( 𝑏 ∪ { 𝑓 } ) ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) ) )
256 44 51 58 65 104 255 6 findcard2d ( 𝜑 → ( 𝑀 Σg ( 𝑘𝐴 ↦ ( 𝐺 ‘ ( 𝐹𝑘 ) ) ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝐴 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )
257 37 256 eqtrd ( 𝜑 → ( 𝑀 Σg ( 𝐺𝐹 ) ) = ( 𝐺 ‘ ( 𝑖𝐼 ↦ ( ℂfld Σg ( 𝑥𝐴 ↦ ( ( 𝐹𝑥 ) ‘ 𝑖 ) ) ) ) ) )