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 33784
Description: Lemma for constrext2chn 33793. (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 16605 . . . . . 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 7364 . . . . . 6 (𝐿[:]𝑄) = ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))
6 cnfldbas 21297 . . . . . . . . . 10 ℂ = (Base‘ℂfld)
7 eqid 2733 . . . . . . . . . 10 (ℂflds ℚ) = (ℂflds ℚ)
8 eqid 2733 . . . . . . . . . 10 (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))) = (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))
9 cnfldfld 33314 . . . . . . . . . . 11 fld ∈ Field
109a1i 11 . . . . . . . . . 10 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℂfld ∈ Field)
11 cndrng 21337 . . . . . . . . . . . 12 fld ∈ DivRing
12 qsubdrg 21358 . . . . . . . . . . . . 13 (ℚ ∈ (SubRing‘ℂfld) ∧ (ℂflds ℚ) ∈ DivRing)
1312simpli 483 . . . . . . . . . . . 12 ℚ ∈ (SubRing‘ℂfld)
1412simpri 485 . . . . . . . . . . . 12 (ℂflds ℚ) ∈ DivRing
15 issdrg 20705 . . . . . . . . . . . 12 (ℚ ∈ (SubDRing‘ℂfld) ↔ (ℂfld ∈ DivRing ∧ ℚ ∈ (SubRing‘ℂfld) ∧ (ℂflds ℚ) ∈ DivRing))
1611, 13, 14, 15mpbir3an 1342 . . . . . . . . . . 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 7808 . . . . . . . . . . . . . . 15 (𝑚 ∈ ω → 𝑚 ∈ On)
2019adantl 481 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ω) → 𝑚 ∈ On)
2118, 20constrsscn 33774 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ω) → (𝐶𝑚) ⊆ ℂ)
2221sselda 3930 . . . . . . . . . . . 12 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → 𝐴 ∈ ℂ)
2322snssd 4760 . . . . . . . . . . 11 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → {𝐴} ⊆ ℂ)
2423ad2antrr 726 . . . . . . . . . 10 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → {𝐴} ⊆ ℂ)
256, 7, 8, 10, 17, 24fldgenfldext 33702 . . . . . . . . 9 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))/FldExt(ℂflds ℚ))
2625ad2antrr 726 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))/FldExt(ℂflds ℚ))
27 extdgcl 33690 . . . . . . . 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 12510 . . . . . . . . . . . 12 2 ∈ ℤ
3130a1i 11 . . . . . . . . . . 11 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → 2 ∈ ℤ)
32 simplr 768 . . . . . . . . . . 11 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → 𝑝 ∈ ℕ0)
3331, 32zexpcld 13996 . . . . . . . . . 10 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (2↑𝑝) ∈ ℤ)
3429, 33eqeltrd 2833 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) ∈ ℤ)
3534zred 12583 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) ∈ ℝ)
36 xnn0xr 12466 . . . . . . . . 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 2733 . . . . . . . . . . . . 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 768 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝑣 ∈ ( < Chain (SubDRing‘ℂfld)))
43 simprl 770 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (𝑣‘0) = ℚ)
4443oveq2d 7368 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (𝑣‘0)) = (ℂflds ℚ))
45 eqidd 2734 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣)) = (ℂflds (lastS‘𝑣)))
46 simpr 484 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → 𝑣 = ∅)
4746fveq1d 6830 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) = (∅‘0))
48 0fv 6869 . . . . . . . . . . . . . . . . . . . . 21 (∅‘0) = ∅
4948a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (∅‘0) = ∅)
5047, 49eqtrd 2768 . . . . . . . . . . . . . . . . . . 19 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) = ∅)
5143adantr 480 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) = ℚ)
52 1nn 12143 . . . . . . . . . . . . . . . . . . . . . . . 24 1 ∈ ℕ
53 nnq 12862 . . . . . . . . . . . . . . . . . . . . . . . 24 (1 ∈ ℕ → 1 ∈ ℚ)
5452, 53ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . 23 1 ∈ ℚ
5554ne0ii 4293 . . . . . . . . . . . . . . . . . . . . . 22 ℚ ≠ ∅
5655a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → ℚ ≠ ∅)
5751, 56eqnetrd 2996 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) ≠ ∅)
5857neneqd 2934 . . . . . . . . . . . . . . . . . . 19 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → ¬ (𝑣‘0) = ∅)
5950, 58pm2.65da 816 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ¬ 𝑣 = ∅)
6059neqned 2936 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝑣 ≠ ∅)
6142, 60hashne0 32797 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 0 < (♯‘𝑣))
6239, 40, 41, 42, 10, 44, 45, 61fldext2chn 33762 . . . . . . . . . . . . . . 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 33681 . . . . . . . . . . . . . 14 ((ℂflds (lastS‘𝑣))/FldExt(ℂflds ℚ) → (ℂflds (lastS‘𝑣)) ∈ Field)
6563, 64syl 17 . . . . . . . . . . . . 13 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣)) ∈ Field)
6642chnwrd 18516 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝑣 ∈ Word (SubDRing‘ℂfld))
67 lswcl 14477 . . . . . . . . . . . . . . 15 ((𝑣 ∈ Word (SubDRing‘ℂfld) ∧ 𝑣 ≠ ∅) → (lastS‘𝑣) ∈ (SubDRing‘ℂfld))
6866, 60, 67syl2anc 584 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) ∈ (SubDRing‘ℂfld))
6911a1i 11 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℂfld ∈ DivRing)
70 qsscn 12860 . . . . . . . . . . . . . . . . . 18 ℚ ⊆ ℂ
7170a1i 11 . . . . . . . . . . . . . . . . 17 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → ℚ ⊆ ℂ)
7271, 23unssd 4141 . . . . . . . . . . . . . . . 16 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → (ℚ ∪ {𝐴}) ⊆ ℂ)
7372ad2antrr 726 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℚ ∪ {𝐴}) ⊆ ℂ)
746, 69, 73fldgensdrg 33287 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘ℂfld))
757qrngbas 27558 . . . . . . . . . . . . . . . . . . 19 ℚ = (Base‘(ℂflds ℚ))
7675, 63fldextsdrg 33688 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℚ ∈ (SubDRing‘(ℂflds (lastS‘𝑣))))
7738sdrgss 20710 . . . . . . . . . . . . . . . . . 18 (ℚ ∈ (SubDRing‘(ℂflds (lastS‘𝑣))) → ℚ ⊆ (Base‘(ℂflds (lastS‘𝑣))))
7876, 77syl 17 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℚ ⊆ (Base‘(ℂflds (lastS‘𝑣))))
796sdrgss 20710 . . . . . . . . . . . . . . . . . . 19 ((lastS‘𝑣) ∈ (SubDRing‘ℂfld) → (lastS‘𝑣) ⊆ ℂ)
8068, 79syl 17 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) ⊆ ℂ)
81 eqid 2733 . . . . . . . . . . . . . . . . . . 19 (ℂflds (lastS‘𝑣)) = (ℂflds (lastS‘𝑣))
8281, 6ressbas2 17151 . . . . . . . . . . . . . . . . . 18 ((lastS‘𝑣) ⊆ ℂ → (lastS‘𝑣) = (Base‘(ℂflds (lastS‘𝑣))))
8380, 82syl 17 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) = (Base‘(ℂflds (lastS‘𝑣))))
8478, 83sseqtrrd 3968 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℚ ⊆ (lastS‘𝑣))
85 simprr 772 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (𝐶𝑚) ⊆ (lastS‘𝑣))
86 simpllr 775 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝐴 ∈ (𝐶𝑚))
8785, 86sseldd 3931 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝐴 ∈ (lastS‘𝑣))
8887snssd 4760 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → {𝐴} ⊆ (lastS‘𝑣))
8984, 88unssd 4141 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℚ ∪ {𝐴}) ⊆ (lastS‘𝑣))
906, 69, 68, 89fldgenssp 33291 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ⊆ (lastS‘𝑣))
91 id 22 . . . . . . . . . . . . . . . 16 ((lastS‘𝑣) ∈ (SubDRing‘ℂfld) → (lastS‘𝑣) ∈ (SubDRing‘ℂfld))
9281, 91subsdrg 33271 . . . . . . . . . . . . . . 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 836 . . . . . . . . . . . . 13 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘(ℂflds (lastS‘𝑣))))
9538, 65, 94sdrgfldext 33684 . . . . . . . . . . . 12 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣))/FldExt((ℂflds (lastS‘𝑣)) ↾s (ℂfld fldGen (ℚ ∪ {𝐴}))))
9668elexd 3461 . . . . . . . . . . . . 13 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) ∈ V)
97 ressabs 17161 . . . . . . . . . . . . 13 (((lastS‘𝑣) ∈ V ∧ (ℂfld fldGen (ℚ ∪ {𝐴})) ⊆ (lastS‘𝑣)) → ((ℂflds (lastS‘𝑣)) ↾s (ℂfld fldGen (ℚ ∪ {𝐴}))) = (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
9896, 90, 97syl2anc 584 . . . . . . . . . . . 12 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ((ℂflds (lastS‘𝑣)) ↾s (ℂfld fldGen (ℚ ∪ {𝐴}))) = (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
9995, 98breqtrd 5119 . . . . . . . . . . 11 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣))/FldExt(ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
10099ad2antrr 726 . . . . . . . . . 10 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (ℂflds (lastS‘𝑣))/FldExt(ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
101 extdgcl 33690 . . . . . . . . . 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 12466 . . . . . . . . 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 33691 . . . . . . . . 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 33697 . . . . . . . . . . 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 584 . . . . . . . . . 10 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ·e ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))))
109108ad2antrr 726 . . . . . . . . 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 13167 . . . . . . . . . 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 584 . . . . . . . . 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 2768 . . . . . . . 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 32741 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℝ)
114 extdggt0 33691 . . . . . . . 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 32760 . . . . . 6 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℕ)
1175, 116eqeltrid 2837 . . . . 5 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (𝐿[:]𝑄) ∈ ℕ)
11835, 104, 37, 115, 109rexmul2 32741 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℝ)
119102, 118xnn0nn0d 32759 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℕ0)
120119nn0zd 12500 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℤ)
121116nnnn0d 12449 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℕ0)
122121nn0zd 12500 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℤ)
123 rexmul 13172 . . . . . . . . . . 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 584 . . . . . . . . . 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 2768 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) · ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))))
126125eqcomd 2739 . . . . . . . 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 2768 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) · ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))) = (2↑𝑝))
128 dvds0lem 16179 . . . . . . 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 1375 . . . . . 6 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∥ (2↑𝑝))
1305, 129eqbrtrid 5128 . . . . 5 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (𝐿[:]𝑄) ∥ (2↑𝑝))
131 dvdsprmpweq 16798 . . . . . 6 ((2 ∈ ℙ ∧ (𝐿[:]𝑄) ∈ ℕ ∧ 𝑝 ∈ ℕ0) → ((𝐿[:]𝑄) ∥ (2↑𝑝) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛)))
132131imp 406 . . . . 5 (((2 ∈ ℙ ∧ (𝐿[:]𝑄) ∈ ℕ ∧ 𝑝 ∈ ℕ0) ∧ (𝐿[:]𝑄) ∥ (2↑𝑝)) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
1332, 117, 32, 130, 132syl31anc 1375 . . . 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 3141 . . 3 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
136 simplr 768 . . . 4 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → 𝑚 ∈ ω)
13718, 39, 40, 41, 136constrextdg2 33783 . . 3 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → ∃𝑣 ∈ ( < Chain (SubDRing‘ℂfld))((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣)))
138135, 137r19.29a 3141 . 2 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
139 constrext2chnlem.a . . 3 (𝜑𝐴 ∈ Constr)
14018isconstr 33770 . . 3 (𝐴 ∈ Constr ↔ ∃𝑚 ∈ ω 𝐴 ∈ (𝐶𝑚))
141139, 140sylib 218 . 2 (𝜑 → ∃𝑚 ∈ ω 𝐴 ∈ (𝐶𝑚))
142138, 141r19.29a 3141 1 (𝜑 → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395  w3o 1085  w3a 1086   = wceq 1541  wcel 2113  wne 2929  wrex 3057  {crab 3396  Vcvv 3437  cun 3896  wss 3898  c0 4282  {csn 4575  {cpr 4577   class class class wbr 5093  {copab 5155  cmpt 5174  Oncon0 6311  cfv 6486  (class class class)co 7352  ωcom 7802  reccrdg 8334  cc 11011  cr 11012  0cc0 11013  1c1 11014   + caddc 11016   · cmul 11018  *cxr 11152   < clt 11153  cmin 11351  cn 12132  2c2 12187  0cn0 12388  0*cxnn0 12461  cz 12475  cq 12848   ·e cxmu 13012  cexp 13970  Word cword 14422  lastSclsw 14471  ccj 15005  cim 15007  abscabs 15143  cdvds 16165  cprime 16584  Basecbs 17122  s cress 17143   Chain cchn 18513  SubRingcsubrg 20486  DivRingcdr 20646  Fieldcfield 20647  SubDRingcsdrg 20703  fldccnfld 21293   fldGen cfldgen 33283  /FldExtcfldext 33672  [:]cextdg 33674  Constrcconstr 33763
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2705  ax-rep 5219  ax-sep 5236  ax-nul 5246  ax-pow 5305  ax-pr 5372  ax-un 7674  ax-reg 9485  ax-inf2 9538  ax-ac2 10361  ax-cnex 11069  ax-resscn 11070  ax-1cn 11071  ax-icn 11072  ax-addcl 11073  ax-addrcl 11074  ax-mulcl 11075  ax-mulrcl 11076  ax-mulcom 11077  ax-addass 11078  ax-mulass 11079  ax-distr 11080  ax-i2m1 11081  ax-1ne0 11082  ax-1rid 11083  ax-rnegex 11084  ax-rrecex 11085  ax-cnre 11086  ax-pre-lttri 11087  ax-pre-lttrn 11088  ax-pre-ltadd 11089  ax-pre-mulgt0 11090  ax-pre-sup 11091  ax-addf 11092  ax-mulf 11093
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2725  df-clel 2808  df-nfc 2882  df-ne 2930  df-nel 3034  df-ral 3049  df-rex 3058  df-rmo 3347  df-reu 3348  df-rab 3397  df-v 3439  df-sbc 3738  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3918  df-nul 4283  df-if 4475  df-pw 4551  df-sn 4576  df-pr 4578  df-tp 4580  df-op 4582  df-uni 4859  df-int 4898  df-iun 4943  df-iin 4944  df-br 5094  df-opab 5156  df-mpt 5175  df-tr 5201  df-id 5514  df-eprel 5519  df-po 5527  df-so 5528  df-fr 5572  df-se 5573  df-we 5574  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-pred 6253  df-ord 6314  df-on 6315  df-lim 6316  df-suc 6317  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-isom 6495  df-riota 7309  df-ov 7355  df-oprab 7356  df-mpo 7357  df-of 7616  df-ofr 7617  df-rpss 7662  df-om 7803  df-1st 7927  df-2nd 7928  df-supp 8097  df-tpos 8162  df-frecs 8217  df-wrecs 8248  df-recs 8297  df-rdg 8335  df-1o 8391  df-2o 8392  df-oadd 8395  df-er 8628  df-ec 8630  df-qs 8634  df-map 8758  df-pm 8759  df-ixp 8828  df-en 8876  df-dom 8877  df-sdom 8878  df-fin 8879  df-fsupp 9253  df-sup 9333  df-inf 9334  df-oi 9403  df-r1 9664  df-rank 9665  df-dju 9801  df-card 9839  df-acn 9842  df-ac 10014  df-pnf 11155  df-mnf 11156  df-xr 11157  df-ltxr 11158  df-le 11159  df-sub 11353  df-neg 11354  df-div 11782  df-nn 12133  df-2 12195  df-3 12196  df-4 12197  df-5 12198  df-6 12199  df-7 12200  df-8 12201  df-9 12202  df-n0 12389  df-xnn0 12462  df-z 12476  df-dec 12595  df-uz 12739  df-q 12849  df-rp 12893  df-xneg 13013  df-xmul 13015  df-ico 13253  df-fz 13410  df-fzo 13557  df-fl 13698  df-mod 13776  df-seq 13911  df-exp 13971  df-hash 14240  df-word 14423  df-lsw 14472  df-concat 14480  df-s1 14506  df-substr 14551  df-pfx 14581  df-cj 15008  df-re 15009  df-im 15010  df-sqrt 15144  df-abs 15145  df-dvds 16166  df-gcd 16408  df-prm 16585  df-pc 16751  df-struct 17060  df-sets 17077  df-slot 17095  df-ndx 17107  df-base 17123  df-ress 17144  df-plusg 17176  df-mulr 17177  df-starv 17178  df-sca 17179  df-vsca 17180  df-ip 17181  df-tset 17182  df-ple 17183  df-ocomp 17184  df-ds 17185  df-unif 17186  df-hom 17187  df-cco 17188  df-0g 17347  df-gsum 17348  df-prds 17353  df-pws 17355  df-imas 17414  df-qus 17415  df-mre 17490  df-mrc 17491  df-mri 17492  df-acs 17493  df-proset 18202  df-drs 18203  df-poset 18221  df-ipo 18436  df-chn 18514  df-mgm 18550  df-sgrp 18629  df-mnd 18645  df-mhm 18693  df-submnd 18694  df-grp 18851  df-minusg 18852  df-sbg 18853  df-mulg 18983  df-subg 19038  df-nsg 19039  df-eqg 19040  df-ghm 19127  df-gim 19173  df-cntz 19231  df-oppg 19260  df-lsm 19550  df-cmn 19696  df-abl 19697  df-mgp 20061  df-rng 20073  df-ur 20102  df-srg 20107  df-ring 20155  df-cring 20156  df-oppr 20257  df-dvdsr 20277  df-unit 20278  df-irred 20279  df-invr 20308  df-dvr 20321  df-rhm 20392  df-nzr 20430  df-subrng 20463  df-subrg 20487  df-rlreg 20611  df-domn 20612  df-idom 20613  df-drng 20648  df-field 20649  df-sdrg 20704  df-lmod 20797  df-lss 20867  df-lsp 20907  df-lmhm 20958  df-lmim 20959  df-lmic 20960  df-lbs 21011  df-lvec 21039  df-sra 21109  df-rgmod 21110  df-lidl 21147  df-rsp 21148  df-2idl 21189  df-lpidl 21261  df-lpir 21262  df-pid 21276  df-cnfld 21294  df-dsmm 21671  df-frlm 21686  df-uvc 21722  df-lindf 21745  df-linds 21746  df-assa 21792  df-asp 21793  df-ascl 21794  df-psr 21848  df-mvr 21849  df-mpl 21850  df-opsr 21852  df-evls 22010  df-evl 22011  df-psr1 22093  df-vr1 22094  df-ply1 22095  df-coe1 22096  df-evls1 22231  df-evl1 22232  df-mdeg 25988  df-deg1 25989  df-mon1 26064  df-uc1p 26065  df-q1p 26066  df-r1p 26067  df-ig1p 26068  df-fldgen 33284  df-mxidl 33432  df-dim 33633  df-fldext 33675  df-extdg 33676  df-irng 33718  df-minply 33734  df-constr 33764
This theorem is referenced by:  constrext2chn  33793
  Copyright terms: Public domain W3C validator