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 43181
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 2827 . 2 (𝜑 → (𝑉𝑆𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
3 cnring 21403 . . . . . . 7 fld ∈ Ring
43a1i 11 . . . . . 6 (𝜑 → ℂfld ∈ Ring)
5 cnfldbas 21368 . . . . . . 7 ℂ = (Base‘ℂfld)
65a1i 11 . . . . . 6 (𝜑 → ℂ = (Base‘ℂfld))
7 rngunsnply.b . . . . . . . 8 (𝜑𝐵 ∈ (SubRing‘ℂfld))
85subrgss 20572 . . . . . . . 8 (𝐵 ∈ (SubRing‘ℂfld) → 𝐵 ⊆ ℂ)
97, 8syl 17 . . . . . . 7 (𝜑𝐵 ⊆ ℂ)
10 rngunsnply.x . . . . . . . 8 (𝜑𝑋 ∈ ℂ)
1110snssd 4809 . . . . . . 7 (𝜑 → {𝑋} ⊆ ℂ)
129, 11unssd 4192 . . . . . 6 (𝜑 → (𝐵 ∪ {𝑋}) ⊆ ℂ)
13 eqidd 2738 . . . . . 6 (𝜑 → (RingSpan‘ℂfld) = (RingSpan‘ℂfld))
14 eqidd 2738 . . . . . 6 (𝜑 → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) = ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
15 eqidd 2738 . . . . . . 7 (𝜑 → (ℂflds {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) = (ℂflds {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}))
16 cnfld0 21405 . . . . . . . 8 0 = (0g‘ℂfld)
1716a1i 11 . . . . . . 7 (𝜑 → 0 = (0g‘ℂfld))
18 cnfldadd 21370 . . . . . . . 8 + = (+g‘ℂfld)
1918a1i 11 . . . . . . 7 (𝜑 → + = (+g‘ℂfld))
20 plyf 26237 . . . . . . . . . . . 12 (𝑝 ∈ (Poly‘𝐵) → 𝑝:ℂ⟶ℂ)
21 ffvelcdm 7101 . . . . . . . . . . . 12 ((𝑝:ℂ⟶ℂ ∧ 𝑋 ∈ ℂ) → (𝑝𝑋) ∈ ℂ)
2220, 10, 21syl2anr 597 . . . . . . . . . . 11 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑝𝑋) ∈ ℂ)
23 eleq1 2829 . . . . . . . . . . 11 (𝑎 = (𝑝𝑋) → (𝑎 ∈ ℂ ↔ (𝑝𝑋) ∈ ℂ))
2422, 23syl5ibrcom 247 . . . . . . . . . 10 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑎 = (𝑝𝑋) → 𝑎 ∈ ℂ))
2524rexlimdva 3155 . . . . . . . . 9 (𝜑 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) → 𝑎 ∈ ℂ))
2625ss2abdv 4066 . . . . . . . 8 (𝜑 → {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ⊆ {𝑎𝑎 ∈ ℂ})
27 abid2 2879 . . . . . . . . 9 {𝑎𝑎 ∈ ℂ} = ℂ
2827, 5eqtri 2765 . . . . . . . 8 {𝑎𝑎 ∈ ℂ} = (Base‘ℂfld)
2926, 28sseqtrdi 4024 . . . . . . 7 (𝜑 → {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ⊆ (Base‘ℂfld))
30 abid2 2879 . . . . . . . . 9 {𝑎𝑎𝐵} = 𝐵
31 plyconst 26245 . . . . . . . . . . . . 13 ((𝐵 ⊆ ℂ ∧ 𝑎𝐵) → (ℂ × {𝑎}) ∈ (Poly‘𝐵))
329, 31sylan 580 . . . . . . . . . . . 12 ((𝜑𝑎𝐵) → (ℂ × {𝑎}) ∈ (Poly‘𝐵))
3310adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑎𝐵) → 𝑋 ∈ ℂ)
34 vex 3484 . . . . . . . . . . . . . . 15 𝑎 ∈ V
3534fvconst2 7224 . . . . . . . . . . . . . 14 (𝑋 ∈ ℂ → ((ℂ × {𝑎})‘𝑋) = 𝑎)
3633, 35syl 17 . . . . . . . . . . . . 13 ((𝜑𝑎𝐵) → ((ℂ × {𝑎})‘𝑋) = 𝑎)
3736eqcomd 2743 . . . . . . . . . . . 12 ((𝜑𝑎𝐵) → 𝑎 = ((ℂ × {𝑎})‘𝑋))
38 fveq1 6905 . . . . . . . . . . . . 13 (𝑝 = (ℂ × {𝑎}) → (𝑝𝑋) = ((ℂ × {𝑎})‘𝑋))
3938rspceeqv 3645 . . . . . . . . . . . 12 (((ℂ × {𝑎}) ∈ (Poly‘𝐵) ∧ 𝑎 = ((ℂ × {𝑎})‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋))
4032, 37, 39syl2anc 584 . . . . . . . . . . 11 ((𝜑𝑎𝐵) → ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋))
4140ex 412 . . . . . . . . . 10 (𝜑 → (𝑎𝐵 → ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)))
4241ss2abdv 4066 . . . . . . . . 9 (𝜑 → {𝑎𝑎𝐵} ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
4330, 42eqsstrrid 4023 . . . . . . . 8 (𝜑𝐵 ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
44 subrgsubg 20577 . . . . . . . . . 10 (𝐵 ∈ (SubRing‘ℂfld) → 𝐵 ∈ (SubGrp‘ℂfld))
457, 44syl 17 . . . . . . . . 9 (𝜑𝐵 ∈ (SubGrp‘ℂfld))
4616subg0cl 19152 . . . . . . . . 9 (𝐵 ∈ (SubGrp‘ℂfld) → 0 ∈ 𝐵)
4745, 46syl 17 . . . . . . . 8 (𝜑 → 0 ∈ 𝐵)
4843, 47sseldd 3984 . . . . . . 7 (𝜑 → 0 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
49 biid 261 . . . . . . . . 9 (𝜑𝜑)
50 vex 3484 . . . . . . . . . 10 𝑏 ∈ V
51 eqeq1 2741 . . . . . . . . . . . 12 (𝑎 = 𝑏 → (𝑎 = (𝑝𝑋) ↔ 𝑏 = (𝑝𝑋)))
5251rexbidv 3179 . . . . . . . . . . 11 (𝑎 = 𝑏 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑏 = (𝑝𝑋)))
53 fveq1 6905 . . . . . . . . . . . . 13 (𝑝 = 𝑒 → (𝑝𝑋) = (𝑒𝑋))
5453eqeq2d 2748 . . . . . . . . . . . 12 (𝑝 = 𝑒 → (𝑏 = (𝑝𝑋) ↔ 𝑏 = (𝑒𝑋)))
5554cbvrexvw 3238 . . . . . . . . . . 11 (∃𝑝 ∈ (Poly‘𝐵)𝑏 = (𝑝𝑋) ↔ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋))
5652, 55bitrdi 287 . . . . . . . . . 10 (𝑎 = 𝑏 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋)))
5750, 56elab 3679 . . . . . . . . 9 (𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋))
58 vex 3484 . . . . . . . . . 10 𝑐 ∈ V
59 eqeq1 2741 . . . . . . . . . . . 12 (𝑎 = 𝑐 → (𝑎 = (𝑝𝑋) ↔ 𝑐 = (𝑝𝑋)))
6059rexbidv 3179 . . . . . . . . . . 11 (𝑎 = 𝑐 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑐 = (𝑝𝑋)))
61 fveq1 6905 . . . . . . . . . . . . 13 (𝑝 = 𝑑 → (𝑝𝑋) = (𝑑𝑋))
6261eqeq2d 2748 . . . . . . . . . . . 12 (𝑝 = 𝑑 → (𝑐 = (𝑝𝑋) ↔ 𝑐 = (𝑑𝑋)))
6362cbvrexvw 3238 . . . . . . . . . . 11 (∃𝑝 ∈ (Poly‘𝐵)𝑐 = (𝑝𝑋) ↔ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋))
6460, 63bitrdi 287 . . . . . . . . . 10 (𝑎 = 𝑐 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋)))
6558, 64elab 3679 . . . . . . . . 9 (𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋))
66 simplr 769 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑒 ∈ (Poly‘𝐵))
67 simpr 484 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑑 ∈ (Poly‘𝐵))
6818subrgacl 20583 . . . . . . . . . . . . . . . . . . . 20 ((𝐵 ∈ (SubRing‘ℂfld) ∧ 𝑎𝐵𝑏𝐵) → (𝑎 + 𝑏) ∈ 𝐵)
69683expb 1121 . . . . . . . . . . . . . . . . . . 19 ((𝐵 ∈ (SubRing‘ℂfld) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
707, 69sylan 580 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
7170adantlr 715 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
7271adantlr 715 . . . . . . . . . . . . . . . 16 ((((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
7366, 67, 72plyadd 26256 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑒f + 𝑑) ∈ (Poly‘𝐵))
74 plyf 26237 . . . . . . . . . . . . . . . . . . 19 (𝑒 ∈ (Poly‘𝐵) → 𝑒:ℂ⟶ℂ)
7574ffnd 6737 . . . . . . . . . . . . . . . . . 18 (𝑒 ∈ (Poly‘𝐵) → 𝑒 Fn ℂ)
7675ad2antlr 727 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑒 Fn ℂ)
77 plyf 26237 . . . . . . . . . . . . . . . . . . 19 (𝑑 ∈ (Poly‘𝐵) → 𝑑:ℂ⟶ℂ)
7877ffnd 6737 . . . . . . . . . . . . . . . . . 18 (𝑑 ∈ (Poly‘𝐵) → 𝑑 Fn ℂ)
7978adantl 481 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑑 Fn ℂ)
80 cnex 11236 . . . . . . . . . . . . . . . . . 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 2743 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒𝑋) + (𝑑𝑋)) = ((𝑒f + 𝑑)‘𝑋))
86 fveq1 6905 . . . . . . . . . . . . . . . 16 (𝑝 = (𝑒f + 𝑑) → (𝑝𝑋) = ((𝑒f + 𝑑)‘𝑋))
8786rspceeqv 3645 . . . . . . . . . . . . . . 15 (((𝑒f + 𝑑) ∈ (Poly‘𝐵) ∧ ((𝑒𝑋) + (𝑑𝑋)) = ((𝑒f + 𝑑)‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋))
8873, 85, 87syl2anc 584 . . . . . . . . . . . . . 14 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋))
89 oveq2 7439 . . . . . . . . . . . . . . . 16 (𝑐 = (𝑑𝑋) → ((𝑒𝑋) + 𝑐) = ((𝑒𝑋) + (𝑑𝑋)))
9089eqeq1d 2739 . . . . . . . . . . . . . . 15 (𝑐 = (𝑑𝑋) → (((𝑒𝑋) + 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋)))
9190rexbidv 3179 . . . . . . . . . . . . . 14 (𝑐 = (𝑑𝑋) → (∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋)))
9288, 91syl5ibrcom 247 . . . . . . . . . . . . 13 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
9392rexlimdva 3155 . . . . . . . . . . . 12 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
94 oveq1 7438 . . . . . . . . . . . . . . 15 (𝑏 = (𝑒𝑋) → (𝑏 + 𝑐) = ((𝑒𝑋) + 𝑐))
9594eqeq1d 2739 . . . . . . . . . . . . . 14 (𝑏 = (𝑒𝑋) → ((𝑏 + 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
9695rexbidv 3179 . . . . . . . . . . . . 13 (𝑏 = (𝑒𝑋) → (∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
9796imbi2d 340 . . . . . . . . . . . 12 (𝑏 = (𝑒𝑋) → ((∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋)) ↔ (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋))))
9893, 97syl5ibrcom 247 . . . . . . . . . . 11 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))))
9998rexlimdva 3155 . . . . . . . . . 10 (𝜑 → (∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))))
100993imp 1111 . . . . . . . . 9 ((𝜑 ∧ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) ∧ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))
10149, 57, 65, 100syl3anb 1162 . . . . . . . 8 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))
102 ovex 7464 . . . . . . . . 9 (𝑏 + 𝑐) ∈ V
103 eqeq1 2741 . . . . . . . . . 10 (𝑎 = (𝑏 + 𝑐) → (𝑎 = (𝑝𝑋) ↔ (𝑏 + 𝑐) = (𝑝𝑋)))
104103rexbidv 3179 . . . . . . . . 9 (𝑎 = (𝑏 + 𝑐) → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋)))
105102, 104elab 3679 . . . . . . . 8 ((𝑏 + 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))
106101, 105sylibr 234 . . . . . . 7 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → (𝑏 + 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
107 ax-1cn 11213 . . . . . . . . . . . . . . . . . 18 1 ∈ ℂ
108 cnfldneg 21408 . . . . . . . . . . . . . . . . . 18 (1 ∈ ℂ → ((invg‘ℂfld)‘1) = -1)
109107, 108mp1i 13 . . . . . . . . . . . . . . . . 17 (𝜑 → ((invg‘ℂfld)‘1) = -1)
110 cnfld1 21406 . . . . . . . . . . . . . . . . . . . 20 1 = (1r‘ℂfld)
111110subrg1cl 20580 . . . . . . . . . . . . . . . . . . 19 (𝐵 ∈ (SubRing‘ℂfld) → 1 ∈ 𝐵)
1127, 111syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → 1 ∈ 𝐵)
113 eqid 2737 . . . . . . . . . . . . . . . . . . 19 (invg‘ℂfld) = (invg‘ℂfld)
114113subginvcl 19153 . . . . . . . . . . . . . . . . . 18 ((𝐵 ∈ (SubGrp‘ℂfld) ∧ 1 ∈ 𝐵) → ((invg‘ℂfld)‘1) ∈ 𝐵)
11545, 112, 114syl2anc 584 . . . . . . . . . . . . . . . . 17 (𝜑 → ((invg‘ℂfld)‘1) ∈ 𝐵)
116109, 115eqeltrrd 2842 . . . . . . . . . . . . . . . 16 (𝜑 → -1 ∈ 𝐵)
117 plyconst 26245 . . . . . . . . . . . . . . . 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 21372 . . . . . . . . . . . . . . . . . 18 · = (.r‘ℂfld)
122121subrgmcl 20584 . . . . . . . . . . . . . . . . 17 ((𝐵 ∈ (SubRing‘ℂfld) ∧ 𝑎𝐵𝑏𝐵) → (𝑎 · 𝑏) ∈ 𝐵)
1231223expb 1121 . . . . . . . . . . . . . . . 16 ((𝐵 ∈ (SubRing‘ℂfld) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
1247, 123sylan 580 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
125124adantlr 715 . . . . . . . . . . . . . 14 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
126119, 120, 71, 125plymul 26257 . . . . . . . . . . . . 13 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((ℂ × {-1}) ∘f · 𝑒) ∈ (Poly‘𝐵))
127 ffvelcdm 7101 . . . . . . . . . . . . . . . 16 ((𝑒:ℂ⟶ℂ ∧ 𝑋 ∈ ℂ) → (𝑒𝑋) ∈ ℂ)
12874, 10, 127syl2anr 597 . . . . . . . . . . . . . . 15 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑒𝑋) ∈ ℂ)
129 cnfldneg 21408 . . . . . . . . . . . . . . 15 ((𝑒𝑋) ∈ ℂ → ((invg‘ℂfld)‘(𝑒𝑋)) = -(𝑒𝑋))
130128, 129syl 17 . . . . . . . . . . . . . 14 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((invg‘ℂfld)‘(𝑒𝑋)) = -(𝑒𝑋))
131 negex 11506 . . . . . . . . . . . . . . . . 17 -1 ∈ V
132 fnconstg 6796 . . . . . . . . . . . . . . . . 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 11715 . . . . . . . . . . . . . . 15 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (-1 · (𝑒𝑋)) = -(𝑒𝑋))
143138, 141, 1423eqtrd 2781 . . . . . . . . . . . . . 14 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (((ℂ × {-1}) ∘f · 𝑒)‘𝑋) = -(𝑒𝑋))
144130, 143eqtr4d 2780 . . . . . . . . . . . . 13 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((invg‘ℂfld)‘(𝑒𝑋)) = (((ℂ × {-1}) ∘f · 𝑒)‘𝑋))
145 fveq1 6905 . . . . . . . . . . . . . 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 6915 . . . . . . . . . . . . 13 (𝑏 = (𝑒𝑋) → (((invg‘ℂfld)‘𝑏) = (𝑝𝑋) ↔ ((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋)))
149148rexbidv 3179 . . . . . . . . . . . 12 (𝑏 = (𝑒𝑋) → (∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋)))
150147, 149syl5ibrcom 247 . . . . . . . . . . 11 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑏 = (𝑒𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
151150rexlimdva 3155 . . . . . . . . . 10 (𝜑 → (∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
152151imp 406 . . . . . . . . 9 ((𝜑 ∧ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋))
15357, 152sylan2b 594 . . . . . . . 8 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋))
154 fvex 6919 . . . . . . . . 9 ((invg‘ℂfld)‘𝑏) ∈ V
155 eqeq1 2741 . . . . . . . . . 10 (𝑎 = ((invg‘ℂfld)‘𝑏) → (𝑎 = (𝑝𝑋) ↔ ((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
156155rexbidv 3179 . . . . . . . . 9 (𝑎 = ((invg‘ℂfld)‘𝑏) → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
157154, 156elab 3679 . . . . . . . 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 3984 . . . . . . 7 (𝜑 → 1 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
162125adantlr 715 . . . . . . . . . . . . . . . 16 ((((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
16366, 67, 72, 162plymul 26257 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑒f · 𝑑) ∈ (Poly‘𝐵))
164 fnfvof 7714 . . . . . . . . . . . . . . . . 17 (((𝑒 Fn ℂ ∧ 𝑑 Fn ℂ) ∧ (ℂ ∈ V ∧ 𝑋 ∈ ℂ)) → ((𝑒f · 𝑑)‘𝑋) = ((𝑒𝑋) · (𝑑𝑋)))
16576, 79, 81, 82, 164syl22anc 839 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒f · 𝑑)‘𝑋) = ((𝑒𝑋) · (𝑑𝑋)))
166165eqcomd 2743 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒𝑋) · (𝑑𝑋)) = ((𝑒f · 𝑑)‘𝑋))
167 fveq1 6905 . . . . . . . . . . . . . . . 16 (𝑝 = (𝑒f · 𝑑) → (𝑝𝑋) = ((𝑒f · 𝑑)‘𝑋))
168167rspceeqv 3645 . . . . . . . . . . . . . . 15 (((𝑒f · 𝑑) ∈ (Poly‘𝐵) ∧ ((𝑒𝑋) · (𝑑𝑋)) = ((𝑒f · 𝑑)‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋))
169163, 166, 168syl2anc 584 . . . . . . . . . . . . . 14 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋))
170 oveq2 7439 . . . . . . . . . . . . . . . 16 (𝑐 = (𝑑𝑋) → ((𝑒𝑋) · 𝑐) = ((𝑒𝑋) · (𝑑𝑋)))
171170eqeq1d 2739 . . . . . . . . . . . . . . 15 (𝑐 = (𝑑𝑋) → (((𝑒𝑋) · 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋)))
172171rexbidv 3179 . . . . . . . . . . . . . 14 (𝑐 = (𝑑𝑋) → (∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋)))
173169, 172syl5ibrcom 247 . . . . . . . . . . . . 13 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
174173rexlimdva 3155 . . . . . . . . . . . 12 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
175 oveq1 7438 . . . . . . . . . . . . . . 15 (𝑏 = (𝑒𝑋) → (𝑏 · 𝑐) = ((𝑒𝑋) · 𝑐))
176175eqeq1d 2739 . . . . . . . . . . . . . 14 (𝑏 = (𝑒𝑋) → ((𝑏 · 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
177176rexbidv 3179 . . . . . . . . . . . . 13 (𝑏 = (𝑒𝑋) → (∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
178177imbi2d 340 . . . . . . . . . . . 12 (𝑏 = (𝑒𝑋) → ((∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋)) ↔ (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋))))
179174, 178syl5ibrcom 247 . . . . . . . . . . 11 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))))
180179rexlimdva 3155 . . . . . . . . . 10 (𝜑 → (∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))))
1811803imp 1111 . . . . . . . . 9 ((𝜑 ∧ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) ∧ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))
18249, 57, 65, 181syl3anb 1162 . . . . . . . 8 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))
183 ovex 7464 . . . . . . . . 9 (𝑏 · 𝑐) ∈ V
184 eqeq1 2741 . . . . . . . . . 10 (𝑎 = (𝑏 · 𝑐) → (𝑎 = (𝑝𝑋) ↔ (𝑏 · 𝑐) = (𝑝𝑋)))
185184rexbidv 3179 . . . . . . . . 9 (𝑎 = (𝑏 · 𝑐) → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋)))
186183, 185elab 3679 . . . . . . . 8 ((𝑏 · 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))
187182, 186sylibr 234 . . . . . . 7 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → (𝑏 · 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
18815, 17, 19, 29, 48, 106, 158, 159, 160, 161, 187, 4issubrgd 21196 . . . . . 6 (𝜑 → {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∈ (SubRing‘ℂfld))
189 plyid 26248 . . . . . . . . . . 11 ((𝐵 ⊆ ℂ ∧ 1 ∈ 𝐵) → Xp ∈ (Poly‘𝐵))
1909, 112, 189syl2anc 584 . . . . . . . . . 10 (𝜑Xp ∈ (Poly‘𝐵))
191 df-idp 26228 . . . . . . . . . . . 12 Xp = ( I ↾ ℂ)
192191fveq1i 6907 . . . . . . . . . . 11 (Xp𝑋) = (( I ↾ ℂ)‘𝑋)
193 fvresi 7193 . . . . . . . . . . . 12 (𝑋 ∈ ℂ → (( I ↾ ℂ)‘𝑋) = 𝑋)
19410, 193syl 17 . . . . . . . . . . 11 (𝜑 → (( I ↾ ℂ)‘𝑋) = 𝑋)
195192, 194eqtr2id 2790 . . . . . . . . . 10 (𝜑𝑋 = (Xp𝑋))
196 fveq1 6905 . . . . . . . . . . 11 (𝑝 = Xp → (𝑝𝑋) = (Xp𝑋))
197196rspceeqv 3645 . . . . . . . . . 10 ((Xp ∈ (Poly‘𝐵) ∧ 𝑋 = (Xp𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋))
198190, 195, 197syl2anc 584 . . . . . . . . 9 (𝜑 → ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋))
199 eqeq1 2741 . . . . . . . . . 10 (𝑎 = 𝑋 → (𝑎 = (𝑝𝑋) ↔ 𝑋 = (𝑝𝑋)))
200199rexbidv 3179 . . . . . . . . 9 (𝑎 = 𝑋 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋)))
20110, 198, 200elabd 3681 . . . . . . . 8 (𝜑𝑋 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
202201snssd 4809 . . . . . . 7 (𝜑 → {𝑋} ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
20343, 202unssd 4192 . . . . . 6 (𝜑 → (𝐵 ∪ {𝑋}) ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
2044, 6, 12, 13, 14, 188, 203rgspnmin 20615 . . . . 5 (𝜑 → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
205204sseld 3982 . . . 4 (𝜑 → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) → 𝑉 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}))
206 fvex 6919 . . . . . . 7 (𝑝𝑋) ∈ V
207 eleq1 2829 . . . . . . 7 (𝑉 = (𝑝𝑋) → (𝑉 ∈ V ↔ (𝑝𝑋) ∈ V))
208206, 207mpbiri 258 . . . . . 6 (𝑉 = (𝑝𝑋) → 𝑉 ∈ V)
209208rexlimivw 3151 . . . . 5 (∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋) → 𝑉 ∈ V)
210 eqeq1 2741 . . . . . 6 (𝑎 = 𝑉 → (𝑎 = (𝑝𝑋) ↔ 𝑉 = (𝑝𝑋)))
211210rexbidv 3179 . . . . 5 (𝑎 = 𝑉 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
212209, 211elab3 3686 . . . 4 (𝑉 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋))
213205, 212imbitrdi 251 . . 3 (𝜑 → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) → ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
2144, 6, 12, 13, 14rgspncl 20613 . . . . . . 7 (𝜑 → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ∈ (SubRing‘ℂfld))
215214adantr 480 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ∈ (SubRing‘ℂfld))
216 simpr 484 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → 𝑝 ∈ (Poly‘𝐵))
2174, 6, 12, 13, 14rgspnssid 20614 . . . . . . . . 9 (𝜑 → (𝐵 ∪ {𝑋}) ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
218217unssbd 4194 . . . . . . . 8 (𝜑 → {𝑋} ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
219 snidg 4660 . . . . . . . . 9 (𝑋 ∈ ℂ → 𝑋 ∈ {𝑋})
22010, 219syl 17 . . . . . . . 8 (𝜑𝑋 ∈ {𝑋})
221218, 220sseldd 3984 . . . . . . 7 (𝜑𝑋 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
222221adantr 480 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → 𝑋 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
223217unssad 4193 . . . . . . 7 (𝜑𝐵 ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
224223adantr 480 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → 𝐵 ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
225215, 216, 222, 224cnsrplycl 43179 . . . . 5 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑝𝑋) ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
226 eleq1 2829 . . . . 5 (𝑉 = (𝑝𝑋) → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ↔ (𝑝𝑋) ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
227225, 226syl5ibrcom 247 . . . 4 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑉 = (𝑝𝑋) → 𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
228227rexlimdva 3155 . . 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 1087   = wceq 1540  wcel 2108  {cab 2714  wrex 3070  Vcvv 3480  cun 3949  wss 3951  {csn 4626   I cid 5577   × cxp 5683  cres 5687   Fn wfn 6556  wf 6557  cfv 6561  (class class class)co 7431  f cof 7695  cc 11153  0cc0 11155  1c1 11156   + caddc 11158   · cmul 11160  -cneg 11493  Basecbs 17247  s cress 17274  +gcplusg 17297  .rcmulr 17298  0gc0g 17484  invgcminusg 18952  SubGrpcsubg 19138  1rcur 20178  Ringcrg 20230  SubRingcsubrg 20569  RingSpancrgspn 20610  fldccnfld 21364  Polycply 26223  Xpcidp 26224
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2708  ax-rep 5279  ax-sep 5296  ax-nul 5306  ax-pow 5365  ax-pr 5432  ax-un 7755  ax-inf2 9681  ax-cnex 11211  ax-resscn 11212  ax-1cn 11213  ax-icn 11214  ax-addcl 11215  ax-addrcl 11216  ax-mulcl 11217  ax-mulrcl 11218  ax-mulcom 11219  ax-addass 11220  ax-mulass 11221  ax-distr 11222  ax-i2m1 11223  ax-1ne0 11224  ax-1rid 11225  ax-rnegex 11226  ax-rrecex 11227  ax-cnre 11228  ax-pre-lttri 11229  ax-pre-lttrn 11230  ax-pre-ltadd 11231  ax-pre-mulgt0 11232  ax-pre-sup 11233  ax-addf 11234  ax-mulf 11235
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2540  df-eu 2569  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2892  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3380  df-reu 3381  df-rab 3437  df-v 3482  df-sbc 3789  df-csb 3900  df-dif 3954  df-un 3956  df-in 3958  df-ss 3968  df-pss 3971  df-nul 4334  df-if 4526  df-pw 4602  df-sn 4627  df-pr 4629  df-tp 4631  df-op 4633  df-uni 4908  df-int 4947  df-iun 4993  df-br 5144  df-opab 5206  df-mpt 5226  df-tr 5260  df-id 5578  df-eprel 5584  df-po 5592  df-so 5593  df-fr 5637  df-se 5638  df-we 5639  df-xp 5691  df-rel 5692  df-cnv 5693  df-co 5694  df-dm 5695  df-rn 5696  df-res 5697  df-ima 5698  df-pred 6321  df-ord 6387  df-on 6388  df-lim 6389  df-suc 6390  df-iota 6514  df-fun 6563  df-fn 6564  df-f 6565  df-f1 6566  df-fo 6567  df-f1o 6568  df-fv 6569  df-isom 6570  df-riota 7388  df-ov 7434  df-oprab 7435  df-mpo 7436  df-of 7697  df-om 7888  df-1st 8014  df-2nd 8015  df-frecs 8306  df-wrecs 8337  df-recs 8411  df-rdg 8450  df-1o 8506  df-er 8745  df-map 8868  df-pm 8869  df-en 8986  df-dom 8987  df-sdom 8988  df-fin 8989  df-sup 9482  df-inf 9483  df-oi 9550  df-card 9979  df-pnf 11297  df-mnf 11298  df-xr 11299  df-ltxr 11300  df-le 11301  df-sub 11494  df-neg 11495  df-div 11921  df-nn 12267  df-2 12329  df-3 12330  df-4 12331  df-5 12332  df-6 12333  df-7 12334  df-8 12335  df-9 12336  df-n0 12527  df-z 12614  df-dec 12734  df-uz 12879  df-rp 13035  df-fz 13548  df-fzo 13695  df-fl 13832  df-seq 14043  df-exp 14103  df-hash 14370  df-cj 15138  df-re 15139  df-im 15140  df-sqrt 15274  df-abs 15275  df-clim 15524  df-rlim 15525  df-sum 15723  df-struct 17184  df-sets 17201  df-slot 17219  df-ndx 17231  df-base 17248  df-ress 17275  df-plusg 17310  df-mulr 17311  df-starv 17312  df-tset 17316  df-ple 17317  df-ds 17319  df-unif 17320  df-0g 17486  df-mgm 18653  df-sgrp 18732  df-mnd 18748  df-grp 18954  df-minusg 18955  df-subg 19141  df-cmn 19800  df-abl 19801  df-mgp 20138  df-rng 20150  df-ur 20179  df-ring 20232  df-cring 20233  df-subrng 20546  df-subrg 20570  df-rgspn 20611  df-cnfld 21365  df-0p 25705  df-ply 26227  df-idp 26228  df-coe 26229  df-dgr 26230
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator