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 38060
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 2716 . 2 (𝜑 → (𝑉𝑆𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
3 cnring 19816 . . . . . . 7 fld ∈ Ring
43a1i 11 . . . . . 6 (𝜑 → ℂfld ∈ Ring)
5 cnfldbas 19798 . . . . . . 7 ℂ = (Base‘ℂfld)
65a1i 11 . . . . . 6 (𝜑 → ℂ = (Base‘ℂfld))
7 rngunsnply.b . . . . . . . 8 (𝜑𝐵 ∈ (SubRing‘ℂfld))
85subrgss 18829 . . . . . . . 8 (𝐵 ∈ (SubRing‘ℂfld) → 𝐵 ⊆ ℂ)
97, 8syl 17 . . . . . . 7 (𝜑𝐵 ⊆ ℂ)
10 rngunsnply.x . . . . . . . 8 (𝜑𝑋 ∈ ℂ)
1110snssd 4372 . . . . . . 7 (𝜑 → {𝑋} ⊆ ℂ)
129, 11unssd 3822 . . . . . 6 (𝜑 → (𝐵 ∪ {𝑋}) ⊆ ℂ)
13 eqidd 2652 . . . . . 6 (𝜑 → (RingSpan‘ℂfld) = (RingSpan‘ℂfld))
14 eqidd 2652 . . . . . 6 (𝜑 → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) = ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
15 eqidd 2652 . . . . . . 7 (𝜑 → (ℂflds {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) = (ℂflds {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}))
16 cnfld0 19818 . . . . . . . 8 0 = (0g‘ℂfld)
1716a1i 11 . . . . . . 7 (𝜑 → 0 = (0g‘ℂfld))
18 cnfldadd 19799 . . . . . . . 8 + = (+g‘ℂfld)
1918a1i 11 . . . . . . 7 (𝜑 → + = (+g‘ℂfld))
20 plyf 23999 . . . . . . . . . . . 12 (𝑝 ∈ (Poly‘𝐵) → 𝑝:ℂ⟶ℂ)
21 ffvelrn 6397 . . . . . . . . . . . 12 ((𝑝:ℂ⟶ℂ ∧ 𝑋 ∈ ℂ) → (𝑝𝑋) ∈ ℂ)
2220, 10, 21syl2anr 494 . . . . . . . . . . 11 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑝𝑋) ∈ ℂ)
23 eleq1 2718 . . . . . . . . . . 11 (𝑎 = (𝑝𝑋) → (𝑎 ∈ ℂ ↔ (𝑝𝑋) ∈ ℂ))
2422, 23syl5ibrcom 237 . . . . . . . . . 10 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑎 = (𝑝𝑋) → 𝑎 ∈ ℂ))
2524rexlimdva 3060 . . . . . . . . 9 (𝜑 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) → 𝑎 ∈ ℂ))
2625ss2abdv 3708 . . . . . . . 8 (𝜑 → {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ⊆ {𝑎𝑎 ∈ ℂ})
27 abid2 2774 . . . . . . . . 9 {𝑎𝑎 ∈ ℂ} = ℂ
2827, 5eqtri 2673 . . . . . . . 8 {𝑎𝑎 ∈ ℂ} = (Base‘ℂfld)
2926, 28syl6sseq 3684 . . . . . . 7 (𝜑 → {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ⊆ (Base‘ℂfld))
30 abid2 2774 . . . . . . . . 9 {𝑎𝑎𝐵} = 𝐵
31 plyconst 24007 . . . . . . . . . . . . 13 ((𝐵 ⊆ ℂ ∧ 𝑎𝐵) → (ℂ × {𝑎}) ∈ (Poly‘𝐵))
329, 31sylan 487 . . . . . . . . . . . 12 ((𝜑𝑎𝐵) → (ℂ × {𝑎}) ∈ (Poly‘𝐵))
3310adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑎𝐵) → 𝑋 ∈ ℂ)
34 vex 3234 . . . . . . . . . . . . . . 15 𝑎 ∈ V
3534fvconst2 6510 . . . . . . . . . . . . . 14 (𝑋 ∈ ℂ → ((ℂ × {𝑎})‘𝑋) = 𝑎)
3633, 35syl 17 . . . . . . . . . . . . 13 ((𝜑𝑎𝐵) → ((ℂ × {𝑎})‘𝑋) = 𝑎)
3736eqcomd 2657 . . . . . . . . . . . 12 ((𝜑𝑎𝐵) → 𝑎 = ((ℂ × {𝑎})‘𝑋))
38 fveq1 6228 . . . . . . . . . . . . . 14 (𝑝 = (ℂ × {𝑎}) → (𝑝𝑋) = ((ℂ × {𝑎})‘𝑋))
3938eqeq2d 2661 . . . . . . . . . . . . 13 (𝑝 = (ℂ × {𝑎}) → (𝑎 = (𝑝𝑋) ↔ 𝑎 = ((ℂ × {𝑎})‘𝑋)))
4039rspcev 3340 . . . . . . . . . . . 12 (((ℂ × {𝑎}) ∈ (Poly‘𝐵) ∧ 𝑎 = ((ℂ × {𝑎})‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋))
4132, 37, 40syl2anc 694 . . . . . . . . . . 11 ((𝜑𝑎𝐵) → ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋))
4241ex 449 . . . . . . . . . 10 (𝜑 → (𝑎𝐵 → ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)))
4342ss2abdv 3708 . . . . . . . . 9 (𝜑 → {𝑎𝑎𝐵} ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
4430, 43syl5eqssr 3683 . . . . . . . 8 (𝜑𝐵 ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
45 subrgsubg 18834 . . . . . . . . . 10 (𝐵 ∈ (SubRing‘ℂfld) → 𝐵 ∈ (SubGrp‘ℂfld))
467, 45syl 17 . . . . . . . . 9 (𝜑𝐵 ∈ (SubGrp‘ℂfld))
4716subg0cl 17649 . . . . . . . . 9 (𝐵 ∈ (SubGrp‘ℂfld) → 0 ∈ 𝐵)
4846, 47syl 17 . . . . . . . 8 (𝜑 → 0 ∈ 𝐵)
4944, 48sseldd 3637 . . . . . . 7 (𝜑 → 0 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
50 biid 251 . . . . . . . . 9 (𝜑𝜑)
51 vex 3234 . . . . . . . . . 10 𝑏 ∈ V
52 eqeq1 2655 . . . . . . . . . . . 12 (𝑎 = 𝑏 → (𝑎 = (𝑝𝑋) ↔ 𝑏 = (𝑝𝑋)))
5352rexbidv 3081 . . . . . . . . . . 11 (𝑎 = 𝑏 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑏 = (𝑝𝑋)))
54 fveq1 6228 . . . . . . . . . . . . 13 (𝑝 = 𝑒 → (𝑝𝑋) = (𝑒𝑋))
5554eqeq2d 2661 . . . . . . . . . . . 12 (𝑝 = 𝑒 → (𝑏 = (𝑝𝑋) ↔ 𝑏 = (𝑒𝑋)))
5655cbvrexv 3202 . . . . . . . . . . 11 (∃𝑝 ∈ (Poly‘𝐵)𝑏 = (𝑝𝑋) ↔ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋))
5753, 56syl6bb 276 . . . . . . . . . 10 (𝑎 = 𝑏 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋)))
5851, 57elab 3382 . . . . . . . . 9 (𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋))
59 vex 3234 . . . . . . . . . 10 𝑐 ∈ V
60 eqeq1 2655 . . . . . . . . . . . 12 (𝑎 = 𝑐 → (𝑎 = (𝑝𝑋) ↔ 𝑐 = (𝑝𝑋)))
6160rexbidv 3081 . . . . . . . . . . 11 (𝑎 = 𝑐 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑐 = (𝑝𝑋)))
62 fveq1 6228 . . . . . . . . . . . . 13 (𝑝 = 𝑑 → (𝑝𝑋) = (𝑑𝑋))
6362eqeq2d 2661 . . . . . . . . . . . 12 (𝑝 = 𝑑 → (𝑐 = (𝑝𝑋) ↔ 𝑐 = (𝑑𝑋)))
6463cbvrexv 3202 . . . . . . . . . . 11 (∃𝑝 ∈ (Poly‘𝐵)𝑐 = (𝑝𝑋) ↔ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋))
6561, 64syl6bb 276 . . . . . . . . . 10 (𝑎 = 𝑐 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋)))
6659, 65elab 3382 . . . . . . . . 9 (𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋))
67 simplr 807 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑒 ∈ (Poly‘𝐵))
68 simpr 476 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑑 ∈ (Poly‘𝐵))
6918subrgacl 18839 . . . . . . . . . . . . . . . . . . . 20 ((𝐵 ∈ (SubRing‘ℂfld) ∧ 𝑎𝐵𝑏𝐵) → (𝑎 + 𝑏) ∈ 𝐵)
70693expb 1285 . . . . . . . . . . . . . . . . . . 19 ((𝐵 ∈ (SubRing‘ℂfld) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
717, 70sylan 487 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
7271adantlr 751 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
7372adantlr 751 . . . . . . . . . . . . . . . 16 ((((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
7467, 68, 73plyadd 24018 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑒𝑓 + 𝑑) ∈ (Poly‘𝐵))
75 plyf 23999 . . . . . . . . . . . . . . . . . . 19 (𝑒 ∈ (Poly‘𝐵) → 𝑒:ℂ⟶ℂ)
76 ffn 6083 . . . . . . . . . . . . . . . . . . 19 (𝑒:ℂ⟶ℂ → 𝑒 Fn ℂ)
7775, 76syl 17 . . . . . . . . . . . . . . . . . 18 (𝑒 ∈ (Poly‘𝐵) → 𝑒 Fn ℂ)
7877ad2antlr 763 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑒 Fn ℂ)
79 plyf 23999 . . . . . . . . . . . . . . . . . . 19 (𝑑 ∈ (Poly‘𝐵) → 𝑑:ℂ⟶ℂ)
80 ffn 6083 . . . . . . . . . . . . . . . . . . 19 (𝑑:ℂ⟶ℂ → 𝑑 Fn ℂ)
8179, 80syl 17 . . . . . . . . . . . . . . . . . 18 (𝑑 ∈ (Poly‘𝐵) → 𝑑 Fn ℂ)
8281adantl 481 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑑 Fn ℂ)
83 cnex 10055 . . . . . . . . . . . . . . . . . 18 ℂ ∈ V
8483a1i 11 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ℂ ∈ V)
8510ad2antrr 762 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑋 ∈ ℂ)
86 fnfvof 6953 . . . . . . . . . . . . . . . . 17 (((𝑒 Fn ℂ ∧ 𝑑 Fn ℂ) ∧ (ℂ ∈ V ∧ 𝑋 ∈ ℂ)) → ((𝑒𝑓 + 𝑑)‘𝑋) = ((𝑒𝑋) + (𝑑𝑋)))
8778, 82, 84, 85, 86syl22anc 1367 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒𝑓 + 𝑑)‘𝑋) = ((𝑒𝑋) + (𝑑𝑋)))
8887eqcomd 2657 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒𝑋) + (𝑑𝑋)) = ((𝑒𝑓 + 𝑑)‘𝑋))
89 fveq1 6228 . . . . . . . . . . . . . . . . 17 (𝑝 = (𝑒𝑓 + 𝑑) → (𝑝𝑋) = ((𝑒𝑓 + 𝑑)‘𝑋))
9089eqeq2d 2661 . . . . . . . . . . . . . . . 16 (𝑝 = (𝑒𝑓 + 𝑑) → (((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋) ↔ ((𝑒𝑋) + (𝑑𝑋)) = ((𝑒𝑓 + 𝑑)‘𝑋)))
9190rspcev 3340 . . . . . . . . . . . . . . 15 (((𝑒𝑓 + 𝑑) ∈ (Poly‘𝐵) ∧ ((𝑒𝑋) + (𝑑𝑋)) = ((𝑒𝑓 + 𝑑)‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋))
9274, 88, 91syl2anc 694 . . . . . . . . . . . . . 14 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋))
93 oveq2 6698 . . . . . . . . . . . . . . . 16 (𝑐 = (𝑑𝑋) → ((𝑒𝑋) + 𝑐) = ((𝑒𝑋) + (𝑑𝑋)))
9493eqeq1d 2653 . . . . . . . . . . . . . . 15 (𝑐 = (𝑑𝑋) → (((𝑒𝑋) + 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋)))
9594rexbidv 3081 . . . . . . . . . . . . . 14 (𝑐 = (𝑑𝑋) → (∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋)))
9692, 95syl5ibrcom 237 . . . . . . . . . . . . 13 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
9796rexlimdva 3060 . . . . . . . . . . . 12 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
98 oveq1 6697 . . . . . . . . . . . . . . 15 (𝑏 = (𝑒𝑋) → (𝑏 + 𝑐) = ((𝑒𝑋) + 𝑐))
9998eqeq1d 2653 . . . . . . . . . . . . . 14 (𝑏 = (𝑒𝑋) → ((𝑏 + 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
10099rexbidv 3081 . . . . . . . . . . . . 13 (𝑏 = (𝑒𝑋) → (∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
101100imbi2d 329 . . . . . . . . . . . 12 (𝑏 = (𝑒𝑋) → ((∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋)) ↔ (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋))))
10297, 101syl5ibrcom 237 . . . . . . . . . . 11 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))))
103102rexlimdva 3060 . . . . . . . . . 10 (𝜑 → (∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))))
1041033imp 1275 . . . . . . . . 9 ((𝜑 ∧ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) ∧ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))
10550, 58, 66, 104syl3anb 1409 . . . . . . . 8 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))
106 ovex 6718 . . . . . . . . 9 (𝑏 + 𝑐) ∈ V
107 eqeq1 2655 . . . . . . . . . 10 (𝑎 = (𝑏 + 𝑐) → (𝑎 = (𝑝𝑋) ↔ (𝑏 + 𝑐) = (𝑝𝑋)))
108107rexbidv 3081 . . . . . . . . 9 (𝑎 = (𝑏 + 𝑐) → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋)))
109106, 108elab 3382 . . . . . . . 8 ((𝑏 + 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))
110105, 109sylibr 224 . . . . . . 7 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → (𝑏 + 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
111 ax-1cn 10032 . . . . . . . . . . . . . . . . . 18 1 ∈ ℂ
112 cnfldneg 19820 . . . . . . . . . . . . . . . . . 18 (1 ∈ ℂ → ((invg‘ℂfld)‘1) = -1)
113111, 112mp1i 13 . . . . . . . . . . . . . . . . 17 (𝜑 → ((invg‘ℂfld)‘1) = -1)
114 cnfld1 19819 . . . . . . . . . . . . . . . . . . . 20 1 = (1r‘ℂfld)
115114subrg1cl 18836 . . . . . . . . . . . . . . . . . . 19 (𝐵 ∈ (SubRing‘ℂfld) → 1 ∈ 𝐵)
1167, 115syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → 1 ∈ 𝐵)
117 eqid 2651 . . . . . . . . . . . . . . . . . . 19 (invg‘ℂfld) = (invg‘ℂfld)
118117subginvcl 17650 . . . . . . . . . . . . . . . . . 18 ((𝐵 ∈ (SubGrp‘ℂfld) ∧ 1 ∈ 𝐵) → ((invg‘ℂfld)‘1) ∈ 𝐵)
11946, 116, 118syl2anc 694 . . . . . . . . . . . . . . . . 17 (𝜑 → ((invg‘ℂfld)‘1) ∈ 𝐵)
120113, 119eqeltrrd 2731 . . . . . . . . . . . . . . . 16 (𝜑 → -1 ∈ 𝐵)
121 plyconst 24007 . . . . . . . . . . . . . . . 16 ((𝐵 ⊆ ℂ ∧ -1 ∈ 𝐵) → (ℂ × {-1}) ∈ (Poly‘𝐵))
1229, 120, 121syl2anc 694 . . . . . . . . . . . . . . 15 (𝜑 → (ℂ × {-1}) ∈ (Poly‘𝐵))
123122adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (ℂ × {-1}) ∈ (Poly‘𝐵))
124 simpr 476 . . . . . . . . . . . . . 14 ((𝜑𝑒 ∈ (Poly‘𝐵)) → 𝑒 ∈ (Poly‘𝐵))
125 cnfldmul 19800 . . . . . . . . . . . . . . . . . 18 · = (.r‘ℂfld)
126125subrgmcl 18840 . . . . . . . . . . . . . . . . 17 ((𝐵 ∈ (SubRing‘ℂfld) ∧ 𝑎𝐵𝑏𝐵) → (𝑎 · 𝑏) ∈ 𝐵)
1271263expb 1285 . . . . . . . . . . . . . . . 16 ((𝐵 ∈ (SubRing‘ℂfld) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
1287, 127sylan 487 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
129128adantlr 751 . . . . . . . . . . . . . 14 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
130123, 124, 72, 129plymul 24019 . . . . . . . . . . . . 13 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((ℂ × {-1}) ∘𝑓 · 𝑒) ∈ (Poly‘𝐵))
131 ffvelrn 6397 . . . . . . . . . . . . . . . 16 ((𝑒:ℂ⟶ℂ ∧ 𝑋 ∈ ℂ) → (𝑒𝑋) ∈ ℂ)
13275, 10, 131syl2anr 494 . . . . . . . . . . . . . . 15 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑒𝑋) ∈ ℂ)
133 cnfldneg 19820 . . . . . . . . . . . . . . 15 ((𝑒𝑋) ∈ ℂ → ((invg‘ℂfld)‘(𝑒𝑋)) = -(𝑒𝑋))
134132, 133syl 17 . . . . . . . . . . . . . 14 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((invg‘ℂfld)‘(𝑒𝑋)) = -(𝑒𝑋))
135 negex 10317 . . . . . . . . . . . . . . . . 17 -1 ∈ V
136 fnconstg 6131 . . . . . . . . . . . . . . . . 17 (-1 ∈ V → (ℂ × {-1}) Fn ℂ)
137135, 136mp1i 13 . . . . . . . . . . . . . . . 16 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (ℂ × {-1}) Fn ℂ)
13877adantl 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑒 ∈ (Poly‘𝐵)) → 𝑒 Fn ℂ)
13983a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ℂ ∈ V)
14010adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝑒 ∈ (Poly‘𝐵)) → 𝑋 ∈ ℂ)
141 fnfvof 6953 . . . . . . . . . . . . . . . 16 ((((ℂ × {-1}) Fn ℂ ∧ 𝑒 Fn ℂ) ∧ (ℂ ∈ V ∧ 𝑋 ∈ ℂ)) → (((ℂ × {-1}) ∘𝑓 · 𝑒)‘𝑋) = (((ℂ × {-1})‘𝑋) · (𝑒𝑋)))
142137, 138, 139, 140, 141syl22anc 1367 . . . . . . . . . . . . . . 15 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (((ℂ × {-1}) ∘𝑓 · 𝑒)‘𝑋) = (((ℂ × {-1})‘𝑋) · (𝑒𝑋)))
143135fvconst2 6510 . . . . . . . . . . . . . . . . 17 (𝑋 ∈ ℂ → ((ℂ × {-1})‘𝑋) = -1)
144140, 143syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((ℂ × {-1})‘𝑋) = -1)
145144oveq1d 6705 . . . . . . . . . . . . . . 15 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (((ℂ × {-1})‘𝑋) · (𝑒𝑋)) = (-1 · (𝑒𝑋)))
146132mulm1d 10520 . . . . . . . . . . . . . . 15 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (-1 · (𝑒𝑋)) = -(𝑒𝑋))
147142, 145, 1463eqtrd 2689 . . . . . . . . . . . . . 14 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (((ℂ × {-1}) ∘𝑓 · 𝑒)‘𝑋) = -(𝑒𝑋))
148134, 147eqtr4d 2688 . . . . . . . . . . . . 13 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((invg‘ℂfld)‘(𝑒𝑋)) = (((ℂ × {-1}) ∘𝑓 · 𝑒)‘𝑋))
149 fveq1 6228 . . . . . . . . . . . . . . 15 (𝑝 = ((ℂ × {-1}) ∘𝑓 · 𝑒) → (𝑝𝑋) = (((ℂ × {-1}) ∘𝑓 · 𝑒)‘𝑋))
150149eqeq2d 2661 . . . . . . . . . . . . . 14 (𝑝 = ((ℂ × {-1}) ∘𝑓 · 𝑒) → (((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋) ↔ ((invg‘ℂfld)‘(𝑒𝑋)) = (((ℂ × {-1}) ∘𝑓 · 𝑒)‘𝑋)))
151150rspcev 3340 . . . . . . . . . . . . 13 ((((ℂ × {-1}) ∘𝑓 · 𝑒) ∈ (Poly‘𝐵) ∧ ((invg‘ℂfld)‘(𝑒𝑋)) = (((ℂ × {-1}) ∘𝑓 · 𝑒)‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋))
152130, 148, 151syl2anc 694 . . . . . . . . . . . 12 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋))
153 fveq2 6229 . . . . . . . . . . . . . 14 (𝑏 = (𝑒𝑋) → ((invg‘ℂfld)‘𝑏) = ((invg‘ℂfld)‘(𝑒𝑋)))
154153eqeq1d 2653 . . . . . . . . . . . . 13 (𝑏 = (𝑒𝑋) → (((invg‘ℂfld)‘𝑏) = (𝑝𝑋) ↔ ((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋)))
155154rexbidv 3081 . . . . . . . . . . . 12 (𝑏 = (𝑒𝑋) → (∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋)))
156152, 155syl5ibrcom 237 . . . . . . . . . . 11 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑏 = (𝑒𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
157156rexlimdva 3060 . . . . . . . . . 10 (𝜑 → (∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
158157imp 444 . . . . . . . . 9 ((𝜑 ∧ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋))
15958, 158sylan2b 491 . . . . . . . 8 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋))
160 fvex 6239 . . . . . . . . 9 ((invg‘ℂfld)‘𝑏) ∈ V
161 eqeq1 2655 . . . . . . . . . 10 (𝑎 = ((invg‘ℂfld)‘𝑏) → (𝑎 = (𝑝𝑋) ↔ ((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
162161rexbidv 3081 . . . . . . . . 9 (𝑎 = ((invg‘ℂfld)‘𝑏) → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
163160, 162elab 3382 . . . . . . . 8 (((invg‘ℂfld)‘𝑏) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋))
164159, 163sylibr 224 . . . . . . 7 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ((invg‘ℂfld)‘𝑏) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
165114a1i 11 . . . . . . 7 (𝜑 → 1 = (1r‘ℂfld))
166125a1i 11 . . . . . . 7 (𝜑 → · = (.r‘ℂfld))
16744, 116sseldd 3637 . . . . . . 7 (𝜑 → 1 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
168129adantlr 751 . . . . . . . . . . . . . . . 16 ((((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
16967, 68, 73, 168plymul 24019 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑒𝑓 · 𝑑) ∈ (Poly‘𝐵))
170 fnfvof 6953 . . . . . . . . . . . . . . . . 17 (((𝑒 Fn ℂ ∧ 𝑑 Fn ℂ) ∧ (ℂ ∈ V ∧ 𝑋 ∈ ℂ)) → ((𝑒𝑓 · 𝑑)‘𝑋) = ((𝑒𝑋) · (𝑑𝑋)))
17178, 82, 84, 85, 170syl22anc 1367 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒𝑓 · 𝑑)‘𝑋) = ((𝑒𝑋) · (𝑑𝑋)))
172171eqcomd 2657 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒𝑋) · (𝑑𝑋)) = ((𝑒𝑓 · 𝑑)‘𝑋))
173 fveq1 6228 . . . . . . . . . . . . . . . . 17 (𝑝 = (𝑒𝑓 · 𝑑) → (𝑝𝑋) = ((𝑒𝑓 · 𝑑)‘𝑋))
174173eqeq2d 2661 . . . . . . . . . . . . . . . 16 (𝑝 = (𝑒𝑓 · 𝑑) → (((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋) ↔ ((𝑒𝑋) · (𝑑𝑋)) = ((𝑒𝑓 · 𝑑)‘𝑋)))
175174rspcev 3340 . . . . . . . . . . . . . . 15 (((𝑒𝑓 · 𝑑) ∈ (Poly‘𝐵) ∧ ((𝑒𝑋) · (𝑑𝑋)) = ((𝑒𝑓 · 𝑑)‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋))
176169, 172, 175syl2anc 694 . . . . . . . . . . . . . 14 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋))
177 oveq2 6698 . . . . . . . . . . . . . . . 16 (𝑐 = (𝑑𝑋) → ((𝑒𝑋) · 𝑐) = ((𝑒𝑋) · (𝑑𝑋)))
178177eqeq1d 2653 . . . . . . . . . . . . . . 15 (𝑐 = (𝑑𝑋) → (((𝑒𝑋) · 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋)))
179178rexbidv 3081 . . . . . . . . . . . . . 14 (𝑐 = (𝑑𝑋) → (∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋)))
180176, 179syl5ibrcom 237 . . . . . . . . . . . . 13 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
181180rexlimdva 3060 . . . . . . . . . . . 12 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
182 oveq1 6697 . . . . . . . . . . . . . . 15 (𝑏 = (𝑒𝑋) → (𝑏 · 𝑐) = ((𝑒𝑋) · 𝑐))
183182eqeq1d 2653 . . . . . . . . . . . . . 14 (𝑏 = (𝑒𝑋) → ((𝑏 · 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
184183rexbidv 3081 . . . . . . . . . . . . 13 (𝑏 = (𝑒𝑋) → (∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
185184imbi2d 329 . . . . . . . . . . . 12 (𝑏 = (𝑒𝑋) → ((∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋)) ↔ (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋))))
186181, 185syl5ibrcom 237 . . . . . . . . . . 11 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))))
187186rexlimdva 3060 . . . . . . . . . 10 (𝜑 → (∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))))
1881873imp 1275 . . . . . . . . 9 ((𝜑 ∧ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) ∧ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))
18950, 58, 66, 188syl3anb 1409 . . . . . . . 8 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))
190 ovex 6718 . . . . . . . . 9 (𝑏 · 𝑐) ∈ V
191 eqeq1 2655 . . . . . . . . . 10 (𝑎 = (𝑏 · 𝑐) → (𝑎 = (𝑝𝑋) ↔ (𝑏 · 𝑐) = (𝑝𝑋)))
192191rexbidv 3081 . . . . . . . . 9 (𝑎 = (𝑏 · 𝑐) → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋)))
193190, 192elab 3382 . . . . . . . 8 ((𝑏 · 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))
194189, 193sylibr 224 . . . . . . 7 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → (𝑏 · 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
19515, 17, 19, 29, 49, 110, 164, 165, 166, 167, 194, 4issubrngd2 19237 . . . . . 6 (𝜑 → {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∈ (SubRing‘ℂfld))
196 plyid 24010 . . . . . . . . . . 11 ((𝐵 ⊆ ℂ ∧ 1 ∈ 𝐵) → Xp ∈ (Poly‘𝐵))
1979, 116, 196syl2anc 694 . . . . . . . . . 10 (𝜑Xp ∈ (Poly‘𝐵))
198 df-idp 23990 . . . . . . . . . . . 12 Xp = ( I ↾ ℂ)
199198fveq1i 6230 . . . . . . . . . . 11 (Xp𝑋) = (( I ↾ ℂ)‘𝑋)
200 fvresi 6480 . . . . . . . . . . . 12 (𝑋 ∈ ℂ → (( I ↾ ℂ)‘𝑋) = 𝑋)
20110, 200syl 17 . . . . . . . . . . 11 (𝜑 → (( I ↾ ℂ)‘𝑋) = 𝑋)
202199, 201syl5req 2698 . . . . . . . . . 10 (𝜑𝑋 = (Xp𝑋))
203 fveq1 6228 . . . . . . . . . . . 12 (𝑝 = Xp → (𝑝𝑋) = (Xp𝑋))
204203eqeq2d 2661 . . . . . . . . . . 11 (𝑝 = Xp → (𝑋 = (𝑝𝑋) ↔ 𝑋 = (Xp𝑋)))
205204rspcev 3340 . . . . . . . . . 10 ((Xp ∈ (Poly‘𝐵) ∧ 𝑋 = (Xp𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋))
206197, 202, 205syl2anc 694 . . . . . . . . 9 (𝜑 → ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋))
207 eqeq1 2655 . . . . . . . . . . . 12 (𝑎 = 𝑋 → (𝑎 = (𝑝𝑋) ↔ 𝑋 = (𝑝𝑋)))
208207rexbidv 3081 . . . . . . . . . . 11 (𝑎 = 𝑋 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋)))
209208elabg 3383 . . . . . . . . . 10 (𝑋 ∈ ℂ → (𝑋 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋)))
21010, 209syl 17 . . . . . . . . 9 (𝜑 → (𝑋 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋)))
211206, 210mpbird 247 . . . . . . . 8 (𝜑𝑋 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
212211snssd 4372 . . . . . . 7 (𝜑 → {𝑋} ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
21344, 212unssd 3822 . . . . . 6 (𝜑 → (𝐵 ∪ {𝑋}) ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
2144, 6, 12, 13, 14, 195, 213rgspnmin 38058 . . . . 5 (𝜑 → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
215214sseld 3635 . . . 4 (𝜑 → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) → 𝑉 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}))
216 fvex 6239 . . . . . . 7 (𝑝𝑋) ∈ V
217 eleq1 2718 . . . . . . 7 (𝑉 = (𝑝𝑋) → (𝑉 ∈ V ↔ (𝑝𝑋) ∈ V))
218216, 217mpbiri 248 . . . . . 6 (𝑉 = (𝑝𝑋) → 𝑉 ∈ V)
219218rexlimivw 3058 . . . . 5 (∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋) → 𝑉 ∈ V)
220 eqeq1 2655 . . . . . 6 (𝑎 = 𝑉 → (𝑎 = (𝑝𝑋) ↔ 𝑉 = (𝑝𝑋)))
221220rexbidv 3081 . . . . 5 (𝑎 = 𝑉 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
222219, 221elab3 3390 . . . 4 (𝑉 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋))
223215, 222syl6ib 241 . . 3 (𝜑 → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) → ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
2244, 6, 12, 13, 14rgspncl 38056 . . . . . . 7 (𝜑 → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ∈ (SubRing‘ℂfld))
225224adantr 480 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ∈ (SubRing‘ℂfld))
226 simpr 476 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → 𝑝 ∈ (Poly‘𝐵))
2274, 6, 12, 13, 14rgspnssid 38057 . . . . . . . . 9 (𝜑 → (𝐵 ∪ {𝑋}) ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
228227unssbd 3824 . . . . . . . 8 (𝜑 → {𝑋} ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
229 snidg 4239 . . . . . . . . 9 (𝑋 ∈ ℂ → 𝑋 ∈ {𝑋})
23010, 229syl 17 . . . . . . . 8 (𝜑𝑋 ∈ {𝑋})
231228, 230sseldd 3637 . . . . . . 7 (𝜑𝑋 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
232231adantr 480 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → 𝑋 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
233227unssad 3823 . . . . . . 7 (𝜑𝐵 ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
234233adantr 480 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → 𝐵 ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
235225, 226, 232, 234cnsrplycl 38054 . . . . 5 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑝𝑋) ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
236 eleq1 2718 . . . . 5 (𝑉 = (𝑝𝑋) → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ↔ (𝑝𝑋) ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
237235, 236syl5ibrcom 237 . . . 4 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑉 = (𝑝𝑋) → 𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
238237rexlimdva 3060 . . 3 (𝜑 → (∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋) → 𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
239223, 238impbid 202 . 2 (𝜑 → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
2402, 239bitrd 268 1 (𝜑 → (𝑉𝑆 ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 383  w3a 1054   = wceq 1523  wcel 2030  {cab 2637  wrex 2942  Vcvv 3231  cun 3605  wss 3607  {csn 4210   I cid 5052   × cxp 5141  cres 5145   Fn wfn 5921  wf 5922  cfv 5926  (class class class)co 6690  𝑓 cof 6937  cc 9972  0cc0 9974  1c1 9975   + caddc 9977   · cmul 9979  -cneg 10305  Basecbs 15904  s cress 15905  +gcplusg 15988  .rcmulr 15989  0gc0g 16147  invgcminusg 17470  SubGrpcsubg 17635  1rcur 18547  Ringcrg 18593  SubRingcsubrg 18824  RingSpancrgspn 18825  fldccnfld 19794  Polycply 23985  Xpcidp 23986
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-8 2032  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-13 2282  ax-ext 2631  ax-rep 4804  ax-sep 4814  ax-nul 4822  ax-pow 4873  ax-pr 4936  ax-un 6991  ax-inf2 8576  ax-cnex 10030  ax-resscn 10031  ax-1cn 10032  ax-icn 10033  ax-addcl 10034  ax-addrcl 10035  ax-mulcl 10036  ax-mulrcl 10037  ax-mulcom 10038  ax-addass 10039  ax-mulass 10040  ax-distr 10041  ax-i2m1 10042  ax-1ne0 10043  ax-1rid 10044  ax-rnegex 10045  ax-rrecex 10046  ax-cnre 10047  ax-pre-lttri 10048  ax-pre-lttrn 10049  ax-pre-ltadd 10050  ax-pre-mulgt0 10051  ax-pre-sup 10052  ax-addf 10053  ax-mulf 10054
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1055  df-3an 1056  df-tru 1526  df-fal 1529  df-ex 1745  df-nf 1750  df-sb 1938  df-eu 2502  df-mo 2503  df-clab 2638  df-cleq 2644  df-clel 2647  df-nfc 2782  df-ne 2824  df-nel 2927  df-ral 2946  df-rex 2947  df-reu 2948  df-rmo 2949  df-rab 2950  df-v 3233  df-sbc 3469  df-csb 3567  df-dif 3610  df-un 3612  df-in 3614  df-ss 3621  df-pss 3623  df-nul 3949  df-if 4120  df-pw 4193  df-sn 4211  df-pr 4213  df-tp 4215  df-op 4217  df-uni 4469  df-int 4508  df-iun 4554  df-br 4686  df-opab 4746  df-mpt 4763  df-tr 4786  df-id 5053  df-eprel 5058  df-po 5064  df-so 5065  df-fr 5102  df-se 5103  df-we 5104  df-xp 5149  df-rel 5150  df-cnv 5151  df-co 5152  df-dm 5153  df-rn 5154  df-res 5155  df-ima 5156  df-pred 5718  df-ord 5764  df-on 5765  df-lim 5766  df-suc 5767  df-iota 5889  df-fun 5928  df-fn 5929  df-f 5930  df-f1 5931  df-fo 5932  df-f1o 5933  df-fv 5934  df-isom 5935  df-riota 6651  df-ov 6693  df-oprab 6694  df-mpt2 6695  df-of 6939  df-om 7108  df-1st 7210  df-2nd 7211  df-wrecs 7452  df-recs 7513  df-rdg 7551  df-1o 7605  df-oadd 7609  df-er 7787  df-map 7901  df-pm 7902  df-en 7998  df-dom 7999  df-sdom 8000  df-fin 8001  df-sup 8389  df-inf 8390  df-oi 8456  df-card 8803  df-pnf 10114  df-mnf 10115  df-xr 10116  df-ltxr 10117  df-le 10118  df-sub 10306  df-neg 10307  df-div 10723  df-nn 11059  df-2 11117  df-3 11118  df-4 11119  df-5 11120  df-6 11121  df-7 11122  df-8 11123  df-9 11124  df-n0 11331  df-z 11416  df-dec 11532  df-uz 11726  df-rp 11871  df-fz 12365  df-fzo 12505  df-fl 12633  df-seq 12842  df-exp 12901  df-hash 13158  df-cj 13883  df-re 13884  df-im 13885  df-sqrt 14019  df-abs 14020  df-clim 14263  df-rlim 14264  df-sum 14461  df-struct 15906  df-ndx 15907  df-slot 15908  df-base 15910  df-sets 15911  df-ress 15912  df-plusg 16001  df-mulr 16002  df-starv 16003  df-tset 16007  df-ple 16008  df-ds 16011  df-unif 16012  df-0g 16149  df-mgm 17289  df-sgrp 17331  df-mnd 17342  df-grp 17472  df-minusg 17473  df-subg 17638  df-cmn 18241  df-mgp 18536  df-ur 18548  df-ring 18595  df-cring 18596  df-subrg 18826  df-rgspn 18827  df-cnfld 19795  df-0p 23482  df-ply 23989  df-idp 23990  df-coe 23991  df-dgr 23992
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator