Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  rngunsnply Structured version   Visualization version   GIF version

Theorem rngunsnply 43158
Description: Adjoining one element to a ring results in a set of polynomial evaluations. (Contributed by Stefan O'Rear, 30-Nov-2014.)
Hypotheses
Ref Expression
rngunsnply.b (𝜑𝐵 ∈ (SubRing‘ℂfld))
rngunsnply.x (𝜑𝑋 ∈ ℂ)
rngunsnply.s (𝜑𝑆 = ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
Assertion
Ref Expression
rngunsnply (𝜑 → (𝑉𝑆 ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
Distinct variable groups:   𝜑,𝑝   𝐵,𝑝   𝑋,𝑝   𝑉,𝑝
Allowed substitution hint:   𝑆(𝑝)

Proof of Theorem rngunsnply
Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑒 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 rngunsnply.s . . 3 (𝜑𝑆 = ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
21eleq2d 2825 . 2 (𝜑 → (𝑉𝑆𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
3 cnring 21421 . . . . . . 7 fld ∈ Ring
43a1i 11 . . . . . 6 (𝜑 → ℂfld ∈ Ring)
5 cnfldbas 21386 . . . . . . 7 ℂ = (Base‘ℂfld)
65a1i 11 . . . . . 6 (𝜑 → ℂ = (Base‘ℂfld))
7 rngunsnply.b . . . . . . . 8 (𝜑𝐵 ∈ (SubRing‘ℂfld))
85subrgss 20589 . . . . . . . 8 (𝐵 ∈ (SubRing‘ℂfld) → 𝐵 ⊆ ℂ)
97, 8syl 17 . . . . . . 7 (𝜑𝐵 ⊆ ℂ)
10 rngunsnply.x . . . . . . . 8 (𝜑𝑋 ∈ ℂ)
1110snssd 4814 . . . . . . 7 (𝜑 → {𝑋} ⊆ ℂ)
129, 11unssd 4202 . . . . . 6 (𝜑 → (𝐵 ∪ {𝑋}) ⊆ ℂ)
13 eqidd 2736 . . . . . 6 (𝜑 → (RingSpan‘ℂfld) = (RingSpan‘ℂfld))
14 eqidd 2736 . . . . . 6 (𝜑 → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) = ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
15 eqidd 2736 . . . . . . 7 (𝜑 → (ℂflds {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) = (ℂflds {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}))
16 cnfld0 21423 . . . . . . . 8 0 = (0g‘ℂfld)
1716a1i 11 . . . . . . 7 (𝜑 → 0 = (0g‘ℂfld))
18 cnfldadd 21388 . . . . . . . 8 + = (+g‘ℂfld)
1918a1i 11 . . . . . . 7 (𝜑 → + = (+g‘ℂfld))
20 plyf 26252 . . . . . . . . . . . 12 (𝑝 ∈ (Poly‘𝐵) → 𝑝:ℂ⟶ℂ)
21 ffvelcdm 7101 . . . . . . . . . . . 12 ((𝑝:ℂ⟶ℂ ∧ 𝑋 ∈ ℂ) → (𝑝𝑋) ∈ ℂ)
2220, 10, 21syl2anr 597 . . . . . . . . . . 11 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑝𝑋) ∈ ℂ)
23 eleq1 2827 . . . . . . . . . . 11 (𝑎 = (𝑝𝑋) → (𝑎 ∈ ℂ ↔ (𝑝𝑋) ∈ ℂ))
2422, 23syl5ibrcom 247 . . . . . . . . . 10 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑎 = (𝑝𝑋) → 𝑎 ∈ ℂ))
2524rexlimdva 3153 . . . . . . . . 9 (𝜑 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) → 𝑎 ∈ ℂ))
2625ss2abdv 4076 . . . . . . . 8 (𝜑 → {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ⊆ {𝑎𝑎 ∈ ℂ})
27 abid2 2877 . . . . . . . . 9 {𝑎𝑎 ∈ ℂ} = ℂ
2827, 5eqtri 2763 . . . . . . . 8 {𝑎𝑎 ∈ ℂ} = (Base‘ℂfld)
2926, 28sseqtrdi 4046 . . . . . . 7 (𝜑 → {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ⊆ (Base‘ℂfld))
30 abid2 2877 . . . . . . . . 9 {𝑎𝑎𝐵} = 𝐵
31 plyconst 26260 . . . . . . . . . . . . 13 ((𝐵 ⊆ ℂ ∧ 𝑎𝐵) → (ℂ × {𝑎}) ∈ (Poly‘𝐵))
329, 31sylan 580 . . . . . . . . . . . 12 ((𝜑𝑎𝐵) → (ℂ × {𝑎}) ∈ (Poly‘𝐵))
3310adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑎𝐵) → 𝑋 ∈ ℂ)
34 vex 3482 . . . . . . . . . . . . . . 15 𝑎 ∈ V
3534fvconst2 7224 . . . . . . . . . . . . . 14 (𝑋 ∈ ℂ → ((ℂ × {𝑎})‘𝑋) = 𝑎)
3633, 35syl 17 . . . . . . . . . . . . 13 ((𝜑𝑎𝐵) → ((ℂ × {𝑎})‘𝑋) = 𝑎)
3736eqcomd 2741 . . . . . . . . . . . 12 ((𝜑𝑎𝐵) → 𝑎 = ((ℂ × {𝑎})‘𝑋))
38 fveq1 6906 . . . . . . . . . . . . 13 (𝑝 = (ℂ × {𝑎}) → (𝑝𝑋) = ((ℂ × {𝑎})‘𝑋))
3938rspceeqv 3645 . . . . . . . . . . . 12 (((ℂ × {𝑎}) ∈ (Poly‘𝐵) ∧ 𝑎 = ((ℂ × {𝑎})‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋))
4032, 37, 39syl2anc 584 . . . . . . . . . . 11 ((𝜑𝑎𝐵) → ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋))
4140ex 412 . . . . . . . . . 10 (𝜑 → (𝑎𝐵 → ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)))
4241ss2abdv 4076 . . . . . . . . 9 (𝜑 → {𝑎𝑎𝐵} ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
4330, 42eqsstrrid 4045 . . . . . . . 8 (𝜑𝐵 ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
44 subrgsubg 20594 . . . . . . . . . 10 (𝐵 ∈ (SubRing‘ℂfld) → 𝐵 ∈ (SubGrp‘ℂfld))
457, 44syl 17 . . . . . . . . 9 (𝜑𝐵 ∈ (SubGrp‘ℂfld))
4616subg0cl 19165 . . . . . . . . 9 (𝐵 ∈ (SubGrp‘ℂfld) → 0 ∈ 𝐵)
4745, 46syl 17 . . . . . . . 8 (𝜑 → 0 ∈ 𝐵)
4843, 47sseldd 3996 . . . . . . 7 (𝜑 → 0 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
49 biid 261 . . . . . . . . 9 (𝜑𝜑)
50 vex 3482 . . . . . . . . . 10 𝑏 ∈ V
51 eqeq1 2739 . . . . . . . . . . . 12 (𝑎 = 𝑏 → (𝑎 = (𝑝𝑋) ↔ 𝑏 = (𝑝𝑋)))
5251rexbidv 3177 . . . . . . . . . . 11 (𝑎 = 𝑏 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑏 = (𝑝𝑋)))
53 fveq1 6906 . . . . . . . . . . . . 13 (𝑝 = 𝑒 → (𝑝𝑋) = (𝑒𝑋))
5453eqeq2d 2746 . . . . . . . . . . . 12 (𝑝 = 𝑒 → (𝑏 = (𝑝𝑋) ↔ 𝑏 = (𝑒𝑋)))
5554cbvrexvw 3236 . . . . . . . . . . 11 (∃𝑝 ∈ (Poly‘𝐵)𝑏 = (𝑝𝑋) ↔ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋))
5652, 55bitrdi 287 . . . . . . . . . 10 (𝑎 = 𝑏 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋)))
5750, 56elab 3681 . . . . . . . . 9 (𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋))
58 vex 3482 . . . . . . . . . 10 𝑐 ∈ V
59 eqeq1 2739 . . . . . . . . . . . 12 (𝑎 = 𝑐 → (𝑎 = (𝑝𝑋) ↔ 𝑐 = (𝑝𝑋)))
6059rexbidv 3177 . . . . . . . . . . 11 (𝑎 = 𝑐 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑐 = (𝑝𝑋)))
61 fveq1 6906 . . . . . . . . . . . . 13 (𝑝 = 𝑑 → (𝑝𝑋) = (𝑑𝑋))
6261eqeq2d 2746 . . . . . . . . . . . 12 (𝑝 = 𝑑 → (𝑐 = (𝑝𝑋) ↔ 𝑐 = (𝑑𝑋)))
6362cbvrexvw 3236 . . . . . . . . . . 11 (∃𝑝 ∈ (Poly‘𝐵)𝑐 = (𝑝𝑋) ↔ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋))
6460, 63bitrdi 287 . . . . . . . . . 10 (𝑎 = 𝑐 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋)))
6558, 64elab 3681 . . . . . . . . 9 (𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋))
66 simplr 769 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑒 ∈ (Poly‘𝐵))
67 simpr 484 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑑 ∈ (Poly‘𝐵))
6818subrgacl 20600 . . . . . . . . . . . . . . . . . . . 20 ((𝐵 ∈ (SubRing‘ℂfld) ∧ 𝑎𝐵𝑏𝐵) → (𝑎 + 𝑏) ∈ 𝐵)
69683expb 1119 . . . . . . . . . . . . . . . . . . 19 ((𝐵 ∈ (SubRing‘ℂfld) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
707, 69sylan 580 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
7170adantlr 715 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
7271adantlr 715 . . . . . . . . . . . . . . . 16 ((((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
7366, 67, 72plyadd 26271 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑒f + 𝑑) ∈ (Poly‘𝐵))
74 plyf 26252 . . . . . . . . . . . . . . . . . . 19 (𝑒 ∈ (Poly‘𝐵) → 𝑒:ℂ⟶ℂ)
7574ffnd 6738 . . . . . . . . . . . . . . . . . 18 (𝑒 ∈ (Poly‘𝐵) → 𝑒 Fn ℂ)
7675ad2antlr 727 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑒 Fn ℂ)
77 plyf 26252 . . . . . . . . . . . . . . . . . . 19 (𝑑 ∈ (Poly‘𝐵) → 𝑑:ℂ⟶ℂ)
7877ffnd 6738 . . . . . . . . . . . . . . . . . 18 (𝑑 ∈ (Poly‘𝐵) → 𝑑 Fn ℂ)
7978adantl 481 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑑 Fn ℂ)
80 cnex 11234 . . . . . . . . . . . . . . . . . 18 ℂ ∈ V
8180a1i 11 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ℂ ∈ V)
8210ad2antrr 726 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑋 ∈ ℂ)
83 fnfvof 7714 . . . . . . . . . . . . . . . . 17 (((𝑒 Fn ℂ ∧ 𝑑 Fn ℂ) ∧ (ℂ ∈ V ∧ 𝑋 ∈ ℂ)) → ((𝑒f + 𝑑)‘𝑋) = ((𝑒𝑋) + (𝑑𝑋)))
8476, 79, 81, 82, 83syl22anc 839 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒f + 𝑑)‘𝑋) = ((𝑒𝑋) + (𝑑𝑋)))
8584eqcomd 2741 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒𝑋) + (𝑑𝑋)) = ((𝑒f + 𝑑)‘𝑋))
86 fveq1 6906 . . . . . . . . . . . . . . . 16 (𝑝 = (𝑒f + 𝑑) → (𝑝𝑋) = ((𝑒f + 𝑑)‘𝑋))
8786rspceeqv 3645 . . . . . . . . . . . . . . 15 (((𝑒f + 𝑑) ∈ (Poly‘𝐵) ∧ ((𝑒𝑋) + (𝑑𝑋)) = ((𝑒f + 𝑑)‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋))
8873, 85, 87syl2anc 584 . . . . . . . . . . . . . 14 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋))
89 oveq2 7439 . . . . . . . . . . . . . . . 16 (𝑐 = (𝑑𝑋) → ((𝑒𝑋) + 𝑐) = ((𝑒𝑋) + (𝑑𝑋)))
9089eqeq1d 2737 . . . . . . . . . . . . . . 15 (𝑐 = (𝑑𝑋) → (((𝑒𝑋) + 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋)))
9190rexbidv 3177 . . . . . . . . . . . . . 14 (𝑐 = (𝑑𝑋) → (∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋)))
9288, 91syl5ibrcom 247 . . . . . . . . . . . . 13 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
9392rexlimdva 3153 . . . . . . . . . . . 12 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
94 oveq1 7438 . . . . . . . . . . . . . . 15 (𝑏 = (𝑒𝑋) → (𝑏 + 𝑐) = ((𝑒𝑋) + 𝑐))
9594eqeq1d 2737 . . . . . . . . . . . . . 14 (𝑏 = (𝑒𝑋) → ((𝑏 + 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
9695rexbidv 3177 . . . . . . . . . . . . 13 (𝑏 = (𝑒𝑋) → (∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
9796imbi2d 340 . . . . . . . . . . . 12 (𝑏 = (𝑒𝑋) → ((∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋)) ↔ (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋))))
9893, 97syl5ibrcom 247 . . . . . . . . . . 11 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))))
9998rexlimdva 3153 . . . . . . . . . 10 (𝜑 → (∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))))
100993imp 1110 . . . . . . . . 9 ((𝜑 ∧ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) ∧ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))
10149, 57, 65, 100syl3anb 1160 . . . . . . . 8 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))
102 ovex 7464 . . . . . . . . 9 (𝑏 + 𝑐) ∈ V
103 eqeq1 2739 . . . . . . . . . 10 (𝑎 = (𝑏 + 𝑐) → (𝑎 = (𝑝𝑋) ↔ (𝑏 + 𝑐) = (𝑝𝑋)))
104103rexbidv 3177 . . . . . . . . 9 (𝑎 = (𝑏 + 𝑐) → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋)))
105102, 104elab 3681 . . . . . . . 8 ((𝑏 + 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))
106101, 105sylibr 234 . . . . . . 7 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → (𝑏 + 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
107 ax-1cn 11211 . . . . . . . . . . . . . . . . . 18 1 ∈ ℂ
108 cnfldneg 21426 . . . . . . . . . . . . . . . . . 18 (1 ∈ ℂ → ((invg‘ℂfld)‘1) = -1)
109107, 108mp1i 13 . . . . . . . . . . . . . . . . 17 (𝜑 → ((invg‘ℂfld)‘1) = -1)
110 cnfld1 21424 . . . . . . . . . . . . . . . . . . . 20 1 = (1r‘ℂfld)
111110subrg1cl 20597 . . . . . . . . . . . . . . . . . . 19 (𝐵 ∈ (SubRing‘ℂfld) → 1 ∈ 𝐵)
1127, 111syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → 1 ∈ 𝐵)
113 eqid 2735 . . . . . . . . . . . . . . . . . . 19 (invg‘ℂfld) = (invg‘ℂfld)
114113subginvcl 19166 . . . . . . . . . . . . . . . . . 18 ((𝐵 ∈ (SubGrp‘ℂfld) ∧ 1 ∈ 𝐵) → ((invg‘ℂfld)‘1) ∈ 𝐵)
11545, 112, 114syl2anc 584 . . . . . . . . . . . . . . . . 17 (𝜑 → ((invg‘ℂfld)‘1) ∈ 𝐵)
116109, 115eqeltrrd 2840 . . . . . . . . . . . . . . . 16 (𝜑 → -1 ∈ 𝐵)
117 plyconst 26260 . . . . . . . . . . . . . . . 16 ((𝐵 ⊆ ℂ ∧ -1 ∈ 𝐵) → (ℂ × {-1}) ∈ (Poly‘𝐵))
1189, 116, 117syl2anc 584 . . . . . . . . . . . . . . 15 (𝜑 → (ℂ × {-1}) ∈ (Poly‘𝐵))
119118adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (ℂ × {-1}) ∈ (Poly‘𝐵))
120 simpr 484 . . . . . . . . . . . . . 14 ((𝜑𝑒 ∈ (Poly‘𝐵)) → 𝑒 ∈ (Poly‘𝐵))
121 cnfldmul 21390 . . . . . . . . . . . . . . . . . 18 · = (.r‘ℂfld)
122121subrgmcl 20601 . . . . . . . . . . . . . . . . 17 ((𝐵 ∈ (SubRing‘ℂfld) ∧ 𝑎𝐵𝑏𝐵) → (𝑎 · 𝑏) ∈ 𝐵)
1231223expb 1119 . . . . . . . . . . . . . . . 16 ((𝐵 ∈ (SubRing‘ℂfld) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
1247, 123sylan 580 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
125124adantlr 715 . . . . . . . . . . . . . 14 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
126119, 120, 71, 125plymul 26272 . . . . . . . . . . . . 13 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((ℂ × {-1}) ∘f · 𝑒) ∈ (Poly‘𝐵))
127 ffvelcdm 7101 . . . . . . . . . . . . . . . 16 ((𝑒:ℂ⟶ℂ ∧ 𝑋 ∈ ℂ) → (𝑒𝑋) ∈ ℂ)
12874, 10, 127syl2anr 597 . . . . . . . . . . . . . . 15 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑒𝑋) ∈ ℂ)
129 cnfldneg 21426 . . . . . . . . . . . . . . 15 ((𝑒𝑋) ∈ ℂ → ((invg‘ℂfld)‘(𝑒𝑋)) = -(𝑒𝑋))
130128, 129syl 17 . . . . . . . . . . . . . 14 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((invg‘ℂfld)‘(𝑒𝑋)) = -(𝑒𝑋))
131 negex 11504 . . . . . . . . . . . . . . . . 17 -1 ∈ V
132 fnconstg 6797 . . . . . . . . . . . . . . . . 17 (-1 ∈ V → (ℂ × {-1}) Fn ℂ)
133131, 132mp1i 13 . . . . . . . . . . . . . . . 16 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (ℂ × {-1}) Fn ℂ)
13475adantl 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑒 ∈ (Poly‘𝐵)) → 𝑒 Fn ℂ)
13580a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ℂ ∈ V)
13610adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝑒 ∈ (Poly‘𝐵)) → 𝑋 ∈ ℂ)
137 fnfvof 7714 . . . . . . . . . . . . . . . 16 ((((ℂ × {-1}) Fn ℂ ∧ 𝑒 Fn ℂ) ∧ (ℂ ∈ V ∧ 𝑋 ∈ ℂ)) → (((ℂ × {-1}) ∘f · 𝑒)‘𝑋) = (((ℂ × {-1})‘𝑋) · (𝑒𝑋)))
138133, 134, 135, 136, 137syl22anc 839 . . . . . . . . . . . . . . 15 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (((ℂ × {-1}) ∘f · 𝑒)‘𝑋) = (((ℂ × {-1})‘𝑋) · (𝑒𝑋)))
139131fvconst2 7224 . . . . . . . . . . . . . . . . 17 (𝑋 ∈ ℂ → ((ℂ × {-1})‘𝑋) = -1)
140136, 139syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((ℂ × {-1})‘𝑋) = -1)
141140oveq1d 7446 . . . . . . . . . . . . . . 15 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (((ℂ × {-1})‘𝑋) · (𝑒𝑋)) = (-1 · (𝑒𝑋)))
142128mulm1d 11713 . . . . . . . . . . . . . . 15 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (-1 · (𝑒𝑋)) = -(𝑒𝑋))
143138, 141, 1423eqtrd 2779 . . . . . . . . . . . . . 14 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (((ℂ × {-1}) ∘f · 𝑒)‘𝑋) = -(𝑒𝑋))
144130, 143eqtr4d 2778 . . . . . . . . . . . . 13 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((invg‘ℂfld)‘(𝑒𝑋)) = (((ℂ × {-1}) ∘f · 𝑒)‘𝑋))
145 fveq1 6906 . . . . . . . . . . . . . 14 (𝑝 = ((ℂ × {-1}) ∘f · 𝑒) → (𝑝𝑋) = (((ℂ × {-1}) ∘f · 𝑒)‘𝑋))
146145rspceeqv 3645 . . . . . . . . . . . . 13 ((((ℂ × {-1}) ∘f · 𝑒) ∈ (Poly‘𝐵) ∧ ((invg‘ℂfld)‘(𝑒𝑋)) = (((ℂ × {-1}) ∘f · 𝑒)‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋))
147126, 144, 146syl2anc 584 . . . . . . . . . . . 12 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋))
148 fveqeq2 6916 . . . . . . . . . . . . 13 (𝑏 = (𝑒𝑋) → (((invg‘ℂfld)‘𝑏) = (𝑝𝑋) ↔ ((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋)))
149148rexbidv 3177 . . . . . . . . . . . 12 (𝑏 = (𝑒𝑋) → (∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋)))
150147, 149syl5ibrcom 247 . . . . . . . . . . 11 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑏 = (𝑒𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
151150rexlimdva 3153 . . . . . . . . . 10 (𝜑 → (∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
152151imp 406 . . . . . . . . 9 ((𝜑 ∧ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋))
15357, 152sylan2b 594 . . . . . . . 8 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋))
154 fvex 6920 . . . . . . . . 9 ((invg‘ℂfld)‘𝑏) ∈ V
155 eqeq1 2739 . . . . . . . . . 10 (𝑎 = ((invg‘ℂfld)‘𝑏) → (𝑎 = (𝑝𝑋) ↔ ((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
156155rexbidv 3177 . . . . . . . . 9 (𝑎 = ((invg‘ℂfld)‘𝑏) → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
157154, 156elab 3681 . . . . . . . 8 (((invg‘ℂfld)‘𝑏) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋))
158153, 157sylibr 234 . . . . . . 7 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ((invg‘ℂfld)‘𝑏) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
159110a1i 11 . . . . . . 7 (𝜑 → 1 = (1r‘ℂfld))
160121a1i 11 . . . . . . 7 (𝜑 → · = (.r‘ℂfld))
16143, 112sseldd 3996 . . . . . . 7 (𝜑 → 1 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
162125adantlr 715 . . . . . . . . . . . . . . . 16 ((((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
16366, 67, 72, 162plymul 26272 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑒f · 𝑑) ∈ (Poly‘𝐵))
164 fnfvof 7714 . . . . . . . . . . . . . . . . 17 (((𝑒 Fn ℂ ∧ 𝑑 Fn ℂ) ∧ (ℂ ∈ V ∧ 𝑋 ∈ ℂ)) → ((𝑒f · 𝑑)‘𝑋) = ((𝑒𝑋) · (𝑑𝑋)))
16576, 79, 81, 82, 164syl22anc 839 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒f · 𝑑)‘𝑋) = ((𝑒𝑋) · (𝑑𝑋)))
166165eqcomd 2741 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒𝑋) · (𝑑𝑋)) = ((𝑒f · 𝑑)‘𝑋))
167 fveq1 6906 . . . . . . . . . . . . . . . 16 (𝑝 = (𝑒f · 𝑑) → (𝑝𝑋) = ((𝑒f · 𝑑)‘𝑋))
168167rspceeqv 3645 . . . . . . . . . . . . . . 15 (((𝑒f · 𝑑) ∈ (Poly‘𝐵) ∧ ((𝑒𝑋) · (𝑑𝑋)) = ((𝑒f · 𝑑)‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋))
169163, 166, 168syl2anc 584 . . . . . . . . . . . . . 14 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋))
170 oveq2 7439 . . . . . . . . . . . . . . . 16 (𝑐 = (𝑑𝑋) → ((𝑒𝑋) · 𝑐) = ((𝑒𝑋) · (𝑑𝑋)))
171170eqeq1d 2737 . . . . . . . . . . . . . . 15 (𝑐 = (𝑑𝑋) → (((𝑒𝑋) · 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋)))
172171rexbidv 3177 . . . . . . . . . . . . . 14 (𝑐 = (𝑑𝑋) → (∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋)))
173169, 172syl5ibrcom 247 . . . . . . . . . . . . 13 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
174173rexlimdva 3153 . . . . . . . . . . . 12 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
175 oveq1 7438 . . . . . . . . . . . . . . 15 (𝑏 = (𝑒𝑋) → (𝑏 · 𝑐) = ((𝑒𝑋) · 𝑐))
176175eqeq1d 2737 . . . . . . . . . . . . . 14 (𝑏 = (𝑒𝑋) → ((𝑏 · 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
177176rexbidv 3177 . . . . . . . . . . . . 13 (𝑏 = (𝑒𝑋) → (∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
178177imbi2d 340 . . . . . . . . . . . 12 (𝑏 = (𝑒𝑋) → ((∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋)) ↔ (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋))))
179174, 178syl5ibrcom 247 . . . . . . . . . . 11 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))))
180179rexlimdva 3153 . . . . . . . . . 10 (𝜑 → (∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))))
1811803imp 1110 . . . . . . . . 9 ((𝜑 ∧ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) ∧ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))
18249, 57, 65, 181syl3anb 1160 . . . . . . . 8 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))
183 ovex 7464 . . . . . . . . 9 (𝑏 · 𝑐) ∈ V
184 eqeq1 2739 . . . . . . . . . 10 (𝑎 = (𝑏 · 𝑐) → (𝑎 = (𝑝𝑋) ↔ (𝑏 · 𝑐) = (𝑝𝑋)))
185184rexbidv 3177 . . . . . . . . 9 (𝑎 = (𝑏 · 𝑐) → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋)))
186183, 185elab 3681 . . . . . . . 8 ((𝑏 · 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))
187182, 186sylibr 234 . . . . . . 7 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → (𝑏 · 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
18815, 17, 19, 29, 48, 106, 158, 159, 160, 161, 187, 4issubrgd 21214 . . . . . 6 (𝜑 → {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∈ (SubRing‘ℂfld))
189 plyid 26263 . . . . . . . . . . 11 ((𝐵 ⊆ ℂ ∧ 1 ∈ 𝐵) → Xp ∈ (Poly‘𝐵))
1909, 112, 189syl2anc 584 . . . . . . . . . 10 (𝜑Xp ∈ (Poly‘𝐵))
191 df-idp 26243 . . . . . . . . . . . 12 Xp = ( I ↾ ℂ)
192191fveq1i 6908 . . . . . . . . . . 11 (Xp𝑋) = (( I ↾ ℂ)‘𝑋)
193 fvresi 7193 . . . . . . . . . . . 12 (𝑋 ∈ ℂ → (( I ↾ ℂ)‘𝑋) = 𝑋)
19410, 193syl 17 . . . . . . . . . . 11 (𝜑 → (( I ↾ ℂ)‘𝑋) = 𝑋)
195192, 194eqtr2id 2788 . . . . . . . . . 10 (𝜑𝑋 = (Xp𝑋))
196 fveq1 6906 . . . . . . . . . . 11 (𝑝 = Xp → (𝑝𝑋) = (Xp𝑋))
197196rspceeqv 3645 . . . . . . . . . 10 ((Xp ∈ (Poly‘𝐵) ∧ 𝑋 = (Xp𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋))
198190, 195, 197syl2anc 584 . . . . . . . . 9 (𝜑 → ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋))
199 eqeq1 2739 . . . . . . . . . 10 (𝑎 = 𝑋 → (𝑎 = (𝑝𝑋) ↔ 𝑋 = (𝑝𝑋)))
200199rexbidv 3177 . . . . . . . . 9 (𝑎 = 𝑋 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋)))
20110, 198, 200elabd 3684 . . . . . . . 8 (𝜑𝑋 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
202201snssd 4814 . . . . . . 7 (𝜑 → {𝑋} ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
20343, 202unssd 4202 . . . . . 6 (𝜑 → (𝐵 ∪ {𝑋}) ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
2044, 6, 12, 13, 14, 188, 203rgspnmin 20632 . . . . 5 (𝜑 → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
205204sseld 3994 . . . 4 (𝜑 → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) → 𝑉 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}))
206 fvex 6920 . . . . . . 7 (𝑝𝑋) ∈ V
207 eleq1 2827 . . . . . . 7 (𝑉 = (𝑝𝑋) → (𝑉 ∈ V ↔ (𝑝𝑋) ∈ V))
208206, 207mpbiri 258 . . . . . 6 (𝑉 = (𝑝𝑋) → 𝑉 ∈ V)
209208rexlimivw 3149 . . . . 5 (∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋) → 𝑉 ∈ V)
210 eqeq1 2739 . . . . . 6 (𝑎 = 𝑉 → (𝑎 = (𝑝𝑋) ↔ 𝑉 = (𝑝𝑋)))
211210rexbidv 3177 . . . . 5 (𝑎 = 𝑉 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
212209, 211elab3 3689 . . . 4 (𝑉 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋))
213205, 212imbitrdi 251 . . 3 (𝜑 → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) → ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
2144, 6, 12, 13, 14rgspncl 20630 . . . . . . 7 (𝜑 → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ∈ (SubRing‘ℂfld))
215214adantr 480 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ∈ (SubRing‘ℂfld))
216 simpr 484 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → 𝑝 ∈ (Poly‘𝐵))
2174, 6, 12, 13, 14rgspnssid 20631 . . . . . . . . 9 (𝜑 → (𝐵 ∪ {𝑋}) ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
218217unssbd 4204 . . . . . . . 8 (𝜑 → {𝑋} ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
219 snidg 4665 . . . . . . . . 9 (𝑋 ∈ ℂ → 𝑋 ∈ {𝑋})
22010, 219syl 17 . . . . . . . 8 (𝜑𝑋 ∈ {𝑋})
221218, 220sseldd 3996 . . . . . . 7 (𝜑𝑋 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
222221adantr 480 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → 𝑋 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
223217unssad 4203 . . . . . . 7 (𝜑𝐵 ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
224223adantr 480 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → 𝐵 ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
225215, 216, 222, 224cnsrplycl 43156 . . . . 5 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑝𝑋) ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
226 eleq1 2827 . . . . 5 (𝑉 = (𝑝𝑋) → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ↔ (𝑝𝑋) ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
227225, 226syl5ibrcom 247 . . . 4 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑉 = (𝑝𝑋) → 𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
228227rexlimdva 3153 . . 3 (𝜑 → (∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋) → 𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
229213, 228impbid 212 . 2 (𝜑 → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
2302, 229bitrd 279 1 (𝜑 → (𝑉𝑆 ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1086   = wceq 1537  wcel 2106  {cab 2712  wrex 3068  Vcvv 3478  cun 3961  wss 3963  {csn 4631   I cid 5582   × cxp 5687  cres 5691   Fn wfn 6558  wf 6559  cfv 6563  (class class class)co 7431  f cof 7695  cc 11151  0cc0 11153  1c1 11154   + caddc 11156   · cmul 11158  -cneg 11491  Basecbs 17245  s cress 17274  +gcplusg 17298  .rcmulr 17299  0gc0g 17486  invgcminusg 18965  SubGrpcsubg 19151  1rcur 20199  Ringcrg 20251  SubRingcsubrg 20586  RingSpancrgspn 20627  fldccnfld 21382  Polycply 26238  Xpcidp 26239
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-rep 5285  ax-sep 5302  ax-nul 5312  ax-pow 5371  ax-pr 5438  ax-un 7754  ax-inf2 9679  ax-cnex 11209  ax-resscn 11210  ax-1cn 11211  ax-icn 11212  ax-addcl 11213  ax-addrcl 11214  ax-mulcl 11215  ax-mulrcl 11216  ax-mulcom 11217  ax-addass 11218  ax-mulass 11219  ax-distr 11220  ax-i2m1 11221  ax-1ne0 11222  ax-1rid 11223  ax-rnegex 11224  ax-rrecex 11225  ax-cnre 11226  ax-pre-lttri 11227  ax-pre-lttrn 11228  ax-pre-ltadd 11229  ax-pre-mulgt0 11230  ax-pre-sup 11231  ax-addf 11232  ax-mulf 11233
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ne 2939  df-nel 3045  df-ral 3060  df-rex 3069  df-rmo 3378  df-reu 3379  df-rab 3434  df-v 3480  df-sbc 3792  df-csb 3909  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-pss 3983  df-nul 4340  df-if 4532  df-pw 4607  df-sn 4632  df-pr 4634  df-tp 4636  df-op 4638  df-uni 4913  df-int 4952  df-iun 4998  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5583  df-eprel 5589  df-po 5597  df-so 5598  df-fr 5641  df-se 5642  df-we 5643  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-dm 5699  df-rn 5700  df-res 5701  df-ima 5702  df-pred 6323  df-ord 6389  df-on 6390  df-lim 6391  df-suc 6392  df-iota 6516  df-fun 6565  df-fn 6566  df-f 6567  df-f1 6568  df-fo 6569  df-f1o 6570  df-fv 6571  df-isom 6572  df-riota 7388  df-ov 7434  df-oprab 7435  df-mpo 7436  df-of 7697  df-om 7888  df-1st 8013  df-2nd 8014  df-frecs 8305  df-wrecs 8336  df-recs 8410  df-rdg 8449  df-1o 8505  df-er 8744  df-map 8867  df-pm 8868  df-en 8985  df-dom 8986  df-sdom 8987  df-fin 8988  df-sup 9480  df-inf 9481  df-oi 9548  df-card 9977  df-pnf 11295  df-mnf 11296  df-xr 11297  df-ltxr 11298  df-le 11299  df-sub 11492  df-neg 11493  df-div 11919  df-nn 12265  df-2 12327  df-3 12328  df-4 12329  df-5 12330  df-6 12331  df-7 12332  df-8 12333  df-9 12334  df-n0 12525  df-z 12612  df-dec 12732  df-uz 12877  df-rp 13033  df-fz 13545  df-fzo 13692  df-fl 13829  df-seq 14040  df-exp 14100  df-hash 14367  df-cj 15135  df-re 15136  df-im 15137  df-sqrt 15271  df-abs 15272  df-clim 15521  df-rlim 15522  df-sum 15720  df-struct 17181  df-sets 17198  df-slot 17216  df-ndx 17228  df-base 17246  df-ress 17275  df-plusg 17311  df-mulr 17312  df-starv 17313  df-tset 17317  df-ple 17318  df-ds 17320  df-unif 17321  df-0g 17488  df-mgm 18666  df-sgrp 18745  df-mnd 18761  df-grp 18967  df-minusg 18968  df-subg 19154  df-cmn 19815  df-abl 19816  df-mgp 20153  df-rng 20171  df-ur 20200  df-ring 20253  df-cring 20254  df-subrng 20563  df-subrg 20587  df-rgspn 20628  df-cnfld 21383  df-0p 25719  df-ply 26242  df-idp 26243  df-coe 26244  df-dgr 26245
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator