Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  constrext2chnlem Structured version   Visualization version   GIF version

Theorem constrext2chnlem 33894
Description: Lemma for constrext2chn 33903. (Contributed by Thierry Arnoux, 26-Oct-2025.)
Hypotheses
Ref Expression
constr0.1 𝐶 = rec((𝑠 ∈ V ↦ {𝑥 ∈ ℂ ∣ (∃𝑎𝑠𝑏𝑠𝑐𝑠𝑑𝑠𝑡 ∈ ℝ ∃𝑟 ∈ ℝ (𝑥 = (𝑎 + (𝑡 · (𝑏𝑎))) ∧ 𝑥 = (𝑐 + (𝑟 · (𝑑𝑐))) ∧ (ℑ‘((∗‘(𝑏𝑎)) · (𝑑𝑐))) ≠ 0) ∨ ∃𝑎𝑠𝑏𝑠𝑐𝑠𝑒𝑠𝑓𝑠𝑡 ∈ ℝ (𝑥 = (𝑎 + (𝑡 · (𝑏𝑎))) ∧ (abs‘(𝑥𝑐)) = (abs‘(𝑒𝑓))) ∨ ∃𝑎𝑠𝑏𝑠𝑐𝑠𝑑𝑠𝑒𝑠𝑓𝑠 (𝑎𝑑 ∧ (abs‘(𝑥𝑎)) = (abs‘(𝑏𝑐)) ∧ (abs‘(𝑥𝑑)) = (abs‘(𝑒𝑓))))}), {0, 1})
constrextdg2.1 𝐸 = (ℂflds 𝑒)
constrextdg2.2 𝐹 = (ℂflds 𝑓)
constrextdg2.l < = {⟨𝑓, 𝑒⟩ ∣ (𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 2)}
constrextdg2.n (𝜑𝑁 ∈ ω)
constrext2chnlem.q 𝑄 = (ℂflds ℚ)
constrext2chnlem.l 𝐿 = (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))
constrext2chnlem.a (𝜑𝐴 ∈ Constr)
Assertion
Ref Expression
constrext2chnlem (𝜑 → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
Distinct variable groups:   < ,𝑎,𝑏,𝑐,𝑑,𝑒,𝑓,𝑛,𝑟,𝑠,𝑡,𝑥   𝐶,𝑎,𝑏,𝑐,𝑑,𝑒,𝑓,𝑛,𝑟,𝑠,𝑡,𝑥   𝑡,𝑁   𝐴,𝑛   𝑛,𝐿   𝑄,𝑛   𝜑,𝑛
Allowed substitution hints:   𝜑(𝑥,𝑡,𝑒,𝑓,𝑠,𝑟,𝑎,𝑏,𝑐,𝑑)   𝐴(𝑥,𝑡,𝑒,𝑓,𝑠,𝑟,𝑎,𝑏,𝑐,𝑑)   𝑄(𝑥,𝑡,𝑒,𝑓,𝑠,𝑟,𝑎,𝑏,𝑐,𝑑)   𝐸(𝑥,𝑡,𝑒,𝑓,𝑛,𝑠,𝑟,𝑎,𝑏,𝑐,𝑑)   𝐹(𝑥,𝑡,𝑒,𝑓,𝑛,𝑠,𝑟,𝑎,𝑏,𝑐,𝑑)   𝐿(𝑥,𝑡,𝑒,𝑓,𝑠,𝑟,𝑎,𝑏,𝑐,𝑑)   𝑁(𝑥,𝑒,𝑓,𝑛,𝑠,𝑟,𝑎,𝑏,𝑐,𝑑)

Proof of Theorem constrext2chnlem
Dummy variables 𝑣 𝑚 𝑝 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 2prm 16661 . . . . . 6 2 ∈ ℙ
21a1i 11 . . . . 5 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → 2 ∈ ℙ)
3 constrext2chnlem.l . . . . . . 7 𝐿 = (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))
4 constrext2chnlem.q . . . . . . 7 𝑄 = (ℂflds ℚ)
53, 4oveq12i 7379 . . . . . 6 (𝐿[:]𝑄) = ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))
6 cnfldbas 21356 . . . . . . . . . 10 ℂ = (Base‘ℂfld)
7 eqid 2736 . . . . . . . . . 10 (ℂflds ℚ) = (ℂflds ℚ)
8 eqid 2736 . . . . . . . . . 10 (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))) = (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))
9 cnfldfld 33402 . . . . . . . . . . 11 fld ∈ Field
109a1i 11 . . . . . . . . . 10 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℂfld ∈ Field)
11 cndrng 21381 . . . . . . . . . . . 12 fld ∈ DivRing
12 qsubdrg 21399 . . . . . . . . . . . . 13 (ℚ ∈ (SubRing‘ℂfld) ∧ (ℂflds ℚ) ∈ DivRing)
1312simpli 483 . . . . . . . . . . . 12 ℚ ∈ (SubRing‘ℂfld)
1412simpri 485 . . . . . . . . . . . 12 (ℂflds ℚ) ∈ DivRing
15 issdrg 20765 . . . . . . . . . . . 12 (ℚ ∈ (SubDRing‘ℂfld) ↔ (ℂfld ∈ DivRing ∧ ℚ ∈ (SubRing‘ℂfld) ∧ (ℂflds ℚ) ∈ DivRing))
1611, 13, 14, 15mpbir3an 1343 . . . . . . . . . . 11 ℚ ∈ (SubDRing‘ℂfld)
1716a1i 11 . . . . . . . . . 10 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℚ ∈ (SubDRing‘ℂfld))
18 constr0.1 . . . . . . . . . . . . . 14 𝐶 = rec((𝑠 ∈ V ↦ {𝑥 ∈ ℂ ∣ (∃𝑎𝑠𝑏𝑠𝑐𝑠𝑑𝑠𝑡 ∈ ℝ ∃𝑟 ∈ ℝ (𝑥 = (𝑎 + (𝑡 · (𝑏𝑎))) ∧ 𝑥 = (𝑐 + (𝑟 · (𝑑𝑐))) ∧ (ℑ‘((∗‘(𝑏𝑎)) · (𝑑𝑐))) ≠ 0) ∨ ∃𝑎𝑠𝑏𝑠𝑐𝑠𝑒𝑠𝑓𝑠𝑡 ∈ ℝ (𝑥 = (𝑎 + (𝑡 · (𝑏𝑎))) ∧ (abs‘(𝑥𝑐)) = (abs‘(𝑒𝑓))) ∨ ∃𝑎𝑠𝑏𝑠𝑐𝑠𝑑𝑠𝑒𝑠𝑓𝑠 (𝑎𝑑 ∧ (abs‘(𝑥𝑎)) = (abs‘(𝑏𝑐)) ∧ (abs‘(𝑥𝑑)) = (abs‘(𝑒𝑓))))}), {0, 1})
19 nnon 7823 . . . . . . . . . . . . . . 15 (𝑚 ∈ ω → 𝑚 ∈ On)
2019adantl 481 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ω) → 𝑚 ∈ On)
2118, 20constrsscn 33884 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ω) → (𝐶𝑚) ⊆ ℂ)
2221sselda 3921 . . . . . . . . . . . 12 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → 𝐴 ∈ ℂ)
2322snssd 4730 . . . . . . . . . . 11 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → {𝐴} ⊆ ℂ)
2423ad2antrr 727 . . . . . . . . . 10 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → {𝐴} ⊆ ℂ)
256, 7, 8, 10, 17, 24fldgenfldext 33812 . . . . . . . . 9 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))/FldExt(ℂflds ℚ))
2625ad2antrr 727 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))/FldExt(ℂflds ℚ))
27 extdgcl 33800 . . . . . . . 8 ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))/FldExt(ℂflds ℚ) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℕ0*)
2826, 27syl 17 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℕ0*)
29 simpr 484 . . . . . . . . . 10 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝))
30 2z 12559 . . . . . . . . . . . 12 2 ∈ ℤ
3130a1i 11 . . . . . . . . . . 11 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → 2 ∈ ℤ)
32 simplr 769 . . . . . . . . . . 11 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → 𝑝 ∈ ℕ0)
3331, 32zexpcld 14049 . . . . . . . . . 10 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (2↑𝑝) ∈ ℤ)
3429, 33eqeltrd 2836 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) ∈ ℤ)
3534zred 12633 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) ∈ ℝ)
36 xnn0xr 12515 . . . . . . . . 9 (((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℕ0* → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℝ*)
3726, 27, 363syl 18 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℝ*)
38 eqid 2736 . . . . . . . . . . . . 13 (Base‘(ℂflds (lastS‘𝑣))) = (Base‘(ℂflds (lastS‘𝑣)))
39 constrextdg2.1 . . . . . . . . . . . . . . . 16 𝐸 = (ℂflds 𝑒)
40 constrextdg2.2 . . . . . . . . . . . . . . . 16 𝐹 = (ℂflds 𝑓)
41 constrextdg2.l . . . . . . . . . . . . . . . 16 < = {⟨𝑓, 𝑒⟩ ∣ (𝐸/FldExt𝐹 ∧ (𝐸[:]𝐹) = 2)}
42 simplr 769 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝑣 ∈ ( < Chain (SubDRing‘ℂfld)))
43 simprl 771 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (𝑣‘0) = ℚ)
4443oveq2d 7383 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (𝑣‘0)) = (ℂflds ℚ))
45 eqidd 2737 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣)) = (ℂflds (lastS‘𝑣)))
46 simpr 484 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → 𝑣 = ∅)
4746fveq1d 6842 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) = (∅‘0))
48 0fv 6881 . . . . . . . . . . . . . . . . . . . . 21 (∅‘0) = ∅
4948a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (∅‘0) = ∅)
5047, 49eqtrd 2771 . . . . . . . . . . . . . . . . . . 19 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) = ∅)
5143adantr 480 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) = ℚ)
52 1nn 12185 . . . . . . . . . . . . . . . . . . . . . . . 24 1 ∈ ℕ
53 nnq 12912 . . . . . . . . . . . . . . . . . . . . . . . 24 (1 ∈ ℕ → 1 ∈ ℚ)
5452, 53ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . 23 1 ∈ ℚ
5554ne0ii 4284 . . . . . . . . . . . . . . . . . . . . . 22 ℚ ≠ ∅
5655a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → ℚ ≠ ∅)
5751, 56eqnetrd 2999 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) ≠ ∅)
5857neneqd 2937 . . . . . . . . . . . . . . . . . . 19 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → ¬ (𝑣‘0) = ∅)
5950, 58pm2.65da 817 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ¬ 𝑣 = ∅)
6059neqned 2939 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝑣 ≠ ∅)
6142, 60hashne0 32883 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 0 < (♯‘𝑣))
6239, 40, 41, 42, 10, 44, 45, 61fldext2chn 33872 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ((ℂflds (lastS‘𝑣))/FldExt(ℂflds ℚ) ∧ ∃𝑝 ∈ ℕ0 ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)))
6362simpld 494 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣))/FldExt(ℂflds ℚ))
64 fldextfld1 33791 . . . . . . . . . . . . . 14 ((ℂflds (lastS‘𝑣))/FldExt(ℂflds ℚ) → (ℂflds (lastS‘𝑣)) ∈ Field)
6563, 64syl 17 . . . . . . . . . . . . 13 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣)) ∈ Field)
6642chnwrd 18574 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝑣 ∈ Word (SubDRing‘ℂfld))
67 lswcl 14530 . . . . . . . . . . . . . . 15 ((𝑣 ∈ Word (SubDRing‘ℂfld) ∧ 𝑣 ≠ ∅) → (lastS‘𝑣) ∈ (SubDRing‘ℂfld))
6866, 60, 67syl2anc 585 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) ∈ (SubDRing‘ℂfld))
6911a1i 11 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℂfld ∈ DivRing)
70 qsscn 12910 . . . . . . . . . . . . . . . . . 18 ℚ ⊆ ℂ
7170a1i 11 . . . . . . . . . . . . . . . . 17 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → ℚ ⊆ ℂ)
7271, 23unssd 4132 . . . . . . . . . . . . . . . 16 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → (ℚ ∪ {𝐴}) ⊆ ℂ)
7372ad2antrr 727 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℚ ∪ {𝐴}) ⊆ ℂ)
746, 69, 73fldgensdrg 33375 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘ℂfld))
757qrngbas 27582 . . . . . . . . . . . . . . . . . . 19 ℚ = (Base‘(ℂflds ℚ))
7675, 63fldextsdrg 33798 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℚ ∈ (SubDRing‘(ℂflds (lastS‘𝑣))))
7738sdrgss 20770 . . . . . . . . . . . . . . . . . 18 (ℚ ∈ (SubDRing‘(ℂflds (lastS‘𝑣))) → ℚ ⊆ (Base‘(ℂflds (lastS‘𝑣))))
7876, 77syl 17 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℚ ⊆ (Base‘(ℂflds (lastS‘𝑣))))
796sdrgss 20770 . . . . . . . . . . . . . . . . . . 19 ((lastS‘𝑣) ∈ (SubDRing‘ℂfld) → (lastS‘𝑣) ⊆ ℂ)
8068, 79syl 17 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) ⊆ ℂ)
81 eqid 2736 . . . . . . . . . . . . . . . . . . 19 (ℂflds (lastS‘𝑣)) = (ℂflds (lastS‘𝑣))
8281, 6ressbas2 17208 . . . . . . . . . . . . . . . . . 18 ((lastS‘𝑣) ⊆ ℂ → (lastS‘𝑣) = (Base‘(ℂflds (lastS‘𝑣))))
8380, 82syl 17 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) = (Base‘(ℂflds (lastS‘𝑣))))
8478, 83sseqtrrd 3959 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℚ ⊆ (lastS‘𝑣))
85 simprr 773 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (𝐶𝑚) ⊆ (lastS‘𝑣))
86 simpllr 776 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝐴 ∈ (𝐶𝑚))
8785, 86sseldd 3922 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝐴 ∈ (lastS‘𝑣))
8887snssd 4730 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → {𝐴} ⊆ (lastS‘𝑣))
8984, 88unssd 4132 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℚ ∪ {𝐴}) ⊆ (lastS‘𝑣))
906, 69, 68, 89fldgenssp 33379 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ⊆ (lastS‘𝑣))
91 id 22 . . . . . . . . . . . . . . . 16 ((lastS‘𝑣) ∈ (SubDRing‘ℂfld) → (lastS‘𝑣) ∈ (SubDRing‘ℂfld))
9281, 91subsdrg 33359 . . . . . . . . . . . . . . 15 ((lastS‘𝑣) ∈ (SubDRing‘ℂfld) → ((ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘(ℂflds (lastS‘𝑣))) ↔ ((ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘ℂfld) ∧ (ℂfld fldGen (ℚ ∪ {𝐴})) ⊆ (lastS‘𝑣))))
9392biimpar 477 . . . . . . . . . . . . . 14 (((lastS‘𝑣) ∈ (SubDRing‘ℂfld) ∧ ((ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘ℂfld) ∧ (ℂfld fldGen (ℚ ∪ {𝐴})) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘(ℂflds (lastS‘𝑣))))
9468, 74, 90, 93syl12anc 837 . . . . . . . . . . . . 13 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘(ℂflds (lastS‘𝑣))))
9538, 65, 94sdrgfldext 33794 . . . . . . . . . . . 12 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣))/FldExt((ℂflds (lastS‘𝑣)) ↾s (ℂfld fldGen (ℚ ∪ {𝐴}))))
9668elexd 3453 . . . . . . . . . . . . 13 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) ∈ V)
97 ressabs 17218 . . . . . . . . . . . . 13 (((lastS‘𝑣) ∈ V ∧ (ℂfld fldGen (ℚ ∪ {𝐴})) ⊆ (lastS‘𝑣)) → ((ℂflds (lastS‘𝑣)) ↾s (ℂfld fldGen (ℚ ∪ {𝐴}))) = (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
9896, 90, 97syl2anc 585 . . . . . . . . . . . 12 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ((ℂflds (lastS‘𝑣)) ↾s (ℂfld fldGen (ℚ ∪ {𝐴}))) = (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
9995, 98breqtrd 5111 . . . . . . . . . . 11 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣))/FldExt(ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
10099ad2antrr 727 . . . . . . . . . 10 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (ℂflds (lastS‘𝑣))/FldExt(ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
101 extdgcl 33800 . . . . . . . . . 10 ((ℂflds (lastS‘𝑣))/FldExt(ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℕ0*)
102100, 101syl 17 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℕ0*)
103 xnn0xr 12515 . . . . . . . . 9 (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℕ0* → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℝ*)
104102, 103syl 17 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℝ*)
105 extdggt0 33801 . . . . . . . . 9 ((ℂflds (lastS‘𝑣))/FldExt(ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))) → 0 < ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))))
106100, 105syl 17 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → 0 < ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))))
107 extdgmul 33807 . . . . . . . . . . 11 (((ℂflds (lastS‘𝑣))/FldExt(ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))) ∧ (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))/FldExt(ℂflds ℚ)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ·e ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))))
10899, 25, 107syl2anc 585 . . . . . . . . . 10 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ·e ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))))
109108ad2antrr 727 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ·e ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))))
110 xmulcom 13218 . . . . . . . . . 10 ((((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℝ* ∧ ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℝ*) → (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ·e ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))) = (((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ·e ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))))
111104, 37, 110syl2anc 585 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ·e ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))) = (((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ·e ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))))
112109, 111eqtrd 2771 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ·e ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))))
11335, 37, 104, 106, 112rexmul2 32827 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℝ)
114 extdggt0 33801 . . . . . . . 8 ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))/FldExt(ℂflds ℚ) → 0 < ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)))
11526, 114syl 17 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → 0 < ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)))
11628, 113, 115xnn0nnd 32846 . . . . . 6 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℕ)
1175, 116eqeltrid 2840 . . . . 5 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (𝐿[:]𝑄) ∈ ℕ)
11835, 104, 37, 115, 109rexmul2 32827 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℝ)
119102, 118xnn0nn0d 32845 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℕ0)
120119nn0zd 12549 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℤ)
121116nnnn0d 12498 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℕ0)
122121nn0zd 12549 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℤ)
123 rexmul 13223 . . . . . . . . . . 11 ((((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℝ ∧ ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℝ) → (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ·e ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))) = (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) · ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))))
124118, 113, 123syl2anc 585 . . . . . . . . . 10 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ·e ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))) = (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) · ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))))
125109, 124eqtrd 2771 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) · ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))))
126125eqcomd 2742 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) · ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))) = ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)))
127126, 29eqtrd 2771 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) · ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))) = (2↑𝑝))
128 dvds0lem 16235 . . . . . . 7 (((((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℤ ∧ ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℤ ∧ (2↑𝑝) ∈ ℤ) ∧ (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) · ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∥ (2↑𝑝))
129120, 122, 33, 127, 128syl31anc 1376 . . . . . 6 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∥ (2↑𝑝))
1305, 129eqbrtrid 5120 . . . . 5 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (𝐿[:]𝑄) ∥ (2↑𝑝))
131 dvdsprmpweq 16855 . . . . . 6 ((2 ∈ ℙ ∧ (𝐿[:]𝑄) ∈ ℕ ∧ 𝑝 ∈ ℕ0) → ((𝐿[:]𝑄) ∥ (2↑𝑝) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛)))
132131imp 406 . . . . 5 (((2 ∈ ℙ ∧ (𝐿[:]𝑄) ∈ ℕ ∧ 𝑝 ∈ ℕ0) ∧ (𝐿[:]𝑄) ∥ (2↑𝑝)) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
1332, 117, 32, 130, 132syl31anc 1376 . . . 4 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
13462simprd 495 . . . 4 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ∃𝑝 ∈ ℕ0 ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝))
135133, 134r19.29a 3145 . . 3 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
136 simplr 769 . . . 4 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → 𝑚 ∈ ω)
13718, 39, 40, 41, 136constrextdg2 33893 . . 3 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → ∃𝑣 ∈ ( < Chain (SubDRing‘ℂfld))((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣)))
138135, 137r19.29a 3145 . 2 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
139 constrext2chnlem.a . . 3 (𝜑𝐴 ∈ Constr)
14018isconstr 33880 . . 3 (𝐴 ∈ Constr ↔ ∃𝑚 ∈ ω 𝐴 ∈ (𝐶𝑚))
141139, 140sylib 218 . 2 (𝜑 → ∃𝑚 ∈ ω 𝐴 ∈ (𝐶𝑚))
142138, 141r19.29a 3145 1 (𝜑 → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395  w3o 1086  w3a 1087   = wceq 1542  wcel 2114  wne 2932  wrex 3061  {crab 3389  Vcvv 3429  cun 3887  wss 3889  c0 4273  {csn 4567  {cpr 4569   class class class wbr 5085  {copab 5147  cmpt 5166  Oncon0 6323  cfv 6498  (class class class)co 7367  ωcom 7817  reccrdg 8348  cc 11036  cr 11037  0cc0 11038  1c1 11039   + caddc 11041   · cmul 11043  *cxr 11178   < clt 11179  cmin 11377  cn 12174  2c2 12236  0cn0 12437  0*cxnn0 12510  cz 12524  cq 12898   ·e cxmu 13062  cexp 14023  Word cword 14475  lastSclsw 14524  ccj 15058  cim 15060  abscabs 15196  cdvds 16221  cprime 16640  Basecbs 17179  s cress 17200   Chain cchn 18571  SubRingcsubrg 20546  DivRingcdr 20706  Fieldcfield 20707  SubDRingcsdrg 20763  fldccnfld 21352   fldGen cfldgen 33371  /FldExtcfldext 33782  [:]cextdg 33784  Constrcconstr 33873
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2708  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5307  ax-pr 5375  ax-un 7689  ax-reg 9507  ax-inf2 9562  ax-ac2 10385  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115  ax-pre-sup 11116  ax-addf 11117  ax-mulf 11118
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2539  df-eu 2569  df-clab 2715  df-cleq 2728  df-clel 2811  df-nfc 2885  df-ne 2933  df-nel 3037  df-ral 3052  df-rex 3062  df-rmo 3342  df-reu 3343  df-rab 3390  df-v 3431  df-sbc 3729  df-csb 3838  df-dif 3892  df-un 3894  df-in 3896  df-ss 3906  df-pss 3909  df-nul 4274  df-if 4467  df-pw 4543  df-sn 4568  df-pr 4570  df-tp 4572  df-op 4574  df-uni 4851  df-int 4890  df-iun 4935  df-iin 4936  df-br 5086  df-opab 5148  df-mpt 5167  df-tr 5193  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-se 5585  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6265  df-ord 6326  df-on 6327  df-lim 6328  df-suc 6329  df-iota 6454  df-fun 6500  df-fn 6501  df-f 6502  df-f1 6503  df-fo 6504  df-f1o 6505  df-fv 6506  df-isom 6507  df-riota 7324  df-ov 7370  df-oprab 7371  df-mpo 7372  df-of 7631  df-ofr 7632  df-rpss 7677  df-om 7818  df-1st 7942  df-2nd 7943  df-supp 8111  df-tpos 8176  df-frecs 8231  df-wrecs 8262  df-recs 8311  df-rdg 8349  df-1o 8405  df-2o 8406  df-oadd 8409  df-er 8643  df-ec 8645  df-qs 8649  df-map 8775  df-pm 8776  df-ixp 8846  df-en 8894  df-dom 8895  df-sdom 8896  df-fin 8897  df-fsupp 9275  df-sup 9355  df-inf 9356  df-oi 9425  df-r1 9688  df-rank 9689  df-dju 9825  df-card 9863  df-acn 9866  df-ac 10038  df-pnf 11181  df-mnf 11182  df-xr 11183  df-ltxr 11184  df-le 11185  df-sub 11379  df-neg 11380  df-div 11808  df-nn 12175  df-2 12244  df-3 12245  df-4 12246  df-5 12247  df-6 12248  df-7 12249  df-8 12250  df-9 12251  df-n0 12438  df-xnn0 12511  df-z 12525  df-dec 12645  df-uz 12789  df-q 12899  df-rp 12943  df-xneg 13063  df-xmul 13065  df-ico 13304  df-fz 13462  df-fzo 13609  df-fl 13751  df-mod 13829  df-seq 13964  df-exp 14024  df-hash 14293  df-word 14476  df-lsw 14525  df-concat 14533  df-s1 14559  df-substr 14604  df-pfx 14634  df-cj 15061  df-re 15062  df-im 15063  df-sqrt 15197  df-abs 15198  df-dvds 16222  df-gcd 16464  df-prm 16641  df-pc 16808  df-struct 17117  df-sets 17134  df-slot 17152  df-ndx 17164  df-base 17180  df-ress 17201  df-plusg 17233  df-mulr 17234  df-starv 17235  df-sca 17236  df-vsca 17237  df-ip 17238  df-tset 17239  df-ple 17240  df-ocomp 17241  df-ds 17242  df-unif 17243  df-hom 17244  df-cco 17245  df-0g 17404  df-gsum 17405  df-prds 17410  df-pws 17412  df-imas 17472  df-qus 17473  df-mre 17548  df-mrc 17549  df-mri 17550  df-acs 17551  df-proset 18260  df-drs 18261  df-poset 18279  df-ipo 18494  df-chn 18572  df-mgm 18608  df-sgrp 18687  df-mnd 18703  df-mhm 18751  df-submnd 18752  df-grp 18912  df-minusg 18913  df-sbg 18914  df-mulg 19044  df-subg 19099  df-nsg 19100  df-eqg 19101  df-ghm 19188  df-gim 19234  df-cntz 19292  df-oppg 19321  df-lsm 19611  df-cmn 19757  df-abl 19758  df-mgp 20122  df-rng 20134  df-ur 20163  df-srg 20168  df-ring 20216  df-cring 20217  df-oppr 20317  df-dvdsr 20337  df-unit 20338  df-irred 20339  df-invr 20368  df-dvr 20381  df-rhm 20452  df-nzr 20490  df-subrng 20523  df-subrg 20547  df-rlreg 20671  df-domn 20672  df-idom 20673  df-drng 20708  df-field 20709  df-sdrg 20764  df-lmod 20857  df-lss 20927  df-lsp 20967  df-lmhm 21017  df-lmim 21018  df-lmic 21019  df-lbs 21070  df-lvec 21098  df-sra 21168  df-rgmod 21169  df-lidl 21206  df-rsp 21207  df-2idl 21248  df-lpidl 21320  df-lpir 21321  df-pid 21335  df-cnfld 21353  df-dsmm 21712  df-frlm 21727  df-uvc 21763  df-lindf 21786  df-linds 21787  df-assa 21833  df-asp 21834  df-ascl 21835  df-psr 21889  df-mvr 21890  df-mpl 21891  df-opsr 21893  df-evls 22052  df-evl 22053  df-psr1 22143  df-vr1 22144  df-ply1 22145  df-coe1 22146  df-evls1 22280  df-evl1 22281  df-mdeg 26020  df-deg1 26021  df-mon1 26096  df-uc1p 26097  df-q1p 26098  df-r1p 26099  df-ig1p 26100  df-fldgen 33372  df-mxidl 33520  df-dim 33744  df-fldext 33785  df-extdg 33786  df-irng 33828  df-minply 33844  df-constr 33874
This theorem is referenced by:  constrext2chn  33903
  Copyright terms: Public domain W3C validator