Metamath Proof Explorer


Theorem plypf1

Description: Write the set of complex polynomials in a subring in terms of the abstract polynomial construction. (Contributed by Mario Carneiro, 3-Jul-2015) (Proof shortened by AV, 29-Sep-2019)

Ref Expression
Hypotheses plypf1.r ⊢ R = ℂ fld ↾ 𝑠 S
plypf1.p ⊢ P = Poly 1 ⁡ R
plypf1.a ⊢ A = Base P
plypf1.e ⊢ E = eval 1 ⁡ ℂ fld
Assertion plypf1 ⊢ S ∈ SubRing ⁡ ℂ fld → Poly ⁡ S = E A

Proof

Step Hyp Ref Expression
1 plypf1.r ⊢ R = ℂ fld ↾ 𝑠 S
2 plypf1.p ⊢ P = Poly 1 ⁡ R
3 plypf1.a ⊢ A = Base P
4 plypf1.e ⊢ E = eval 1 ⁡ ℂ fld
5 elply ⊢ f ∈ Poly ⁡ S ↔ S ⊆ ℂ ∧ ∃ n ∈ ℕ 0 ∃ a ∈ S ∪ 0 ℕ 0 f = z ∈ ℂ ⟼ ∑ k = 0 n a ⁡ k ⁢ z k
6 5 simprbi ⊢ f ∈ Poly ⁡ S → ∃ n ∈ ℕ 0 ∃ a ∈ S ∪ 0 ℕ 0 f = z ∈ ℂ ⟼ ∑ k = 0 n a ⁡ k ⁢ z k
7 eqid ⊢ ℂ fld ↑ 𝑠 ℂ = ℂ fld ↑ 𝑠 ℂ
8 cnfldbas ⊢ ℂ = Base ℂ fld
9 eqid ⊢ 0 ℂ fld ↑ 𝑠 ℂ = 0 ℂ fld ↑ 𝑠 ℂ
10 cnex ⊢ ℂ ∈ V
11 10 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → ℂ ∈ V
12 fzfid ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → 0 … n ∈ Fin
13 cnring ⊢ ℂ fld ∈ Ring
14 ringcmn ⊢ ℂ fld ∈ Ring → ℂ fld ∈ CMnd
15 13 14 mp1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → ℂ fld ∈ CMnd
16 8 subrgss ⊢ S ∈ SubRing ⁡ ℂ fld → S ⊆ ℂ
17 16 ad2antrr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → S ⊆ ℂ
18 elmapi ⊢ a ∈ S ∪ 0 ℕ 0 → a : ℕ 0 ⟶ S ∪ 0
19 18 ad2antll ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → a : ℕ 0 ⟶ S ∪ 0
20 subrgsubg ⊢ S ∈ SubRing ⁡ ℂ fld → S ∈ SubGrp ⁡ ℂ fld
21 cnfld0 ⊢ 0 = 0 ℂ fld
22 21 subg0cl ⊢ S ∈ SubGrp ⁡ ℂ fld → 0 ∈ S
23 20 22 syl ⊢ S ∈ SubRing ⁡ ℂ fld → 0 ∈ S
24 23 adantr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → 0 ∈ S
25 24 snssd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → 0 ⊆ S
26 ssequn2 ⊢ 0 ⊆ S ↔ S ∪ 0 = S
27 25 26 sylib ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → S ∪ 0 = S
28 27 feq3d ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → a : ℕ 0 ⟶ S ∪ 0 ↔ a : ℕ 0 ⟶ S
29 19 28 mpbid ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → a : ℕ 0 ⟶ S
30 elfznn0 ⊢ k ∈ 0 … n → k ∈ ℕ 0
31 ffvelcdm ⊢ a : ℕ 0 ⟶ S ∧ k ∈ ℕ 0 → a ⁡ k ∈ S
32 29 30 31 syl2an ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → a ⁡ k ∈ S
33 17 32 sseldd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → a ⁡ k ∈ ℂ
34 33 adantrl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ z ∈ ℂ ∧ k ∈ 0 … n → a ⁡ k ∈ ℂ
35 simprl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ z ∈ ℂ ∧ k ∈ 0 … n → z ∈ ℂ
36 30 ad2antll ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ z ∈ ℂ ∧ k ∈ 0 … n → k ∈ ℕ 0
37 expcl ⊢ z ∈ ℂ ∧ k ∈ ℕ 0 → z k ∈ ℂ
38 35 36 37 syl2anc ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ z ∈ ℂ ∧ k ∈ 0 … n → z k ∈ ℂ
39 34 38 mulcld ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ z ∈ ℂ ∧ k ∈ 0 … n → a ⁡ k ⁢ z k ∈ ℂ
40 eqid ⊢ k ∈ 0 … n ⟼ z ∈ ℂ ⟼ a ⁡ k ⁢ z k = k ∈ 0 … n ⟼ z ∈ ℂ ⟼ a ⁡ k ⁢ z k
41 10 mptex ⊢ z ∈ ℂ ⟼ a ⁡ k ⁢ z k ∈ V
42 41 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → z ∈ ℂ ⟼ a ⁡ k ⁢ z k ∈ V
43 fvex ⊢ 0 ℂ fld ↑ 𝑠 ℂ ∈ V
44 43 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → 0 ℂ fld ↑ 𝑠 ℂ ∈ V
45 40 12 42 44 fsuppmptdm ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → finSupp 0 ℂ fld ↑ 𝑠 ℂ ⁡ k ∈ 0 … n ⟼ z ∈ ℂ ⟼ a ⁡ k ⁢ z k
46 7 8 9 11 12 15 39 45 pwsgsum ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → ∑ ℂ fld ↑ 𝑠 ℂ k = 0 n z ∈ ℂ ⟼ a ⁡ k ⁢ z k = z ∈ ℂ ⟼ ∑ ℂ fld k = 0 n a ⁡ k ⁢ z k
47 fzfid ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ z ∈ ℂ → 0 … n ∈ Fin
48 39 anassrs ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ z ∈ ℂ ∧ k ∈ 0 … n → a ⁡ k ⁢ z k ∈ ℂ
49 47 48 gsumfsum ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ z ∈ ℂ → ∑ ℂ fld k = 0 n a ⁡ k ⁢ z k = ∑ k = 0 n a ⁡ k ⁢ z k
50 49 mpteq2dva ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → z ∈ ℂ ⟼ ∑ ℂ fld k = 0 n a ⁡ k ⁢ z k = z ∈ ℂ ⟼ ∑ k = 0 n a ⁡ k ⁢ z k
51 46 50 eqtrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → ∑ ℂ fld ↑ 𝑠 ℂ k = 0 n z ∈ ℂ ⟼ a ⁡ k ⁢ z k = z ∈ ℂ ⟼ ∑ k = 0 n a ⁡ k ⁢ z k
52 7 pwsring ⊢ ℂ fld ∈ Ring ∧ ℂ ∈ V → ℂ fld ↑ 𝑠 ℂ ∈ Ring
53 13 10 52 mp2an ⊢ ℂ fld ↑ 𝑠 ℂ ∈ Ring
54 ringcmn ⊢ ℂ fld ↑ 𝑠 ℂ ∈ Ring → ℂ fld ↑ 𝑠 ℂ ∈ CMnd
55 53 54 mp1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → ℂ fld ↑ 𝑠 ℂ ∈ CMnd
56 cncrng ⊢ ℂ fld ∈ CRing
57 eqid ⊢ Poly 1 ⁡ ℂ fld = Poly 1 ⁡ ℂ fld
58 4 57 7 8 evl1rhm ⊢ ℂ fld ∈ CRing → E ∈ Poly 1 ⁡ ℂ fld RingHom ℂ fld ↑ 𝑠 ℂ
59 56 58 ax-mp ⊢ E ∈ Poly 1 ⁡ ℂ fld RingHom ℂ fld ↑ 𝑠 ℂ
60 57 1 2 3 subrgply1 ⊢ S ∈ SubRing ⁡ ℂ fld → A ∈ SubRing ⁡ Poly 1 ⁡ ℂ fld
61 60 adantr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → A ∈ SubRing ⁡ Poly 1 ⁡ ℂ fld
62 rhmima ⊢ E ∈ Poly 1 ⁡ ℂ fld RingHom ℂ fld ↑ 𝑠 ℂ ∧ A ∈ SubRing ⁡ Poly 1 ⁡ ℂ fld → E A ∈ SubRing ⁡ ℂ fld ↑ 𝑠 ℂ
63 59 61 62 sylancr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → E A ∈ SubRing ⁡ ℂ fld ↑ 𝑠 ℂ
64 subrgsubg ⊢ E A ∈ SubRing ⁡ ℂ fld ↑ 𝑠 ℂ → E A ∈ SubGrp ⁡ ℂ fld ↑ 𝑠 ℂ
65 subgsubm ⊢ E A ∈ SubGrp ⁡ ℂ fld ↑ 𝑠 ℂ → E A ∈ SubMnd ⁡ ℂ fld ↑ 𝑠 ℂ
66 63 64 65 3syl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → E A ∈ SubMnd ⁡ ℂ fld ↑ 𝑠 ℂ
67 eqid ⊢ Base ℂ fld ↑ 𝑠 ℂ = Base ℂ fld ↑ 𝑠 ℂ
68 13 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → ℂ fld ∈ Ring
69 10 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → ℂ ∈ V
70 fconst6g ⊢ a ⁡ k ∈ ℂ → ℂ × a ⁡ k : ℂ ⟶ ℂ
71 33 70 syl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → ℂ × a ⁡ k : ℂ ⟶ ℂ
72 7 8 67 pwselbasb ⊢ ℂ fld ∈ Ring ∧ ℂ ∈ V → ℂ × a ⁡ k ∈ Base ℂ fld ↑ 𝑠 ℂ ↔ ℂ × a ⁡ k : ℂ ⟶ ℂ
73 13 10 72 mp2an ⊢ ℂ × a ⁡ k ∈ Base ℂ fld ↑ 𝑠 ℂ ↔ ℂ × a ⁡ k : ℂ ⟶ ℂ
74 71 73 sylibr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → ℂ × a ⁡ k ∈ Base ℂ fld ↑ 𝑠 ℂ
75 38 anass1rs ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n ∧ z ∈ ℂ → z k ∈ ℂ
76 75 fmpttd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → z ∈ ℂ ⟼ z k : ℂ ⟶ ℂ
77 7 8 67 pwselbasb ⊢ ℂ fld ∈ Ring ∧ ℂ ∈ V → z ∈ ℂ ⟼ z k ∈ Base ℂ fld ↑ 𝑠 ℂ ↔ z ∈ ℂ ⟼ z k : ℂ ⟶ ℂ
78 13 10 77 mp2an ⊢ z ∈ ℂ ⟼ z k ∈ Base ℂ fld ↑ 𝑠 ℂ ↔ z ∈ ℂ ⟼ z k : ℂ ⟶ ℂ
79 76 78 sylibr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → z ∈ ℂ ⟼ z k ∈ Base ℂ fld ↑ 𝑠 ℂ
80 cnfldmul ⊢ × = ⋅ ℂ fld
81 eqid ⊢ ⋅ ℂ fld ↑ 𝑠 ℂ = ⋅ ℂ fld ↑ 𝑠 ℂ
82 7 67 68 69 74 79 80 81 pwsmulrval ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → ℂ × a ⁡ k ⋅ ℂ fld ↑ 𝑠 ℂ z ∈ ℂ ⟼ z k = ℂ × a ⁡ k × f z ∈ ℂ ⟼ z k
83 33 adantr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n ∧ z ∈ ℂ → a ⁡ k ∈ ℂ
84 fconstmpt ⊢ ℂ × a ⁡ k = z ∈ ℂ ⟼ a ⁡ k
85 84 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → ℂ × a ⁡ k = z ∈ ℂ ⟼ a ⁡ k
86 eqidd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → z ∈ ℂ ⟼ z k = z ∈ ℂ ⟼ z k
87 69 83 75 85 86 offval2 ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → ℂ × a ⁡ k × f z ∈ ℂ ⟼ z k = z ∈ ℂ ⟼ a ⁡ k ⁢ z k
88 82 87 eqtrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → ℂ × a ⁡ k ⋅ ℂ fld ↑ 𝑠 ℂ z ∈ ℂ ⟼ z k = z ∈ ℂ ⟼ a ⁡ k ⁢ z k
89 63 adantr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → E A ∈ SubRing ⁡ ℂ fld ↑ 𝑠 ℂ
90 eqid ⊢ algSc ⁡ Poly 1 ⁡ ℂ fld = algSc ⁡ Poly 1 ⁡ ℂ fld
91 4 57 8 90 evl1sca ⊢ ℂ fld ∈ CRing ∧ a ⁡ k ∈ ℂ → E ⁡ algSc ⁡ Poly 1 ⁡ ℂ fld ⁡ a ⁡ k = ℂ × a ⁡ k
92 56 33 91 sylancr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → E ⁡ algSc ⁡ Poly 1 ⁡ ℂ fld ⁡ a ⁡ k = ℂ × a ⁡ k
93 eqid ⊢ Base Poly 1 ⁡ ℂ fld = Base Poly 1 ⁡ ℂ fld
94 93 67 rhmf ⊢ E ∈ Poly 1 ⁡ ℂ fld RingHom ℂ fld ↑ 𝑠 ℂ → E : Base Poly 1 ⁡ ℂ fld ⟶ Base ℂ fld ↑ 𝑠 ℂ
95 59 94 ax-mp ⊢ E : Base Poly 1 ⁡ ℂ fld ⟶ Base ℂ fld ↑ 𝑠 ℂ
96 ffn ⊢ E : Base Poly 1 ⁡ ℂ fld ⟶ Base ℂ fld ↑ 𝑠 ℂ → E Fn Base Poly 1 ⁡ ℂ fld
97 95 96 mp1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → E Fn Base Poly 1 ⁡ ℂ fld
98 93 subrgss ⊢ A ∈ SubRing ⁡ Poly 1 ⁡ ℂ fld → A ⊆ Base Poly 1 ⁡ ℂ fld
99 60 98 syl ⊢ S ∈ SubRing ⁡ ℂ fld → A ⊆ Base Poly 1 ⁡ ℂ fld
100 99 ad2antrr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → A ⊆ Base Poly 1 ⁡ ℂ fld
101 simpll ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → S ∈ SubRing ⁡ ℂ fld
102 57 90 1 2 101 3 8 33 subrg1asclcl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → algSc ⁡ Poly 1 ⁡ ℂ fld ⁡ a ⁡ k ∈ A ↔ a ⁡ k ∈ S
103 32 102 mpbird ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → algSc ⁡ Poly 1 ⁡ ℂ fld ⁡ a ⁡ k ∈ A
104 fnfvima ⊢ E Fn Base Poly 1 ⁡ ℂ fld ∧ A ⊆ Base Poly 1 ⁡ ℂ fld ∧ algSc ⁡ Poly 1 ⁡ ℂ fld ⁡ a ⁡ k ∈ A → E ⁡ algSc ⁡ Poly 1 ⁡ ℂ fld ⁡ a ⁡ k ∈ E A
105 97 100 103 104 syl3anc ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → E ⁡ algSc ⁡ Poly 1 ⁡ ℂ fld ⁡ a ⁡ k ∈ E A
106 92 105 eqeltrrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → ℂ × a ⁡ k ∈ E A
107 67 subrgss ⊢ E A ∈ SubRing ⁡ ℂ fld ↑ 𝑠 ℂ → E A ⊆ Base ℂ fld ↑ 𝑠 ℂ
108 89 107 syl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → E A ⊆ Base ℂ fld ↑ 𝑠 ℂ
109 60 ad2antrr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → A ∈ SubRing ⁡ Poly 1 ⁡ ℂ fld
110 eqid ⊢ mulGrp Poly 1 ⁡ ℂ fld = mulGrp Poly 1 ⁡ ℂ fld
111 110 subrgsubm ⊢ A ∈ SubRing ⁡ Poly 1 ⁡ ℂ fld → A ∈ SubMnd ⁡ mulGrp Poly 1 ⁡ ℂ fld
112 109 111 syl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → A ∈ SubMnd ⁡ mulGrp Poly 1 ⁡ ℂ fld
113 30 adantl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → k ∈ ℕ 0
114 eqid ⊢ var 1 ⁡ ℂ fld = var 1 ⁡ ℂ fld
115 114 101 1 2 3 subrgvr1cl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → var 1 ⁡ ℂ fld ∈ A
116 eqid ⊢ ⋅ mulGrp Poly 1 ⁡ ℂ fld = ⋅ mulGrp Poly 1 ⁡ ℂ fld
117 116 submmulgcl ⊢ A ∈ SubMnd ⁡ mulGrp Poly 1 ⁡ ℂ fld ∧ k ∈ ℕ 0 ∧ var 1 ⁡ ℂ fld ∈ A → k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ A
118 112 113 115 117 syl3anc ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ A
119 fnfvima ⊢ E Fn Base Poly 1 ⁡ ℂ fld ∧ A ⊆ Base Poly 1 ⁡ ℂ fld ∧ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ A → E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ E A
120 97 100 118 119 syl3anc ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ E A
121 108 120 sseldd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ Base ℂ fld ↑ 𝑠 ℂ
122 7 8 67 68 69 121 pwselbas ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld : ℂ ⟶ ℂ
123 122 feqmptd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld = z ∈ ℂ ⟼ E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z
124 56 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n ∧ z ∈ ℂ → ℂ fld ∈ CRing
125 simpr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n ∧ z ∈ ℂ → z ∈ ℂ
126 4 114 8 57 93 124 125 evl1vard ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n ∧ z ∈ ℂ → var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld ∧ E ⁡ var 1 ⁡ ℂ fld ⁡ z = z
127 eqid ⊢ ⋅ mulGrp ℂ fld = ⋅ mulGrp ℂ fld
128 113 adantr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n ∧ z ∈ ℂ → k ∈ ℕ 0
129 4 57 8 93 124 125 126 116 127 128 evl1expd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n ∧ z ∈ ℂ → k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld ∧ E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z = k ⋅ mulGrp ℂ fld z
130 129 simprd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n ∧ z ∈ ℂ → E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z = k ⋅ mulGrp ℂ fld z
131 cnfldexp ⊢ z ∈ ℂ ∧ k ∈ ℕ 0 → k ⋅ mulGrp ℂ fld z = z k
132 125 128 131 syl2anc ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n ∧ z ∈ ℂ → k ⋅ mulGrp ℂ fld z = z k
133 130 132 eqtrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n ∧ z ∈ ℂ → E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z = z k
134 133 mpteq2dva ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → z ∈ ℂ ⟼ E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z = z ∈ ℂ ⟼ z k
135 123 134 eqtrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld = z ∈ ℂ ⟼ z k
136 135 120 eqeltrrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → z ∈ ℂ ⟼ z k ∈ E A
137 81 subrgmcl ⊢ E A ∈ SubRing ⁡ ℂ fld ↑ 𝑠 ℂ ∧ ℂ × a ⁡ k ∈ E A ∧ z ∈ ℂ ⟼ z k ∈ E A → ℂ × a ⁡ k ⋅ ℂ fld ↑ 𝑠 ℂ z ∈ ℂ ⟼ z k ∈ E A
138 89 106 136 137 syl3anc ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → ℂ × a ⁡ k ⋅ ℂ fld ↑ 𝑠 ℂ z ∈ ℂ ⟼ z k ∈ E A
139 88 138 eqeltrrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 ∧ k ∈ 0 … n → z ∈ ℂ ⟼ a ⁡ k ⁢ z k ∈ E A
140 139 fmpttd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → k ∈ 0 … n ⟼ z ∈ ℂ ⟼ a ⁡ k ⁢ z k : 0 … n ⟶ E A
141 40 12 139 44 fsuppmptdm ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → finSupp 0 ℂ fld ↑ 𝑠 ℂ ⁡ k ∈ 0 … n ⟼ z ∈ ℂ ⟼ a ⁡ k ⁢ z k
142 9 55 12 66 140 141 gsumsubmcl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → ∑ ℂ fld ↑ 𝑠 ℂ k = 0 n z ∈ ℂ ⟼ a ⁡ k ⁢ z k ∈ E A
143 51 142 eqeltrrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → z ∈ ℂ ⟼ ∑ k = 0 n a ⁡ k ⁢ z k ∈ E A
144 eleq1 ⊢ f = z ∈ ℂ ⟼ ∑ k = 0 n a ⁡ k ⁢ z k → f ∈ E A ↔ z ∈ ℂ ⟼ ∑ k = 0 n a ⁡ k ⁢ z k ∈ E A
145 143 144 syl5ibrcom ⊢ S ∈ SubRing ⁡ ℂ fld ∧ n ∈ ℕ 0 ∧ a ∈ S ∪ 0 ℕ 0 → f = z ∈ ℂ ⟼ ∑ k = 0 n a ⁡ k ⁢ z k → f ∈ E A
146 145 rexlimdvva ⊢ S ∈ SubRing ⁡ ℂ fld → ∃ n ∈ ℕ 0 ∃ a ∈ S ∪ 0 ℕ 0 f = z ∈ ℂ ⟼ ∑ k = 0 n a ⁡ k ⁢ z k → f ∈ E A
147 6 146 syl5 ⊢ S ∈ SubRing ⁡ ℂ fld → f ∈ Poly ⁡ S → f ∈ E A
148 ffun ⊢ E : Base Poly 1 ⁡ ℂ fld ⟶ Base ℂ fld ↑ 𝑠 ℂ → Fun ⁡ E
149 95 148 ax-mp ⊢ Fun ⁡ E
150 fvelima ⊢ Fun ⁡ E ∧ f ∈ E A → ∃ a ∈ A E ⁡ a = f
151 149 150 mpan ⊢ f ∈ E A → ∃ a ∈ A E ⁡ a = f
152 99 sselda ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → a ∈ Base Poly 1 ⁡ ℂ fld
153 eqid ⊢ ⋅ Poly 1 ⁡ ℂ fld = ⋅ Poly 1 ⁡ ℂ fld
154 eqid ⊢ coe 1 ⁡ a = coe 1 ⁡ a
155 57 114 93 153 110 116 154 ply1coe ⊢ ℂ fld ∈ Ring ∧ a ∈ Base Poly 1 ⁡ ℂ fld → a = ∑ Poly 1 ⁡ ℂ fld k ∈ ℕ 0 coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld
156 13 152 155 sylancr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → a = ∑ Poly 1 ⁡ ℂ fld k ∈ ℕ 0 coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld
157 156 fveq2d ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → E ⁡ a = E ⁡ ∑ Poly 1 ⁡ ℂ fld k ∈ ℕ 0 coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld
158 eqid ⊢ 0 Poly 1 ⁡ ℂ fld = 0 Poly 1 ⁡ ℂ fld
159 57 ply1ring ⊢ ℂ fld ∈ Ring → Poly 1 ⁡ ℂ fld ∈ Ring
160 13 159 ax-mp ⊢ Poly 1 ⁡ ℂ fld ∈ Ring
161 ringcmn ⊢ Poly 1 ⁡ ℂ fld ∈ Ring → Poly 1 ⁡ ℂ fld ∈ CMnd
162 160 161 mp1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → Poly 1 ⁡ ℂ fld ∈ CMnd
163 ringmnd ⊢ ℂ fld ↑ 𝑠 ℂ ∈ Ring → ℂ fld ↑ 𝑠 ℂ ∈ Mnd
164 53 163 mp1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → ℂ fld ↑ 𝑠 ℂ ∈ Mnd
165 nn0ex ⊢ ℕ 0 ∈ V
166 165 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → ℕ 0 ∈ V
167 rhmghm ⊢ E ∈ Poly 1 ⁡ ℂ fld RingHom ℂ fld ↑ 𝑠 ℂ → E ∈ Poly 1 ⁡ ℂ fld GrpHom ℂ fld ↑ 𝑠 ℂ
168 59 167 ax-mp ⊢ E ∈ Poly 1 ⁡ ℂ fld GrpHom ℂ fld ↑ 𝑠 ℂ
169 ghmmhm ⊢ E ∈ Poly 1 ⁡ ℂ fld GrpHom ℂ fld ↑ 𝑠 ℂ → E ∈ Poly 1 ⁡ ℂ fld MndHom ℂ fld ↑ 𝑠 ℂ
170 168 169 mp1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → E ∈ Poly 1 ⁡ ℂ fld MndHom ℂ fld ↑ 𝑠 ℂ
171 57 ply1lmod ⊢ ℂ fld ∈ Ring → Poly 1 ⁡ ℂ fld ∈ LMod
172 13 171 mp1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → Poly 1 ⁡ ℂ fld ∈ LMod
173 16 ad2antrr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → S ⊆ ℂ
174 eqid ⊢ Base R = Base R
175 154 3 2 174 coe1f ⊢ a ∈ A → coe 1 ⁡ a : ℕ 0 ⟶ Base R
176 1 subrgbas ⊢ S ∈ SubRing ⁡ ℂ fld → S = Base R
177 176 feq3d ⊢ S ∈ SubRing ⁡ ℂ fld → coe 1 ⁡ a : ℕ 0 ⟶ S ↔ coe 1 ⁡ a : ℕ 0 ⟶ Base R
178 175 177 imbitrrid ⊢ S ∈ SubRing ⁡ ℂ fld → a ∈ A → coe 1 ⁡ a : ℕ 0 ⟶ S
179 178 imp ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → coe 1 ⁡ a : ℕ 0 ⟶ S
180 179 ffvelcdmda ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → coe 1 ⁡ a ⁡ k ∈ S
181 173 180 sseldd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → coe 1 ⁡ a ⁡ k ∈ ℂ
182 110 93 mgpbas ⊢ Base Poly 1 ⁡ ℂ fld = Base mulGrp Poly 1 ⁡ ℂ fld
183 110 ringmgp ⊢ Poly 1 ⁡ ℂ fld ∈ Ring → mulGrp Poly 1 ⁡ ℂ fld ∈ Mnd
184 160 183 mp1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → mulGrp Poly 1 ⁡ ℂ fld ∈ Mnd
185 simpr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → k ∈ ℕ 0
186 114 57 93 vr1cl ⊢ ℂ fld ∈ Ring → var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld
187 13 186 mp1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld
188 182 116 184 185 187 mulgnn0cld ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld
189 57 ply1sca ⊢ ℂ fld ∈ Ring → ℂ fld = Scalar ⁡ Poly 1 ⁡ ℂ fld
190 13 189 ax-mp ⊢ ℂ fld = Scalar ⁡ Poly 1 ⁡ ℂ fld
191 93 190 153 8 lmodvscl ⊢ Poly 1 ⁡ ℂ fld ∈ LMod ∧ coe 1 ⁡ a ⁡ k ∈ ℂ ∧ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld → coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld
192 172 181 188 191 syl3anc ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld
193 192 fmpttd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld : ℕ 0 ⟶ Base Poly 1 ⁡ ℂ fld
194 165 mptex ⊢ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ V
195 funmpt ⊢ Fun ⁡ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld
196 fvex ⊢ 0 Poly 1 ⁡ ℂ fld ∈ V
197 194 195 196 3pm3.2i ⊢ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ V ∧ Fun ⁡ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∧ 0 Poly 1 ⁡ ℂ fld ∈ V
198 197 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ V ∧ Fun ⁡ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∧ 0 Poly 1 ⁡ ℂ fld ∈ V
199 154 93 57 21 coe1sfi ⊢ a ∈ Base Poly 1 ⁡ ℂ fld → finSupp 0 ⁡ coe 1 ⁡ a
200 152 199 syl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → finSupp 0 ⁡ coe 1 ⁡ a
201 200 fsuppimpd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → coe 1 ⁡ a supp 0 ∈ Fin
202 179 feqmptd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → coe 1 ⁡ a = k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k
203 202 oveq1d ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → coe 1 ⁡ a supp 0 = k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k supp 0
204 eqimss2 ⊢ coe 1 ⁡ a supp 0 = k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k supp 0 → k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k supp 0 ⊆ coe 1 ⁡ a supp 0
205 203 204 syl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k supp 0 ⊆ coe 1 ⁡ a supp 0
206 13 171 mp1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → Poly 1 ⁡ ℂ fld ∈ LMod
207 93 190 153 21 158 lmod0vs ⊢ Poly 1 ⁡ ℂ fld ∈ LMod ∧ x ∈ Base Poly 1 ⁡ ℂ fld → 0 ⋅ Poly 1 ⁡ ℂ fld x = 0 Poly 1 ⁡ ℂ fld
208 206 207 sylan ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ x ∈ Base Poly 1 ⁡ ℂ fld → 0 ⋅ Poly 1 ⁡ ℂ fld x = 0 Poly 1 ⁡ ℂ fld
209 c0ex ⊢ 0 ∈ V
210 209 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → 0 ∈ V
211 205 208 180 188 210 suppssov1 ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld supp 0 Poly 1 ⁡ ℂ fld ⊆ coe 1 ⁡ a supp 0
212 suppssfifsupp ⊢ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ V ∧ Fun ⁡ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∧ 0 Poly 1 ⁡ ℂ fld ∈ V ∧ coe 1 ⁡ a supp 0 ∈ Fin ∧ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld supp 0 Poly 1 ⁡ ℂ fld ⊆ coe 1 ⁡ a supp 0 → finSupp 0 Poly 1 ⁡ ℂ fld ⁡ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld
213 198 201 211 212 syl12anc ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → finSupp 0 Poly 1 ⁡ ℂ fld ⁡ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld
214 93 158 162 164 166 170 193 213 gsummhm ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → ∑ ℂ fld ↑ 𝑠 ℂ E ∘ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld = E ⁡ ∑ Poly 1 ⁡ ℂ fld k ∈ ℕ 0 coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld
215 95 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → E : Base Poly 1 ⁡ ℂ fld ⟶ Base ℂ fld ↑ 𝑠 ℂ
216 215 192 cofmpt ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → E ∘ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld = k ∈ ℕ 0 ⟼ E ⁡ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld
217 13 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → ℂ fld ∈ Ring
218 10 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → ℂ ∈ V
219 95 ffvelcdmi ⊢ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld → E ⁡ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ Base ℂ fld ↑ 𝑠 ℂ
220 192 219 syl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → E ⁡ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ Base ℂ fld ↑ 𝑠 ℂ
221 7 8 67 217 218 220 pwselbas ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → E ⁡ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld : ℂ ⟶ ℂ
222 221 feqmptd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → E ⁡ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld = z ∈ ℂ ⟼ E ⁡ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z
223 56 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∧ z ∈ ℂ → ℂ fld ∈ CRing
224 simpr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∧ z ∈ ℂ → z ∈ ℂ
225 4 114 8 57 93 223 224 evl1vard ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∧ z ∈ ℂ → var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld ∧ E ⁡ var 1 ⁡ ℂ fld ⁡ z = z
226 185 adantr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∧ z ∈ ℂ → k ∈ ℕ 0
227 4 57 8 93 223 224 225 116 127 226 evl1expd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∧ z ∈ ℂ → k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld ∧ E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z = k ⋅ mulGrp ℂ fld z
228 224 226 131 syl2anc ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∧ z ∈ ℂ → k ⋅ mulGrp ℂ fld z = z k
229 228 eqeq2d ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∧ z ∈ ℂ → E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z = k ⋅ mulGrp ℂ fld z ↔ E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z = z k
230 229 anbi2d ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∧ z ∈ ℂ → k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld ∧ E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z = k ⋅ mulGrp ℂ fld z ↔ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld ∧ E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z = z k
231 227 230 mpbid ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∧ z ∈ ℂ → k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld ∧ E ⁡ k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z = z k
232 181 adantr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∧ z ∈ ℂ → coe 1 ⁡ a ⁡ k ∈ ℂ
233 4 57 8 93 223 224 231 232 153 80 evl1vsd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∧ z ∈ ℂ → coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ∈ Base Poly 1 ⁡ ℂ fld ∧ E ⁡ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z = coe 1 ⁡ a ⁡ k ⁢ z k
234 233 simprd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∧ z ∈ ℂ → E ⁡ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z = coe 1 ⁡ a ⁡ k ⁢ z k
235 234 mpteq2dva ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → z ∈ ℂ ⟼ E ⁡ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld ⁡ z = z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k
236 222 235 eqtrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 → E ⁡ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld = z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k
237 236 mpteq2dva ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → k ∈ ℕ 0 ⟼ E ⁡ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld = k ∈ ℕ 0 ⟼ z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k
238 216 237 eqtrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → E ∘ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld = k ∈ ℕ 0 ⟼ z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k
239 238 oveq2d ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → ∑ ℂ fld ↑ 𝑠 ℂ E ∘ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⋅ Poly 1 ⁡ ℂ fld k ⋅ mulGrp Poly 1 ⁡ ℂ fld var 1 ⁡ ℂ fld = ∑ ℂ fld ↑ 𝑠 ℂ k ∈ ℕ 0 z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k
240 157 214 239 3eqtr2d ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → E ⁡ a = ∑ ℂ fld ↑ 𝑠 ℂ k ∈ ℕ 0 z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k
241 10 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → ℂ ∈ V
242 13 14 mp1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → ℂ fld ∈ CMnd
243 181 adantlr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 → coe 1 ⁡ a ⁡ k ∈ ℂ
244 37 adantll ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 → z k ∈ ℂ
245 243 244 mulcld ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 → coe 1 ⁡ a ⁡ k ⁢ z k ∈ ℂ
246 245 anasss ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 → coe 1 ⁡ a ⁡ k ⁢ z k ∈ ℂ
247 165 mptex ⊢ k ∈ ℕ 0 ⟼ z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ∈ V
248 funmpt ⊢ Fun ⁡ k ∈ ℕ 0 ⟼ z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k
249 247 248 43 3pm3.2i ⊢ k ∈ ℕ 0 ⟼ z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ∈ V ∧ Fun ⁡ k ∈ ℕ 0 ⟼ z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ∧ 0 ℂ fld ↑ 𝑠 ℂ ∈ V
250 249 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → k ∈ ℕ 0 ⟼ z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ∈ V ∧ Fun ⁡ k ∈ ℕ 0 ⟼ z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ∧ 0 ℂ fld ↑ 𝑠 ℂ ∈ V
251 fzfid ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∈ Fin
252 eldifn ⊢ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → ¬ k ∈ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0
253 252 adantl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → ¬ k ∈ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0
254 152 ad2antrr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → a ∈ Base Poly 1 ⁡ ℂ fld
255 eldifi ⊢ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → k ∈ ℕ 0
256 255 adantl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → k ∈ ℕ 0
257 eqid ⊢ deg 1 ⁡ ℂ fld = deg 1 ⁡ ℂ fld
258 257 57 93 21 154 deg1ge ⊢ a ∈ Base Poly 1 ⁡ ℂ fld ∧ k ∈ ℕ 0 ∧ coe 1 ⁡ a ⁡ k ≠ 0 → k ≤ deg 1 ⁡ ℂ fld ⁡ a
259 258 3expia ⊢ a ∈ Base Poly 1 ⁡ ℂ fld ∧ k ∈ ℕ 0 → coe 1 ⁡ a ⁡ k ≠ 0 → k ≤ deg 1 ⁡ ℂ fld ⁡ a
260 254 256 259 syl2anc ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → coe 1 ⁡ a ⁡ k ≠ 0 → k ≤ deg 1 ⁡ ℂ fld ⁡ a
261 0xr ⊢ 0 ∈ ℝ *
262 257 57 93 deg1xrcl ⊢ a ∈ Base Poly 1 ⁡ ℂ fld → deg 1 ⁡ ℂ fld ⁡ a ∈ ℝ *
263 152 262 syl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → deg 1 ⁡ ℂ fld ⁡ a ∈ ℝ *
264 263 ad2antrr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → deg 1 ⁡ ℂ fld ⁡ a ∈ ℝ *
265 xrmax2 ⊢ 0 ∈ ℝ * ∧ deg 1 ⁡ ℂ fld ⁡ a ∈ ℝ * → deg 1 ⁡ ℂ fld ⁡ a ≤ if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0
266 261 264 265 sylancr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → deg 1 ⁡ ℂ fld ⁡ a ≤ if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0
267 256 nn0red ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → k ∈ ℝ
268 267 rexrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → k ∈ ℝ *
269 ifcl ⊢ deg 1 ⁡ ℂ fld ⁡ a ∈ ℝ * ∧ 0 ∈ ℝ * → if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∈ ℝ *
270 264 261 269 sylancl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∈ ℝ *
271 xrletr ⊢ k ∈ ℝ * ∧ deg 1 ⁡ ℂ fld ⁡ a ∈ ℝ * ∧ if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∈ ℝ * → k ≤ deg 1 ⁡ ℂ fld ⁡ a ∧ deg 1 ⁡ ℂ fld ⁡ a ≤ if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → k ≤ if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0
272 268 264 270 271 syl3anc ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → k ≤ deg 1 ⁡ ℂ fld ⁡ a ∧ deg 1 ⁡ ℂ fld ⁡ a ≤ if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → k ≤ if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0
273 266 272 mpan2d ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → k ≤ deg 1 ⁡ ℂ fld ⁡ a → k ≤ if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0
274 260 273 syld ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → coe 1 ⁡ a ⁡ k ≠ 0 → k ≤ if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0
275 274 256 jctild ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → coe 1 ⁡ a ⁡ k ≠ 0 → k ∈ ℕ 0 ∧ k ≤ if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0
276 257 57 93 deg1cl ⊢ a ∈ Base Poly 1 ⁡ ℂ fld → deg 1 ⁡ ℂ fld ⁡ a ∈ ℕ 0 ∪ −∞
277 152 276 syl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → deg 1 ⁡ ℂ fld ⁡ a ∈ ℕ 0 ∪ −∞
278 elun ⊢ deg 1 ⁡ ℂ fld ⁡ a ∈ ℕ 0 ∪ −∞ ↔ deg 1 ⁡ ℂ fld ⁡ a ∈ ℕ 0 ∨ deg 1 ⁡ ℂ fld ⁡ a ∈ −∞
279 277 278 sylib ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → deg 1 ⁡ ℂ fld ⁡ a ∈ ℕ 0 ∨ deg 1 ⁡ ℂ fld ⁡ a ∈ −∞
280 nn0ge0 ⊢ deg 1 ⁡ ℂ fld ⁡ a ∈ ℕ 0 → 0 ≤ deg 1 ⁡ ℂ fld ⁡ a
281 280 iftrued ⊢ deg 1 ⁡ ℂ fld ⁡ a ∈ ℕ 0 → if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 = deg 1 ⁡ ℂ fld ⁡ a
282 id ⊢ deg 1 ⁡ ℂ fld ⁡ a ∈ ℕ 0 → deg 1 ⁡ ℂ fld ⁡ a ∈ ℕ 0
283 281 282 eqeltrd ⊢ deg 1 ⁡ ℂ fld ⁡ a ∈ ℕ 0 → if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∈ ℕ 0
284 mnflt0 ⊢ −∞ < 0
285 mnfxr ⊢ −∞ ∈ ℝ *
286 xrltnle ⊢ −∞ ∈ ℝ * ∧ 0 ∈ ℝ * → −∞ < 0 ↔ ¬ 0 ≤ −∞
287 285 261 286 mp2an ⊢ −∞ < 0 ↔ ¬ 0 ≤ −∞
288 284 287 mpbi ⊢ ¬ 0 ≤ −∞
289 elsni ⊢ deg 1 ⁡ ℂ fld ⁡ a ∈ −∞ → deg 1 ⁡ ℂ fld ⁡ a = −∞
290 289 breq2d ⊢ deg 1 ⁡ ℂ fld ⁡ a ∈ −∞ → 0 ≤ deg 1 ⁡ ℂ fld ⁡ a ↔ 0 ≤ −∞
291 288 290 mtbiri ⊢ deg 1 ⁡ ℂ fld ⁡ a ∈ −∞ → ¬ 0 ≤ deg 1 ⁡ ℂ fld ⁡ a
292 291 iffalsed ⊢ deg 1 ⁡ ℂ fld ⁡ a ∈ −∞ → if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 = 0
293 0nn0 ⊢ 0 ∈ ℕ 0
294 292 293 eqeltrdi ⊢ deg 1 ⁡ ℂ fld ⁡ a ∈ −∞ → if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∈ ℕ 0
295 283 294 jaoi ⊢ deg 1 ⁡ ℂ fld ⁡ a ∈ ℕ 0 ∨ deg 1 ⁡ ℂ fld ⁡ a ∈ −∞ → if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∈ ℕ 0
296 279 295 syl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∈ ℕ 0
297 296 ad2antrr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∈ ℕ 0
298 fznn0 ⊢ if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∈ ℕ 0 → k ∈ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ↔ k ∈ ℕ 0 ∧ k ≤ if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0
299 297 298 syl ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → k ∈ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ↔ k ∈ ℕ 0 ∧ k ≤ if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0
300 275 299 sylibrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → coe 1 ⁡ a ⁡ k ≠ 0 → k ∈ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0
301 300 necon1bd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → ¬ k ∈ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → coe 1 ⁡ a ⁡ k = 0
302 253 301 mpd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → coe 1 ⁡ a ⁡ k = 0
303 302 oveq1d ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → coe 1 ⁡ a ⁡ k ⁢ z k = 0 ⋅ z k
304 255 244 sylan2 ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → z k ∈ ℂ
305 304 mul02d ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → 0 ⋅ z k = 0
306 303 305 eqtrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → coe 1 ⁡ a ⁡ k ⁢ z k = 0
307 306 an32s ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∧ z ∈ ℂ → coe 1 ⁡ a ⁡ k ⁢ z k = 0
308 307 mpteq2dva ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k = z ∈ ℂ ⟼ 0
309 fconstmpt ⊢ ℂ × 0 = z ∈ ℂ ⟼ 0
310 ringmnd ⊢ ℂ fld ∈ Ring → ℂ fld ∈ Mnd
311 13 310 ax-mp ⊢ ℂ fld ∈ Mnd
312 7 21 pws0g ⊢ ℂ fld ∈ Mnd ∧ ℂ ∈ V → ℂ × 0 = 0 ℂ fld ↑ 𝑠 ℂ
313 311 10 312 mp2an ⊢ ℂ × 0 = 0 ℂ fld ↑ 𝑠 ℂ
314 309 313 eqtr3i ⊢ z ∈ ℂ ⟼ 0 = 0 ℂ fld ↑ 𝑠 ℂ
315 308 314 eqtrdi ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ k ∈ ℕ 0 ∖ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k = 0 ℂ fld ↑ 𝑠 ℂ
316 315 166 suppss2 ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → k ∈ ℕ 0 ⟼ z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k supp 0 ℂ fld ↑ 𝑠 ℂ ⊆ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0
317 suppssfifsupp ⊢ k ∈ ℕ 0 ⟼ z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ∈ V ∧ Fun ⁡ k ∈ ℕ 0 ⟼ z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ∧ 0 ℂ fld ↑ 𝑠 ℂ ∈ V ∧ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∈ Fin ∧ k ∈ ℕ 0 ⟼ z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k supp 0 ℂ fld ↑ 𝑠 ℂ ⊆ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → finSupp 0 ℂ fld ↑ 𝑠 ℂ ⁡ k ∈ ℕ 0 ⟼ z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k
318 250 251 316 317 syl12anc ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → finSupp 0 ℂ fld ↑ 𝑠 ℂ ⁡ k ∈ ℕ 0 ⟼ z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k
319 7 8 9 241 166 242 246 318 pwsgsum ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → ∑ ℂ fld ↑ 𝑠 ℂ k ∈ ℕ 0 z ∈ ℂ ⟼ coe 1 ⁡ a ⁡ k ⁢ z k = z ∈ ℂ ⟼ ∑ ℂ fld k ∈ ℕ 0 coe 1 ⁡ a ⁡ k ⁢ z k
320 fz0ssnn0 ⊢ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ⊆ ℕ 0
321 resmpt ⊢ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ⊆ ℕ 0 → k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ↾ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 = k ∈ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k
322 320 321 ax-mp ⊢ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ↾ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 = k ∈ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k
323 322 oveq2i ⊢ ∑ ℂ fld k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ↾ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 = ∑ ℂ fld k = 0 if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 coe 1 ⁡ a ⁡ k ⁢ z k
324 13 14 mp1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ → ℂ fld ∈ CMnd
325 165 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ → ℕ 0 ∈ V
326 245 fmpttd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ → k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k : ℕ 0 ⟶ ℂ
327 306 325 suppss2 ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ → k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k supp 0 ⊆ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0
328 165 mptex ⊢ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ∈ V
329 funmpt ⊢ Fun ⁡ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k
330 328 329 209 3pm3.2i ⊢ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ∈ V ∧ Fun ⁡ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ∧ 0 ∈ V
331 330 a1i ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ → k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ∈ V ∧ Fun ⁡ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ∧ 0 ∈ V
332 fzfid ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ → 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∈ Fin
333 suppssfifsupp ⊢ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ∈ V ∧ Fun ⁡ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ∧ 0 ∈ V ∧ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∈ Fin ∧ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k supp 0 ⊆ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → finSupp 0 ⁡ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k
334 331 332 327 333 syl12anc ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ → finSupp 0 ⁡ k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k
335 8 21 324 325 326 327 334 gsumres ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ → ∑ ℂ fld k ∈ ℕ 0 ⟼ coe 1 ⁡ a ⁡ k ⁢ z k ↾ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 = ∑ ℂ fld k ∈ ℕ 0 coe 1 ⁡ a ⁡ k ⁢ z k
336 elfznn0 ⊢ k ∈ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → k ∈ ℕ 0
337 336 245 sylan2 ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ ∧ k ∈ 0 … if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 → coe 1 ⁡ a ⁡ k ⁢ z k ∈ ℂ
338 332 337 gsumfsum ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ → ∑ ℂ fld k = 0 if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 coe 1 ⁡ a ⁡ k ⁢ z k = ∑ k = 0 if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 coe 1 ⁡ a ⁡ k ⁢ z k
339 323 335 338 3eqtr3a ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A ∧ z ∈ ℂ → ∑ ℂ fld k ∈ ℕ 0 coe 1 ⁡ a ⁡ k ⁢ z k = ∑ k = 0 if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 coe 1 ⁡ a ⁡ k ⁢ z k
340 339 mpteq2dva ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → z ∈ ℂ ⟼ ∑ ℂ fld k ∈ ℕ 0 coe 1 ⁡ a ⁡ k ⁢ z k = z ∈ ℂ ⟼ ∑ k = 0 if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 coe 1 ⁡ a ⁡ k ⁢ z k
341 240 319 340 3eqtrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → E ⁡ a = z ∈ ℂ ⟼ ∑ k = 0 if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 coe 1 ⁡ a ⁡ k ⁢ z k
342 16 adantr ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → S ⊆ ℂ
343 elplyr ⊢ S ⊆ ℂ ∧ if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 ∈ ℕ 0 ∧ coe 1 ⁡ a : ℕ 0 ⟶ S → z ∈ ℂ ⟼ ∑ k = 0 if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 coe 1 ⁡ a ⁡ k ⁢ z k ∈ Poly ⁡ S
344 342 296 179 343 syl3anc ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → z ∈ ℂ ⟼ ∑ k = 0 if 0 ≤ deg 1 ⁡ ℂ fld ⁡ a deg 1 ⁡ ℂ fld ⁡ a 0 coe 1 ⁡ a ⁡ k ⁢ z k ∈ Poly ⁡ S
345 341 344 eqeltrd ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → E ⁡ a ∈ Poly ⁡ S
346 eleq1 ⊢ E ⁡ a = f → E ⁡ a ∈ Poly ⁡ S ↔ f ∈ Poly ⁡ S
347 345 346 syl5ibcom ⊢ S ∈ SubRing ⁡ ℂ fld ∧ a ∈ A → E ⁡ a = f → f ∈ Poly ⁡ S
348 347 rexlimdva ⊢ S ∈ SubRing ⁡ ℂ fld → ∃ a ∈ A E ⁡ a = f → f ∈ Poly ⁡ S
349 151 348 syl5 ⊢ S ∈ SubRing ⁡ ℂ fld → f ∈ E A → f ∈ Poly ⁡ S
350 147 349 impbid ⊢ S ∈ SubRing ⁡ ℂ fld → f ∈ Poly ⁡ S ↔ f ∈ E A
351 350 eqrdv ⊢ S ∈ SubRing ⁡ ℂ fld → Poly ⁡ S = E A