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 36762
 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 2673 . 2 (𝜑 → (𝑉𝑆𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
3 cnring 19587 . . . . . . 7 fld ∈ Ring
43a1i 11 . . . . . 6 (𝜑 → ℂfld ∈ Ring)
5 cnfldbas 19571 . . . . . . 7 ℂ = (Base‘ℂfld)
65a1i 11 . . . . . 6 (𝜑 → ℂ = (Base‘ℂfld))
7 rngunsnply.b . . . . . . . 8 (𝜑𝐵 ∈ (SubRing‘ℂfld))
85subrgss 18604 . . . . . . . 8 (𝐵 ∈ (SubRing‘ℂfld) → 𝐵 ⊆ ℂ)
97, 8syl 17 . . . . . . 7 (𝜑𝐵 ⊆ ℂ)
10 rngunsnply.x . . . . . . . 8 (𝜑𝑋 ∈ ℂ)
1110snssd 4281 . . . . . . 7 (𝜑 → {𝑋} ⊆ ℂ)
129, 11unssd 3751 . . . . . 6 (𝜑 → (𝐵 ∪ {𝑋}) ⊆ ℂ)
13 eqidd 2611 . . . . . 6 (𝜑 → (RingSpan‘ℂfld) = (RingSpan‘ℂfld))
14 eqidd 2611 . . . . . 6 (𝜑 → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) = ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
15 eqidd 2611 . . . . . . 7 (𝜑 → (ℂflds {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) = (ℂflds {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}))
16 cnfld0 19589 . . . . . . . 8 0 = (0g‘ℂfld)
1716a1i 11 . . . . . . 7 (𝜑 → 0 = (0g‘ℂfld))
18 cnfldadd 19572 . . . . . . . 8 + = (+g‘ℂfld)
1918a1i 11 . . . . . . 7 (𝜑 → + = (+g‘ℂfld))
20 plyf 23758 . . . . . . . . . . . 12 (𝑝 ∈ (Poly‘𝐵) → 𝑝:ℂ⟶ℂ)
21 ffvelrn 6265 . . . . . . . . . . . 12 ((𝑝:ℂ⟶ℂ ∧ 𝑋 ∈ ℂ) → (𝑝𝑋) ∈ ℂ)
2220, 10, 21syl2anr 494 . . . . . . . . . . 11 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑝𝑋) ∈ ℂ)
23 eleq1 2676 . . . . . . . . . . 11 (𝑎 = (𝑝𝑋) → (𝑎 ∈ ℂ ↔ (𝑝𝑋) ∈ ℂ))
2422, 23syl5ibrcom 236 . . . . . . . . . 10 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑎 = (𝑝𝑋) → 𝑎 ∈ ℂ))
2524rexlimdva 3013 . . . . . . . . 9 (𝜑 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) → 𝑎 ∈ ℂ))
2625ss2abdv 3638 . . . . . . . 8 (𝜑 → {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ⊆ {𝑎𝑎 ∈ ℂ})
27 abid2 2732 . . . . . . . . 9 {𝑎𝑎 ∈ ℂ} = ℂ
2827, 5eqtri 2632 . . . . . . . 8 {𝑎𝑎 ∈ ℂ} = (Base‘ℂfld)
2926, 28syl6sseq 3614 . . . . . . 7 (𝜑 → {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ⊆ (Base‘ℂfld))
30 abid2 2732 . . . . . . . . 9 {𝑎𝑎𝐵} = 𝐵
31 plyconst 23766 . . . . . . . . . . . . 13 ((𝐵 ⊆ ℂ ∧ 𝑎𝐵) → (ℂ × {𝑎}) ∈ (Poly‘𝐵))
329, 31sylan 487 . . . . . . . . . . . 12 ((𝜑𝑎𝐵) → (ℂ × {𝑎}) ∈ (Poly‘𝐵))
3310adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑎𝐵) → 𝑋 ∈ ℂ)
34 vex 3176 . . . . . . . . . . . . . . 15 𝑎 ∈ V
3534fvconst2 6374 . . . . . . . . . . . . . 14 (𝑋 ∈ ℂ → ((ℂ × {𝑎})‘𝑋) = 𝑎)
3633, 35syl 17 . . . . . . . . . . . . 13 ((𝜑𝑎𝐵) → ((ℂ × {𝑎})‘𝑋) = 𝑎)
3736eqcomd 2616 . . . . . . . . . . . 12 ((𝜑𝑎𝐵) → 𝑎 = ((ℂ × {𝑎})‘𝑋))
38 fveq1 6102 . . . . . . . . . . . . . 14 (𝑝 = (ℂ × {𝑎}) → (𝑝𝑋) = ((ℂ × {𝑎})‘𝑋))
3938eqeq2d 2620 . . . . . . . . . . . . 13 (𝑝 = (ℂ × {𝑎}) → (𝑎 = (𝑝𝑋) ↔ 𝑎 = ((ℂ × {𝑎})‘𝑋)))
4039rspcev 3282 . . . . . . . . . . . 12 (((ℂ × {𝑎}) ∈ (Poly‘𝐵) ∧ 𝑎 = ((ℂ × {𝑎})‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋))
4132, 37, 40syl2anc 691 . . . . . . . . . . 11 ((𝜑𝑎𝐵) → ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋))
4241ex 449 . . . . . . . . . 10 (𝜑 → (𝑎𝐵 → ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)))
4342ss2abdv 3638 . . . . . . . . 9 (𝜑 → {𝑎𝑎𝐵} ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
4430, 43syl5eqssr 3613 . . . . . . . 8 (𝜑𝐵 ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
45 subrgsubg 18609 . . . . . . . . . 10 (𝐵 ∈ (SubRing‘ℂfld) → 𝐵 ∈ (SubGrp‘ℂfld))
467, 45syl 17 . . . . . . . . 9 (𝜑𝐵 ∈ (SubGrp‘ℂfld))
4716subg0cl 17425 . . . . . . . . 9 (𝐵 ∈ (SubGrp‘ℂfld) → 0 ∈ 𝐵)
4846, 47syl 17 . . . . . . . 8 (𝜑 → 0 ∈ 𝐵)
4944, 48sseldd 3569 . . . . . . 7 (𝜑 → 0 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
50 biid 250 . . . . . . . . 9 (𝜑𝜑)
51 vex 3176 . . . . . . . . . 10 𝑏 ∈ V
52 eqeq1 2614 . . . . . . . . . . . 12 (𝑎 = 𝑏 → (𝑎 = (𝑝𝑋) ↔ 𝑏 = (𝑝𝑋)))
5352rexbidv 3034 . . . . . . . . . . 11 (𝑎 = 𝑏 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑏 = (𝑝𝑋)))
54 fveq1 6102 . . . . . . . . . . . . 13 (𝑝 = 𝑒 → (𝑝𝑋) = (𝑒𝑋))
5554eqeq2d 2620 . . . . . . . . . . . 12 (𝑝 = 𝑒 → (𝑏 = (𝑝𝑋) ↔ 𝑏 = (𝑒𝑋)))
5655cbvrexv 3148 . . . . . . . . . . 11 (∃𝑝 ∈ (Poly‘𝐵)𝑏 = (𝑝𝑋) ↔ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋))
5753, 56syl6bb 275 . . . . . . . . . 10 (𝑎 = 𝑏 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋)))
5851, 57elab 3319 . . . . . . . . 9 (𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋))
59 vex 3176 . . . . . . . . . 10 𝑐 ∈ V
60 eqeq1 2614 . . . . . . . . . . . 12 (𝑎 = 𝑐 → (𝑎 = (𝑝𝑋) ↔ 𝑐 = (𝑝𝑋)))
6160rexbidv 3034 . . . . . . . . . . 11 (𝑎 = 𝑐 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑐 = (𝑝𝑋)))
62 fveq1 6102 . . . . . . . . . . . . 13 (𝑝 = 𝑑 → (𝑝𝑋) = (𝑑𝑋))
6362eqeq2d 2620 . . . . . . . . . . . 12 (𝑝 = 𝑑 → (𝑐 = (𝑝𝑋) ↔ 𝑐 = (𝑑𝑋)))
6463cbvrexv 3148 . . . . . . . . . . 11 (∃𝑝 ∈ (Poly‘𝐵)𝑐 = (𝑝𝑋) ↔ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋))
6561, 64syl6bb 275 . . . . . . . . . 10 (𝑎 = 𝑐 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋)))
6659, 65elab 3319 . . . . . . . . 9 (𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋))
67 simplr 788 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑒 ∈ (Poly‘𝐵))
68 simpr 476 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑑 ∈ (Poly‘𝐵))
6918subrgacl 18614 . . . . . . . . . . . . . . . . . . . 20 ((𝐵 ∈ (SubRing‘ℂfld) ∧ 𝑎𝐵𝑏𝐵) → (𝑎 + 𝑏) ∈ 𝐵)
70693expb 1258 . . . . . . . . . . . . . . . . . . 19 ((𝐵 ∈ (SubRing‘ℂfld) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
717, 70sylan 487 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
7271adantlr 747 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
7372adantlr 747 . . . . . . . . . . . . . . . 16 ((((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 + 𝑏) ∈ 𝐵)
7467, 68, 73plyadd 23777 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑒𝑓 + 𝑑) ∈ (Poly‘𝐵))
75 plyf 23758 . . . . . . . . . . . . . . . . . . 19 (𝑒 ∈ (Poly‘𝐵) → 𝑒:ℂ⟶ℂ)
76 ffn 5958 . . . . . . . . . . . . . . . . . . 19 (𝑒:ℂ⟶ℂ → 𝑒 Fn ℂ)
7775, 76syl 17 . . . . . . . . . . . . . . . . . 18 (𝑒 ∈ (Poly‘𝐵) → 𝑒 Fn ℂ)
7877ad2antlr 759 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑒 Fn ℂ)
79 plyf 23758 . . . . . . . . . . . . . . . . . . 19 (𝑑 ∈ (Poly‘𝐵) → 𝑑:ℂ⟶ℂ)
80 ffn 5958 . . . . . . . . . . . . . . . . . . 19 (𝑑:ℂ⟶ℂ → 𝑑 Fn ℂ)
8179, 80syl 17 . . . . . . . . . . . . . . . . . 18 (𝑑 ∈ (Poly‘𝐵) → 𝑑 Fn ℂ)
8281adantl 481 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑑 Fn ℂ)
83 cnex 9896 . . . . . . . . . . . . . . . . . 18 ℂ ∈ V
8483a1i 11 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ℂ ∈ V)
8510ad2antrr 758 . . . . . . . . . . . . . . . . 17 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → 𝑋 ∈ ℂ)
86 fnfvof 6809 . . . . . . . . . . . . . . . . 17 (((𝑒 Fn ℂ ∧ 𝑑 Fn ℂ) ∧ (ℂ ∈ V ∧ 𝑋 ∈ ℂ)) → ((𝑒𝑓 + 𝑑)‘𝑋) = ((𝑒𝑋) + (𝑑𝑋)))
8778, 82, 84, 85, 86syl22anc 1319 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒𝑓 + 𝑑)‘𝑋) = ((𝑒𝑋) + (𝑑𝑋)))
8887eqcomd 2616 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒𝑋) + (𝑑𝑋)) = ((𝑒𝑓 + 𝑑)‘𝑋))
89 fveq1 6102 . . . . . . . . . . . . . . . . 17 (𝑝 = (𝑒𝑓 + 𝑑) → (𝑝𝑋) = ((𝑒𝑓 + 𝑑)‘𝑋))
9089eqeq2d 2620 . . . . . . . . . . . . . . . 16 (𝑝 = (𝑒𝑓 + 𝑑) → (((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋) ↔ ((𝑒𝑋) + (𝑑𝑋)) = ((𝑒𝑓 + 𝑑)‘𝑋)))
9190rspcev 3282 . . . . . . . . . . . . . . 15 (((𝑒𝑓 + 𝑑) ∈ (Poly‘𝐵) ∧ ((𝑒𝑋) + (𝑑𝑋)) = ((𝑒𝑓 + 𝑑)‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋))
9274, 88, 91syl2anc 691 . . . . . . . . . . . . . 14 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋))
93 oveq2 6557 . . . . . . . . . . . . . . . 16 (𝑐 = (𝑑𝑋) → ((𝑒𝑋) + 𝑐) = ((𝑒𝑋) + (𝑑𝑋)))
9493eqeq1d 2612 . . . . . . . . . . . . . . 15 (𝑐 = (𝑑𝑋) → (((𝑒𝑋) + 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋)))
9594rexbidv 3034 . . . . . . . . . . . . . 14 (𝑐 = (𝑑𝑋) → (∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + (𝑑𝑋)) = (𝑝𝑋)))
9692, 95syl5ibrcom 236 . . . . . . . . . . . . 13 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
9796rexlimdva 3013 . . . . . . . . . . . 12 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
98 oveq1 6556 . . . . . . . . . . . . . . 15 (𝑏 = (𝑒𝑋) → (𝑏 + 𝑐) = ((𝑒𝑋) + 𝑐))
9998eqeq1d 2612 . . . . . . . . . . . . . 14 (𝑏 = (𝑒𝑋) → ((𝑏 + 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
10099rexbidv 3034 . . . . . . . . . . . . 13 (𝑏 = (𝑒𝑋) → (∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋)))
101100imbi2d 329 . . . . . . . . . . . 12 (𝑏 = (𝑒𝑋) → ((∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋)) ↔ (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) + 𝑐) = (𝑝𝑋))))
10297, 101syl5ibrcom 236 . . . . . . . . . . 11 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))))
103102rexlimdva 3013 . . . . . . . . . 10 (𝜑 → (∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))))
1041033imp 1249 . . . . . . . . 9 ((𝜑 ∧ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) ∧ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))
10550, 58, 66, 104syl3anb 1361 . . . . . . . 8 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))
106 ovex 6577 . . . . . . . . 9 (𝑏 + 𝑐) ∈ V
107 eqeq1 2614 . . . . . . . . . 10 (𝑎 = (𝑏 + 𝑐) → (𝑎 = (𝑝𝑋) ↔ (𝑏 + 𝑐) = (𝑝𝑋)))
108107rexbidv 3034 . . . . . . . . 9 (𝑎 = (𝑏 + 𝑐) → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋)))
109106, 108elab 3319 . . . . . . . 8 ((𝑏 + 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 + 𝑐) = (𝑝𝑋))
110105, 109sylibr 223 . . . . . . 7 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → (𝑏 + 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
111 ax-1cn 9873 . . . . . . . . . . . . . . . . . 18 1 ∈ ℂ
112 cnfldneg 19591 . . . . . . . . . . . . . . . . . 18 (1 ∈ ℂ → ((invg‘ℂfld)‘1) = -1)
113111, 112mp1i 13 . . . . . . . . . . . . . . . . 17 (𝜑 → ((invg‘ℂfld)‘1) = -1)
114 cnfld1 19590 . . . . . . . . . . . . . . . . . . . 20 1 = (1r‘ℂfld)
115114subrg1cl 18611 . . . . . . . . . . . . . . . . . . 19 (𝐵 ∈ (SubRing‘ℂfld) → 1 ∈ 𝐵)
1167, 115syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑 → 1 ∈ 𝐵)
117 eqid 2610 . . . . . . . . . . . . . . . . . . 19 (invg‘ℂfld) = (invg‘ℂfld)
118117subginvcl 17426 . . . . . . . . . . . . . . . . . 18 ((𝐵 ∈ (SubGrp‘ℂfld) ∧ 1 ∈ 𝐵) → ((invg‘ℂfld)‘1) ∈ 𝐵)
11946, 116, 118syl2anc 691 . . . . . . . . . . . . . . . . 17 (𝜑 → ((invg‘ℂfld)‘1) ∈ 𝐵)
120113, 119eqeltrrd 2689 . . . . . . . . . . . . . . . 16 (𝜑 → -1 ∈ 𝐵)
121 plyconst 23766 . . . . . . . . . . . . . . . 16 ((𝐵 ⊆ ℂ ∧ -1 ∈ 𝐵) → (ℂ × {-1}) ∈ (Poly‘𝐵))
1229, 120, 121syl2anc 691 . . . . . . . . . . . . . . 15 (𝜑 → (ℂ × {-1}) ∈ (Poly‘𝐵))
123122adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (ℂ × {-1}) ∈ (Poly‘𝐵))
124 simpr 476 . . . . . . . . . . . . . 14 ((𝜑𝑒 ∈ (Poly‘𝐵)) → 𝑒 ∈ (Poly‘𝐵))
125 cnfldmul 19573 . . . . . . . . . . . . . . . . . 18 · = (.r‘ℂfld)
126125subrgmcl 18615 . . . . . . . . . . . . . . . . 17 ((𝐵 ∈ (SubRing‘ℂfld) ∧ 𝑎𝐵𝑏𝐵) → (𝑎 · 𝑏) ∈ 𝐵)
1271263expb 1258 . . . . . . . . . . . . . . . 16 ((𝐵 ∈ (SubRing‘ℂfld) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
1287, 127sylan 487 . . . . . . . . . . . . . . 15 ((𝜑 ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
129128adantlr 747 . . . . . . . . . . . . . 14 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
130123, 124, 72, 129plymul 23778 . . . . . . . . . . . . 13 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((ℂ × {-1}) ∘𝑓 · 𝑒) ∈ (Poly‘𝐵))
131 ffvelrn 6265 . . . . . . . . . . . . . . . 16 ((𝑒:ℂ⟶ℂ ∧ 𝑋 ∈ ℂ) → (𝑒𝑋) ∈ ℂ)
13275, 10, 131syl2anr 494 . . . . . . . . . . . . . . 15 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑒𝑋) ∈ ℂ)
133 cnfldneg 19591 . . . . . . . . . . . . . . 15 ((𝑒𝑋) ∈ ℂ → ((invg‘ℂfld)‘(𝑒𝑋)) = -(𝑒𝑋))
134132, 133syl 17 . . . . . . . . . . . . . 14 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((invg‘ℂfld)‘(𝑒𝑋)) = -(𝑒𝑋))
135 negex 10158 . . . . . . . . . . . . . . . . 17 -1 ∈ V
136 fnconstg 6006 . . . . . . . . . . . . . . . . 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 6809 . . . . . . . . . . . . . . . 16 ((((ℂ × {-1}) Fn ℂ ∧ 𝑒 Fn ℂ) ∧ (ℂ ∈ V ∧ 𝑋 ∈ ℂ)) → (((ℂ × {-1}) ∘𝑓 · 𝑒)‘𝑋) = (((ℂ × {-1})‘𝑋) · (𝑒𝑋)))
142137, 138, 139, 140, 141syl22anc 1319 . . . . . . . . . . . . . . 15 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (((ℂ × {-1}) ∘𝑓 · 𝑒)‘𝑋) = (((ℂ × {-1})‘𝑋) · (𝑒𝑋)))
143135fvconst2 6374 . . . . . . . . . . . . . . . . 17 (𝑋 ∈ ℂ → ((ℂ × {-1})‘𝑋) = -1)
144140, 143syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((ℂ × {-1})‘𝑋) = -1)
145144oveq1d 6564 . . . . . . . . . . . . . . 15 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (((ℂ × {-1})‘𝑋) · (𝑒𝑋)) = (-1 · (𝑒𝑋)))
146132mulm1d 10361 . . . . . . . . . . . . . . 15 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (-1 · (𝑒𝑋)) = -(𝑒𝑋))
147142, 145, 1463eqtrd 2648 . . . . . . . . . . . . . 14 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (((ℂ × {-1}) ∘𝑓 · 𝑒)‘𝑋) = -(𝑒𝑋))
148134, 147eqtr4d 2647 . . . . . . . . . . . . 13 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ((invg‘ℂfld)‘(𝑒𝑋)) = (((ℂ × {-1}) ∘𝑓 · 𝑒)‘𝑋))
149 fveq1 6102 . . . . . . . . . . . . . . 15 (𝑝 = ((ℂ × {-1}) ∘𝑓 · 𝑒) → (𝑝𝑋) = (((ℂ × {-1}) ∘𝑓 · 𝑒)‘𝑋))
150149eqeq2d 2620 . . . . . . . . . . . . . 14 (𝑝 = ((ℂ × {-1}) ∘𝑓 · 𝑒) → (((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋) ↔ ((invg‘ℂfld)‘(𝑒𝑋)) = (((ℂ × {-1}) ∘𝑓 · 𝑒)‘𝑋)))
151150rspcev 3282 . . . . . . . . . . . . 13 ((((ℂ × {-1}) ∘𝑓 · 𝑒) ∈ (Poly‘𝐵) ∧ ((invg‘ℂfld)‘(𝑒𝑋)) = (((ℂ × {-1}) ∘𝑓 · 𝑒)‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋))
152130, 148, 151syl2anc 691 . . . . . . . . . . . 12 ((𝜑𝑒 ∈ (Poly‘𝐵)) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋))
153 fveq2 6103 . . . . . . . . . . . . . 14 (𝑏 = (𝑒𝑋) → ((invg‘ℂfld)‘𝑏) = ((invg‘ℂfld)‘(𝑒𝑋)))
154153eqeq1d 2612 . . . . . . . . . . . . 13 (𝑏 = (𝑒𝑋) → (((invg‘ℂfld)‘𝑏) = (𝑝𝑋) ↔ ((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋)))
155154rexbidv 3034 . . . . . . . . . . . 12 (𝑏 = (𝑒𝑋) → (∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘(𝑒𝑋)) = (𝑝𝑋)))
156152, 155syl5ibrcom 236 . . . . . . . . . . 11 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑏 = (𝑒𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
157156rexlimdva 3013 . . . . . . . . . 10 (𝜑 → (∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
158157imp 444 . . . . . . . . 9 ((𝜑 ∧ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋))
15958, 158sylan2b 491 . . . . . . . 8 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋))
160 fvex 6113 . . . . . . . . 9 ((invg‘ℂfld)‘𝑏) ∈ V
161 eqeq1 2614 . . . . . . . . . 10 (𝑎 = ((invg‘ℂfld)‘𝑏) → (𝑎 = (𝑝𝑋) ↔ ((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
162161rexbidv 3034 . . . . . . . . 9 (𝑎 = ((invg‘ℂfld)‘𝑏) → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋)))
163160, 162elab 3319 . . . . . . . 8 (((invg‘ℂfld)‘𝑏) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)((invg‘ℂfld)‘𝑏) = (𝑝𝑋))
164159, 163sylibr 223 . . . . . . 7 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ((invg‘ℂfld)‘𝑏) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
165114a1i 11 . . . . . . 7 (𝜑 → 1 = (1r‘ℂfld))
166125a1i 11 . . . . . . 7 (𝜑 → · = (.r‘ℂfld))
16744, 116sseldd 3569 . . . . . . 7 (𝜑 → 1 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
168129adantlr 747 . . . . . . . . . . . . . . . 16 ((((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) ∧ (𝑎𝐵𝑏𝐵)) → (𝑎 · 𝑏) ∈ 𝐵)
16967, 68, 73, 168plymul 23778 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑒𝑓 · 𝑑) ∈ (Poly‘𝐵))
170 fnfvof 6809 . . . . . . . . . . . . . . . . 17 (((𝑒 Fn ℂ ∧ 𝑑 Fn ℂ) ∧ (ℂ ∈ V ∧ 𝑋 ∈ ℂ)) → ((𝑒𝑓 · 𝑑)‘𝑋) = ((𝑒𝑋) · (𝑑𝑋)))
17178, 82, 84, 85, 170syl22anc 1319 . . . . . . . . . . . . . . . 16 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒𝑓 · 𝑑)‘𝑋) = ((𝑒𝑋) · (𝑑𝑋)))
172171eqcomd 2616 . . . . . . . . . . . . . . 15 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ((𝑒𝑋) · (𝑑𝑋)) = ((𝑒𝑓 · 𝑑)‘𝑋))
173 fveq1 6102 . . . . . . . . . . . . . . . . 17 (𝑝 = (𝑒𝑓 · 𝑑) → (𝑝𝑋) = ((𝑒𝑓 · 𝑑)‘𝑋))
174173eqeq2d 2620 . . . . . . . . . . . . . . . 16 (𝑝 = (𝑒𝑓 · 𝑑) → (((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋) ↔ ((𝑒𝑋) · (𝑑𝑋)) = ((𝑒𝑓 · 𝑑)‘𝑋)))
175174rspcev 3282 . . . . . . . . . . . . . . 15 (((𝑒𝑓 · 𝑑) ∈ (Poly‘𝐵) ∧ ((𝑒𝑋) · (𝑑𝑋)) = ((𝑒𝑓 · 𝑑)‘𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋))
176169, 172, 175syl2anc 691 . . . . . . . . . . . . . 14 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋))
177 oveq2 6557 . . . . . . . . . . . . . . . 16 (𝑐 = (𝑑𝑋) → ((𝑒𝑋) · 𝑐) = ((𝑒𝑋) · (𝑑𝑋)))
178177eqeq1d 2612 . . . . . . . . . . . . . . 15 (𝑐 = (𝑑𝑋) → (((𝑒𝑋) · 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋)))
179178rexbidv 3034 . . . . . . . . . . . . . 14 (𝑐 = (𝑑𝑋) → (∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · (𝑑𝑋)) = (𝑝𝑋)))
180176, 179syl5ibrcom 236 . . . . . . . . . . . . 13 (((𝜑𝑒 ∈ (Poly‘𝐵)) ∧ 𝑑 ∈ (Poly‘𝐵)) → (𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
181180rexlimdva 3013 . . . . . . . . . . . 12 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
182 oveq1 6556 . . . . . . . . . . . . . . 15 (𝑏 = (𝑒𝑋) → (𝑏 · 𝑐) = ((𝑒𝑋) · 𝑐))
183182eqeq1d 2612 . . . . . . . . . . . . . 14 (𝑏 = (𝑒𝑋) → ((𝑏 · 𝑐) = (𝑝𝑋) ↔ ((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
184183rexbidv 3034 . . . . . . . . . . . . 13 (𝑏 = (𝑒𝑋) → (∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋)))
185184imbi2d 329 . . . . . . . . . . . 12 (𝑏 = (𝑒𝑋) → ((∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋)) ↔ (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)((𝑒𝑋) · 𝑐) = (𝑝𝑋))))
186181, 185syl5ibrcom 236 . . . . . . . . . . 11 ((𝜑𝑒 ∈ (Poly‘𝐵)) → (𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))))
187186rexlimdva 3013 . . . . . . . . . 10 (𝜑 → (∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) → (∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))))
1881873imp 1249 . . . . . . . . 9 ((𝜑 ∧ ∃𝑒 ∈ (Poly‘𝐵)𝑏 = (𝑒𝑋) ∧ ∃𝑑 ∈ (Poly‘𝐵)𝑐 = (𝑑𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))
18950, 58, 66, 188syl3anb 1361 . . . . . . . 8 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))
190 ovex 6577 . . . . . . . . 9 (𝑏 · 𝑐) ∈ V
191 eqeq1 2614 . . . . . . . . . 10 (𝑎 = (𝑏 · 𝑐) → (𝑎 = (𝑝𝑋) ↔ (𝑏 · 𝑐) = (𝑝𝑋)))
192191rexbidv 3034 . . . . . . . . 9 (𝑎 = (𝑏 · 𝑐) → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋)))
193190, 192elab 3319 . . . . . . . 8 ((𝑏 · 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)(𝑏 · 𝑐) = (𝑝𝑋))
194189, 193sylibr 223 . . . . . . 7 ((𝜑𝑏 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∧ 𝑐 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}) → (𝑏 · 𝑐) ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
19515, 17, 19, 29, 49, 110, 164, 165, 166, 167, 194, 4issubrngd2 19010 . . . . . 6 (𝜑 → {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ∈ (SubRing‘ℂfld))
196 plyid 23769 . . . . . . . . . . 11 ((𝐵 ⊆ ℂ ∧ 1 ∈ 𝐵) → Xp ∈ (Poly‘𝐵))
1979, 116, 196syl2anc 691 . . . . . . . . . 10 (𝜑Xp ∈ (Poly‘𝐵))
198 df-idp 23749 . . . . . . . . . . . 12 Xp = ( I ↾ ℂ)
199198fveq1i 6104 . . . . . . . . . . 11 (Xp𝑋) = (( I ↾ ℂ)‘𝑋)
200 fvresi 6344 . . . . . . . . . . . 12 (𝑋 ∈ ℂ → (( I ↾ ℂ)‘𝑋) = 𝑋)
20110, 200syl 17 . . . . . . . . . . 11 (𝜑 → (( I ↾ ℂ)‘𝑋) = 𝑋)
202199, 201syl5req 2657 . . . . . . . . . 10 (𝜑𝑋 = (Xp𝑋))
203 fveq1 6102 . . . . . . . . . . . 12 (𝑝 = Xp → (𝑝𝑋) = (Xp𝑋))
204203eqeq2d 2620 . . . . . . . . . . 11 (𝑝 = Xp → (𝑋 = (𝑝𝑋) ↔ 𝑋 = (Xp𝑋)))
205204rspcev 3282 . . . . . . . . . 10 ((Xp ∈ (Poly‘𝐵) ∧ 𝑋 = (Xp𝑋)) → ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋))
206197, 202, 205syl2anc 691 . . . . . . . . 9 (𝜑 → ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋))
207 eqeq1 2614 . . . . . . . . . . . 12 (𝑎 = 𝑋 → (𝑎 = (𝑝𝑋) ↔ 𝑋 = (𝑝𝑋)))
208207rexbidv 3034 . . . . . . . . . . 11 (𝑎 = 𝑋 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋)))
209208elabg 3320 . . . . . . . . . 10 (𝑋 ∈ ℂ → (𝑋 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋)))
21010, 209syl 17 . . . . . . . . 9 (𝜑 → (𝑋 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑋 = (𝑝𝑋)))
211206, 210mpbird 246 . . . . . . . 8 (𝜑𝑋 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
212211snssd 4281 . . . . . . 7 (𝜑 → {𝑋} ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
21344, 212unssd 3751 . . . . . 6 (𝜑 → (𝐵 ∪ {𝑋}) ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
2144, 6, 12, 13, 14, 195, 213rgspnmin 36760 . . . . 5 (𝜑 → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ⊆ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)})
215214sseld 3567 . . . 4 (𝜑 → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) → 𝑉 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)}))
216 fvex 6113 . . . . . . 7 (𝑝𝑋) ∈ V
217 eleq1 2676 . . . . . . 7 (𝑉 = (𝑝𝑋) → (𝑉 ∈ V ↔ (𝑝𝑋) ∈ V))
218216, 217mpbiri 247 . . . . . 6 (𝑉 = (𝑝𝑋) → 𝑉 ∈ V)
219218rexlimivw 3011 . . . . 5 (∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋) → 𝑉 ∈ V)
220 eqeq1 2614 . . . . . 6 (𝑎 = 𝑉 → (𝑎 = (𝑝𝑋) ↔ 𝑉 = (𝑝𝑋)))
221220rexbidv 3034 . . . . 5 (𝑎 = 𝑉 → (∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
222219, 221elab3 3327 . . . 4 (𝑉 ∈ {𝑎 ∣ ∃𝑝 ∈ (Poly‘𝐵)𝑎 = (𝑝𝑋)} ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋))
223215, 222syl6ib 240 . . 3 (𝜑 → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) → ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
2244, 6, 12, 13, 14rgspncl 36758 . . . . . . 7 (𝜑 → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ∈ (SubRing‘ℂfld))
225224adantr 480 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ∈ (SubRing‘ℂfld))
226 simpr 476 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → 𝑝 ∈ (Poly‘𝐵))
2274, 6, 12, 13, 14rgspnssid 36759 . . . . . . . . 9 (𝜑 → (𝐵 ∪ {𝑋}) ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
228227unssbd 3753 . . . . . . . 8 (𝜑 → {𝑋} ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
229 snidg 4153 . . . . . . . . 9 (𝑋 ∈ ℂ → 𝑋 ∈ {𝑋})
23010, 229syl 17 . . . . . . . 8 (𝜑𝑋 ∈ {𝑋})
231228, 230sseldd 3569 . . . . . . 7 (𝜑𝑋 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
232231adantr 480 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → 𝑋 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
233227unssad 3752 . . . . . . 7 (𝜑𝐵 ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
234233adantr 480 . . . . . 6 ((𝜑𝑝 ∈ (Poly‘𝐵)) → 𝐵 ⊆ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
235225, 226, 232, 234cnsrplycl 36756 . . . . 5 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑝𝑋) ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})))
236 eleq1 2676 . . . . 5 (𝑉 = (𝑝𝑋) → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ↔ (𝑝𝑋) ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
237235, 236syl5ibrcom 236 . . . 4 ((𝜑𝑝 ∈ (Poly‘𝐵)) → (𝑉 = (𝑝𝑋) → 𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
238237rexlimdva 3013 . . 3 (𝜑 → (∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋) → 𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋}))))
239223, 238impbid 201 . 2 (𝜑 → (𝑉 ∈ ((RingSpan‘ℂfld)‘(𝐵 ∪ {𝑋})) ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
2402, 239bitrd 267 1 (𝜑 → (𝑉𝑆 ↔ ∃𝑝 ∈ (Poly‘𝐵)𝑉 = (𝑝𝑋)))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ↔ wb 195   ∧ wa 383   ∧ w3a 1031   = wceq 1475   ∈ wcel 1977  {cab 2596  ∃wrex 2897  Vcvv 3173   ∪ cun 3538   ⊆ wss 3540  {csn 4125   I cid 4948   × cxp 5036   ↾ cres 5040   Fn wfn 5799  ⟶wf 5800  ‘cfv 5804  (class class class)co 6549   ∘𝑓 cof 6793  ℂcc 9813  0cc0 9815  1c1 9816   + caddc 9818   · cmul 9820  -cneg 10146  Basecbs 15695   ↾s cress 15696  +gcplusg 15768  .rcmulr 15769  0gc0g 15923  invgcminusg 17246  SubGrpcsubg 17411  1rcur 18324  Ringcrg 18370  SubRingcsubrg 18599  RingSpancrgspn 18600  ℂfldccnfld 19567  Polycply 23744  Xpcidp 23745 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-inf2 8421  ax-cnex 9871  ax-resscn 9872  ax-1cn 9873  ax-icn 9874  ax-addcl 9875  ax-addrcl 9876  ax-mulcl 9877  ax-mulrcl 9878  ax-mulcom 9879  ax-addass 9880  ax-mulass 9881  ax-distr 9882  ax-i2m1 9883  ax-1ne0 9884  ax-1rid 9885  ax-rnegex 9886  ax-rrecex 9887  ax-cnre 9888  ax-pre-lttri 9889  ax-pre-lttrn 9890  ax-pre-ltadd 9891  ax-pre-mulgt0 9892  ax-pre-sup 9893  ax-addf 9894  ax-mulf 9895 This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-fal 1481  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-int 4411  df-iun 4457  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-se 4998  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-isom 5813  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-of 6795  df-om 6958  df-1st 7059  df-2nd 7060  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-1o 7447  df-oadd 7451  df-er 7629  df-map 7746  df-pm 7747  df-en 7842  df-dom 7843  df-sdom 7844  df-fin 7845  df-sup 8231  df-inf 8232  df-oi 8298  df-card 8648  df-pnf 9955  df-mnf 9956  df-xr 9957  df-ltxr 9958  df-le 9959  df-sub 10147  df-neg 10148  df-div 10564  df-nn 10898  df-2 10956  df-3 10957  df-4 10958  df-5 10959  df-6 10960  df-7 10961  df-8 10962  df-9 10963  df-n0 11170  df-z 11255  df-dec 11370  df-uz 11564  df-rp 11709  df-fz 12198  df-fzo 12335  df-fl 12455  df-seq 12664  df-exp 12723  df-hash 12980  df-cj 13687  df-re 13688  df-im 13689  df-sqrt 13823  df-abs 13824  df-clim 14067  df-rlim 14068  df-sum 14265  df-struct 15697  df-ndx 15698  df-slot 15699  df-base 15700  df-sets 15701  df-ress 15702  df-plusg 15781  df-mulr 15782  df-starv 15783  df-tset 15787  df-ple 15788  df-ds 15791  df-unif 15792  df-0g 15925  df-mgm 17065  df-sgrp 17107  df-mnd 17118  df-grp 17248  df-minusg 17249  df-subg 17414  df-cmn 18018  df-mgp 18313  df-ur 18325  df-ring 18372  df-cring 18373  df-subrg 18601  df-rgspn 18602  df-cnfld 19568  df-0p 23243  df-ply 23748  df-idp 23749  df-coe 23750  df-dgr 23751 This theorem is referenced by: (None)
 Copyright terms: Public domain W3C validator