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 34118
Description: Lemma for constrext2chn 34127. (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 16751 . . . . . 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 7424 . . . . . 6 (𝐿[:]𝑄) = ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))
6 cnfldbas 21507 . . . . . . . . . 10 ℂ = (Base‘ℂfld)
7 eqid 2763 . . . . . . . . . 10 (ℂflds ℚ) = (ℂflds ℚ)
8 eqid 2763 . . . . . . . . . 10 (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))) = (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))
9 cnfldfld 33640 . . . . . . . . . . 11 fld ∈ Field
109a1i 11 . . . . . . . . . 10 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℂfld ∈ Field)
11 cndrng 21532 . . . . . . . . . . . 12 fld ∈ DivRing
12 qsubdrg 21550 . . . . . . . . . . . . 13 (ℚ ∈ (SubRing‘ℂfld) ∧ (ℂflds ℚ) ∈ DivRing)
1312simpli 488 . . . . . . . . . . . 12 ℚ ∈ (SubRing‘ℂfld)
1412simpri 490 . . . . . . . . . . . 12 (ℂflds ℚ) ∈ DivRing
15 issdrg 20872 . . . . . . . . . . . 12 (ℚ ∈ (SubDRing‘ℂfld) ↔ (ℂfld ∈ DivRing ∧ ℚ ∈ (SubRing‘ℂfld) ∧ (ℂflds ℚ) ∈ DivRing))
1611, 13, 14, 15mpbir3an 1360 . . . . . . . . . . 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 7869 . . . . . . . . . . . . . . 15 (𝑚 ∈ ω → 𝑚 ∈ On)
2019adantl 486 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ω) → 𝑚 ∈ On)
2118, 20constrsscn 34108 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ω) → (𝐶𝑚) ⊆ ℂ)
2221sselda 3938 . . . . . . . . . . . 12 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → 𝐴 ∈ ℂ)
2322snssd 4753 . . . . . . . . . . 11 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → {𝐴} ⊆ ℂ)
2423ad2antrr 738 . . . . . . . . . 10 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → {𝐴} ⊆ ℂ)
256, 7, 8, 10, 17, 24fldgenfldext 34036 . . . . . . . . 9 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))/FldExt(ℂflds ℚ))
2625ad2antrr 738 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))/FldExt(ℂflds ℚ))
27 extdgcl 34024 . . . . . . . 8 ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))/FldExt(ℂflds ℚ) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℕ0*)
2826, 27syl 18 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℕ0*)
29 simpr 489 . . . . . . . . . 10 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝))
30 2z 12627 . . . . . . . . . . . 12 2 ∈ ℤ
3130a1i 11 . . . . . . . . . . 11 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → 2 ∈ ℤ)
32 simplr 780 . . . . . . . . . . 11 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → 𝑝 ∈ ℕ0)
3331, 32zexpcld 14125 . . . . . . . . . 10 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (2↑𝑝) ∈ ℤ)
3429, 33eqeltrd 2863 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) ∈ ℤ)
3534zred 12701 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) ∈ ℝ)
36 xnn0xr 12583 . . . . . . . . 9 (((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℕ0* → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℝ*)
3726, 27, 363syl 19 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℝ*)
38 eqid 2763 . . . . . . . . . . . . 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 780 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝑣 ∈ ( < Chain (SubDRing‘ℂfld)))
43 simprl 782 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (𝑣‘0) = ℚ)
4443oveq2d 7428 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (𝑣‘0)) = (ℂflds ℚ))
45 eqidd 2764 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣)) = (ℂflds (lastS‘𝑣)))
46 simpr 489 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → 𝑣 = ∅)
4746fveq1d 6885 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) = (∅‘0))
48 0fv 6924 . . . . . . . . . . . . . . . . . . . . 21 (∅‘0) = ∅
4948a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (∅‘0) = ∅)
5047, 49eqtrd 2798 . . . . . . . . . . . . . . . . . . 19 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) = ∅)
5143adantr 485 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) = ℚ)
52 1nn 12245 . . . . . . . . . . . . . . . . . . . . . . . 24 1 ∈ ℕ
53 nnq 12987 . . . . . . . . . . . . . . . . . . . . . . . 24 (1 ∈ ℕ → 1 ∈ ℚ)
5452, 53ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . 23 1 ∈ ℚ
5554ne0ii 4298 . . . . . . . . . . . . . . . . . . . . . 22 ℚ ≠ ∅
5655a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → ℚ ≠ ∅)
5751, 56eqnetrd 3025 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) ≠ ∅)
5857neneqd 2963 . . . . . . . . . . . . . . . . . . 19 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → ¬ (𝑣‘0) = ∅)
5950, 58pm2.65da 828 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ¬ 𝑣 = ∅)
6059neqned 2965 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝑣 ≠ ∅)
6142, 60hashne0 33132 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 0 < (♯‘𝑣))
6239, 40, 41, 42, 10, 44, 45, 61fldext2chn 34096 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ((ℂflds (lastS‘𝑣))/FldExt(ℂflds ℚ) ∧ ∃𝑝 ∈ ℕ0 ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)))
6362simpld 499 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣))/FldExt(ℂflds ℚ))
64 fldextfld1 34015 . . . . . . . . . . . . . 14 ((ℂflds (lastS‘𝑣))/FldExt(ℂflds ℚ) → (ℂflds (lastS‘𝑣)) ∈ Field)
6563, 64syl 18 . . . . . . . . . . . . 13 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣)) ∈ Field)
6642chnwrd 18665 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝑣 ∈ Word (SubDRing‘ℂfld))
67 lswcl 14607 . . . . . . . . . . . . . . 15 ((𝑣 ∈ Word (SubDRing‘ℂfld) ∧ 𝑣 ≠ ∅) → (lastS‘𝑣) ∈ (SubDRing‘ℂfld))
6866, 60, 67syl2anc 595 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) ∈ (SubDRing‘ℂfld))
6911a1i 11 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℂfld ∈ DivRing)
70 qsscn 12985 . . . . . . . . . . . . . . . . . 18 ℚ ⊆ ℂ
7170a1i 11 . . . . . . . . . . . . . . . . 17 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → ℚ ⊆ ℂ)
7271, 23unssd 4146 . . . . . . . . . . . . . . . 16 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → (ℚ ∪ {𝐴}) ⊆ ℂ)
7372ad2antrr 738 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℚ ∪ {𝐴}) ⊆ ℂ)
746, 69, 73fldgensdrg 33613 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘ℂfld))
757qrngbas 27761 . . . . . . . . . . . . . . . . . . 19 ℚ = (Base‘(ℂflds ℚ))
7675, 63fldextsdrg 34022 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℚ ∈ (SubDRing‘(ℂflds (lastS‘𝑣))))
7738sdrgss 20877 . . . . . . . . . . . . . . . . . 18 (ℚ ∈ (SubDRing‘(ℂflds (lastS‘𝑣))) → ℚ ⊆ (Base‘(ℂflds (lastS‘𝑣))))
7876, 77syl 18 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℚ ⊆ (Base‘(ℂflds (lastS‘𝑣))))
796sdrgss 20877 . . . . . . . . . . . . . . . . . . 19 ((lastS‘𝑣) ∈ (SubDRing‘ℂfld) → (lastS‘𝑣) ⊆ ℂ)
8068, 79syl 18 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) ⊆ ℂ)
81 eqid 2763 . . . . . . . . . . . . . . . . . . 19 (ℂflds (lastS‘𝑣)) = (ℂflds (lastS‘𝑣))
8281, 6ressbas2 17299 . . . . . . . . . . . . . . . . . 18 ((lastS‘𝑣) ⊆ ℂ → (lastS‘𝑣) = (Base‘(ℂflds (lastS‘𝑣))))
8380, 82syl 18 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) = (Base‘(ℂflds (lastS‘𝑣))))
8478, 83sseqtrrd 3975 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℚ ⊆ (lastS‘𝑣))
85 simprr 784 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (𝐶𝑚) ⊆ (lastS‘𝑣))
86 simpllr 787 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝐴 ∈ (𝐶𝑚))
8785, 86sseldd 3939 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝐴 ∈ (lastS‘𝑣))
8887snssd 4753 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → {𝐴} ⊆ (lastS‘𝑣))
8984, 88unssd 4146 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℚ ∪ {𝐴}) ⊆ (lastS‘𝑣))
906, 69, 68, 89fldgenssp 33617 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ⊆ (lastS‘𝑣))
91 id 23 . . . . . . . . . . . . . . . 16 ((lastS‘𝑣) ∈ (SubDRing‘ℂfld) → (lastS‘𝑣) ∈ (SubDRing‘ℂfld))
9281, 91subsdrg 33597 . . . . . . . . . . . . . . 15 ((lastS‘𝑣) ∈ (SubDRing‘ℂfld) → ((ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘(ℂflds (lastS‘𝑣))) ↔ ((ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘ℂfld) ∧ (ℂfld fldGen (ℚ ∪ {𝐴})) ⊆ (lastS‘𝑣))))
9392biimpar 482 . . . . . . . . . . . . . 14 (((lastS‘𝑣) ∈ (SubDRing‘ℂfld) ∧ ((ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘ℂfld) ∧ (ℂfld fldGen (ℚ ∪ {𝐴})) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘(ℂflds (lastS‘𝑣))))
9468, 74, 90, 93syl12anc 849 . . . . . . . . . . . . 13 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘(ℂflds (lastS‘𝑣))))
9538, 65, 94sdrgfldext 34018 . . . . . . . . . . . 12 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣))/FldExt((ℂflds (lastS‘𝑣)) ↾s (ℂfld fldGen (ℚ ∪ {𝐴}))))
9668elexd 3478 . . . . . . . . . . . . 13 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) ∈ V)
97 ressabs 17309 . . . . . . . . . . . . 13 (((lastS‘𝑣) ∈ V ∧ (ℂfld fldGen (ℚ ∪ {𝐴})) ⊆ (lastS‘𝑣)) → ((ℂflds (lastS‘𝑣)) ↾s (ℂfld fldGen (ℚ ∪ {𝐴}))) = (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
9896, 90, 97syl2anc 595 . . . . . . . . . . . 12 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ((ℂflds (lastS‘𝑣)) ↾s (ℂfld fldGen (ℚ ∪ {𝐴}))) = (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
9995, 98breqtrd 5138 . . . . . . . . . . 11 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣))/FldExt(ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
10099ad2antrr 738 . . . . . . . . . 10 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (ℂflds (lastS‘𝑣))/FldExt(ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
101 extdgcl 34024 . . . . . . . . . 10 ((ℂflds (lastS‘𝑣))/FldExt(ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℕ0*)
102100, 101syl 18 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℕ0*)
103 xnn0xr 12583 . . . . . . . . 9 (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℕ0* → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℝ*)
104102, 103syl 18 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℝ*)
105 extdggt0 34025 . . . . . . . . 9 ((ℂflds (lastS‘𝑣))/FldExt(ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))) → 0 < ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))))
106100, 105syl 18 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → 0 < ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))))
107 extdgmul 34031 . . . . . . . . . . 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 595 . . . . . . . . . 10 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ·e ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))))
109108ad2antrr 738 . . . . . . . . 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 13293 . . . . . . . . . 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 595 . . . . . . . . 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 2798 . . . . . . . 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 33077 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℝ)
114 extdggt0 34025 . . . . . . . 8 ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))/FldExt(ℂflds ℚ) → 0 < ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)))
11526, 114syl 18 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → 0 < ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)))
11628, 113, 115xnn0nnd 33096 . . . . . 6 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℕ)
1175, 116eqeltrid 2867 . . . . 5 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (𝐿[:]𝑄) ∈ ℕ)
11835, 104, 37, 115, 109rexmul2 33077 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℝ)
119102, 118xnn0nn0d 33095 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℕ0)
120119nn0zd 12617 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℤ)
121116nnnn0d 12566 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℕ0)
122121nn0zd 12617 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℤ)
123 rexmul 13298 . . . . . . . . . . 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 595 . . . . . . . . . 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 2798 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) · ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))))
126125eqcomd 2769 . . . . . . . 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 2798 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) · ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))) = (2↑𝑝))
128 dvds0lem 16325 . . . . . . 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 1400 . . . . . 6 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∥ (2↑𝑝))
1305, 129eqbrtrid 5147 . . . . 5 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (𝐿[:]𝑄) ∥ (2↑𝑝))
131 dvdsprmpweq 16945 . . . . . 6 ((2 ∈ ℙ ∧ (𝐿[:]𝑄) ∈ ℕ ∧ 𝑝 ∈ ℕ0) → ((𝐿[:]𝑄) ∥ (2↑𝑝) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛)))
132131imp 411 . . . . 5 (((2 ∈ ℙ ∧ (𝐿[:]𝑄) ∈ ℕ ∧ 𝑝 ∈ ℕ0) ∧ (𝐿[:]𝑄) ∥ (2↑𝑝)) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
1332, 117, 32, 130, 132syl31anc 1400 . . . 4 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
13462simprd 500 . . . 4 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ∃𝑝 ∈ ℕ0 ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝))
135133, 134r19.29a 3173 . . 3 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
136 simplr 780 . . . 4 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → 𝑚 ∈ ω)
13718, 39, 40, 41, 136constrextdg2 34117 . . 3 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → ∃𝑣 ∈ ( < Chain (SubDRing‘ℂfld))((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣)))
138135, 137r19.29a 3173 . 2 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
139 constrext2chnlem.a . . 3 (𝜑𝐴 ∈ Constr)
14018isconstr 34104 . . 3 (𝐴 ∈ Constr ↔ ∃𝑚 ∈ ω 𝐴 ∈ (𝐶𝑚))
141139, 140sylib 221 . 2 (𝜑 → ∃𝑚 ∈ ω 𝐴 ∈ (𝐶𝑚))
142138, 141r19.29a 3173 1 (𝜑 → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 400  w3o 1102  w3a 1103   = wceq 1570  wcel 2143  wne 2958  wrex 3089  {crab 3416  Vcvv 3455  cun 3904  wss 3906  c0 4287  {csn 4590  {cpr 4592   class class class wbr 5110  {copab 5174  cmpt 5193  Oncon0 6362  cfv 6538  (class class class)co 7412  ωcom 7863  reccrdg 8397  cc 11099  cr 11100  0cc0 11101  1c1 11102   + caddc 11104   · cmul 11106  *cxr 11243   < clt 11244  cmin 11442  cn 12234  2c2 12296  0cn0 12505  0*cxnn0 12578  cz 12592  cq 12973   ·e cxmu 13137  cexp 14099  Word cword 14552  lastSclsw 14601  ccj 15149  cim 15151  abscabs 15287  cdvds 16311  cprime 16730  Basecbs 17270  s cress 17291   Chain cchn 18662  SubRingcsubrg 20655  DivRingcdr 20814  Fieldcfield 20815  SubDRingcsdrg 20870  fldccnfld 21503   fldGen cfldgen 33609  /FldExtcfldext 34006  [:]cextdg 34008  Constrcconstr 34097
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-rep 5239  ax-sep 5258  ax-nul 5270  ax-pow 5338  ax-pr 5406  ax-un 7734  ax-reg 9555  ax-inf2 9611  ax-ac2 10448  ax-cnex 11157  ax-resscn 11158  ax-1cn 11159  ax-icn 11160  ax-addcl 11161  ax-addrcl 11162  ax-mulcl 11163  ax-mulrcl 11164  ax-mulcom 11165  ax-addass 11166  ax-mulass 11167  ax-distr 11168  ax-i2m1 11169  ax-1ne0 11170  ax-1rid 11171  ax-rnegex 11172  ax-rrecex 11173  ax-cnre 11174  ax-pre-lttri 11175  ax-pre-lttrn 11176  ax-pre-ltadd 11177  ax-pre-mulgt0 11178  ax-pre-sup 11179  ax-addf 11180  ax-mulf 11181
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-nel 3065  df-ral 3080  df-rex 3090  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-tp 4595  df-op 4597  df-uni 4874  df-int 4914  df-iun 4959  df-iin 4960  df-br 5111  df-opab 5175  df-mpt 5194  df-tr 5220  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-se 5617  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6304  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6494  df-fun 6540  df-fn 6541  df-f 6542  df-f1 6543  df-fo 6544  df-f1o 6545  df-fv 6546  df-isom 6547  df-riota 7369  df-ov 7415  df-oprab 7416  df-mpo 7417  df-of 7676  df-ofr 7677  df-rpss 7722  df-om 7864  df-1st 7987  df-2nd 7988  df-supp 8158  df-tpos 8223  df-frecs 8279  df-wrecs 8310  df-recs 8359  df-rdg 8398  df-1o 8454  df-2o 8455  df-oadd 8458  df-er 8695  df-ec 8697  df-qs 8701  df-map 8827  df-pm 8828  df-ixp 8897  df-en 8945  df-dom 8946  df-sdom 8947  df-fin 8948  df-fsupp 9323  df-sup 9403  df-inf 9404  df-oi 9473  df-r1 9737  df-rank 9738  df-dju 9888  df-card 9926  df-acn 9929  df-ac 10101  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11444  df-neg 11445  df-div 11873  df-nn 12235  df-2 12304  df-3 12305  df-4 12306  df-5 12307  df-6 12308  df-7 12309  df-8 12310  df-9 12311  df-n0 12506  df-xnn0 12579  df-z 12593  df-dec 12713  df-uz 12864  df-q 12974  df-rp 13018  df-xneg 13138  df-xmul 13140  df-ico 13379  df-fz 13537  df-fzo 13685  df-fl 13827  df-mod 13905  df-seq 14040  df-exp 14100  df-hash 14369  df-word 14553  df-lsw 14602  df-concat 14610  df-s1 14636  df-substr 14681  df-pfx 14711  df-cj 15152  df-re 15153  df-im 15154  df-sqrt 15288  df-abs 15289  df-dvds 16312  df-gcd 16554  df-prm 16731  df-pc 16898  df-struct 17208  df-sets 17225  df-slot 17243  df-ndx 17255  df-base 17271  df-ress 17292  df-plusg 17324  df-mulr 17325  df-starv 17326  df-sca 17327  df-vsca 17328  df-ip 17329  df-tset 17330  df-ple 17331  df-ocomp 17332  df-ds 17333  df-unif 17334  df-hom 17335  df-cco 17336  df-0g 17495  df-gsum 17496  df-prds 17501  df-pws 17503  df-imas 17563  df-qus 17564  df-mre 17639  df-mrc 17640  df-mri 17641  df-acs 17642  df-proset 18351  df-drs 18352  df-poset 18370  df-ipo 18585  df-chn 18663  df-mgm 18699  df-sgrp 18778  df-mnd 18794  df-mhm 18842  df-submnd 18843  df-grp 19004  df-minusg 19005  df-sbg 19006  df-mulg 19135  df-subg 19190  df-nsg 19191  df-eqg 19192  df-ghm 19285  df-gim 19330  df-cntz 19388  df-oppg 19417  df-lsm 19707  df-cmn 19853  df-abl 19854  df-mgp 20218  df-rng 20232  df-ur 20265  df-srg 20270  df-ring 20318  df-cring 20319  df-oppr 20420  df-dvdsr 20440  df-unit 20441  df-irred 20442  df-invr 20471  df-dvr 20484  df-rhm 20555  df-nzr 20597  df-subrng 20632  df-subrg 20656  df-rlreg 20780  df-domn 20781  df-idom 20782  df-drng 20816  df-field 20817  df-sdrg 20871  df-lmod 20964  df-lss 21034  df-lsp 21074  df-lmhm 21124  df-lmim 21125  df-lmic 21126  df-lbs 21177  df-lvec 21205  df-sra 21275  df-rgmod 21276  df-lidl 21313  df-rsp 21314  df-2idl 21370  df-lpidl 21471  df-lpir 21472  df-pid 21486  df-cnfld 21504  df-dsmm 21863  df-frlm 21878  df-uvc 21914  df-lindf 21937  df-linds 21938  df-assa 21984  df-asp 21985  df-ascl 21986  df-psr 22040  df-mvr 22041  df-mpl 22042  df-opsr 22044  df-evls 22206  df-evl 22207  df-psr1 22321  df-vr1 22322  df-ply1 22323  df-coe1 22324  df-evls1 22456  df-evl1 22457  df-mdeg 26193  df-deg1 26194  df-mon1 26269  df-uc1p 26270  df-q1p 26271  df-r1p 26272  df-ig1p 26273  df-fldgen 33610  df-mxidl 33721  df-dim 33968  df-fldext 34009  df-extdg 34010  df-irng 34052  df-minply 34068  df-constr 34098
This theorem is referenced by:  constrext2chn  34127
  Copyright terms: Public domain W3C validator