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 33941
Description: Lemma for constrext2chn 33950. (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 16659 . . . . . 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 7375 . . . . . 6 (𝐿[:]𝑄) = ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))
6 cnfldbas 21358 . . . . . . . . . 10 ℂ = (Base‘ℂfld)
7 eqid 2740 . . . . . . . . . 10 (ℂflds ℚ) = (ℂflds ℚ)
8 eqid 2740 . . . . . . . . . 10 (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))) = (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))
9 cnfldfld 33432 . . . . . . . . . . 11 fld ∈ Field
109a1i 11 . . . . . . . . . 10 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℂfld ∈ Field)
11 cndrng 21383 . . . . . . . . . . . 12 fld ∈ DivRing
12 qsubdrg 21401 . . . . . . . . . . . . 13 (ℚ ∈ (SubRing‘ℂfld) ∧ (ℂflds ℚ) ∈ DivRing)
1312simpli 484 . . . . . . . . . . . 12 ℚ ∈ (SubRing‘ℂfld)
1412simpri 486 . . . . . . . . . . . 12 (ℂflds ℚ) ∈ DivRing
15 issdrg 20767 . . . . . . . . . . . 12 (ℚ ∈ (SubDRing‘ℂfld) ↔ (ℂfld ∈ DivRing ∧ ℚ ∈ (SubRing‘ℂfld) ∧ (ℂflds ℚ) ∈ DivRing))
1611, 13, 14, 15mpbir3an 1348 . . . . . . . . . . 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 7819 . . . . . . . . . . . . . . 15 (𝑚 ∈ ω → 𝑚 ∈ On)
2019adantl 482 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ω) → 𝑚 ∈ On)
2118, 20constrsscn 33931 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ω) → (𝐶𝑚) ⊆ ℂ)
2221sselda 3922 . . . . . . . . . . . 12 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → 𝐴 ∈ ℂ)
2322snssd 4725 . . . . . . . . . . 11 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → {𝐴} ⊆ ℂ)
2423ad2antrr 732 . . . . . . . . . 10 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → {𝐴} ⊆ ℂ)
256, 7, 8, 10, 17, 24fldgenfldext 33859 . . . . . . . . 9 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))/FldExt(ℂflds ℚ))
2625ad2antrr 732 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))/FldExt(ℂflds ℚ))
27 extdgcl 33847 . . . . . . . 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 485 . . . . . . . . . 10 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝))
30 2z 12557 . . . . . . . . . . . 12 2 ∈ ℤ
3130a1i 11 . . . . . . . . . . 11 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → 2 ∈ ℤ)
32 simplr 774 . . . . . . . . . . 11 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → 𝑝 ∈ ℕ0)
3331, 32zexpcld 14047 . . . . . . . . . 10 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (2↑𝑝) ∈ ℤ)
3429, 33eqeltrd 2840 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) ∈ ℤ)
3534zred 12631 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) ∈ ℝ)
36 xnn0xr 12513 . . . . . . . . 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 2740 . . . . . . . . . . . . 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 774 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝑣 ∈ ( < Chain (SubDRing‘ℂfld)))
43 simprl 776 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (𝑣‘0) = ℚ)
4443oveq2d 7379 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (𝑣‘0)) = (ℂflds ℚ))
45 eqidd 2741 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣)) = (ℂflds (lastS‘𝑣)))
46 simpr 485 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → 𝑣 = ∅)
4746fveq1d 6836 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) = (∅‘0))
48 0fv 6875 . . . . . . . . . . . . . . . . . . . . 21 (∅‘0) = ∅
4948a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (∅‘0) = ∅)
5047, 49eqtrd 2775 . . . . . . . . . . . . . . . . . . 19 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) = ∅)
5143adantr 481 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) = ℚ)
52 1nn 12183 . . . . . . . . . . . . . . . . . . . . . . . 24 1 ∈ ℕ
53 nnq 12910 . . . . . . . . . . . . . . . . . . . . . . . 24 (1 ∈ ℕ → 1 ∈ ℚ)
5452, 53ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . 23 1 ∈ ℚ
5554ne0ii 4279 . . . . . . . . . . . . . . . . . . . . . 22 ℚ ≠ ∅
5655a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → ℚ ≠ ∅)
5751, 56eqnetrd 3002 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → (𝑣‘0) ≠ ∅)
5857neneqd 2940 . . . . . . . . . . . . . . . . . . 19 ((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑣 = ∅) → ¬ (𝑣‘0) = ∅)
5950, 58pm2.65da 822 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ¬ 𝑣 = ∅)
6059neqned 2942 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝑣 ≠ ∅)
6142, 60hashne0 32909 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 0 < (♯‘𝑣))
6239, 40, 41, 42, 10, 44, 45, 61fldext2chn 33919 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ((ℂflds (lastS‘𝑣))/FldExt(ℂflds ℚ) ∧ ∃𝑝 ∈ ℕ0 ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)))
6362simpld 495 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣))/FldExt(ℂflds ℚ))
64 fldextfld1 33838 . . . . . . . . . . . . . 14 ((ℂflds (lastS‘𝑣))/FldExt(ℂflds ℚ) → (ℂflds (lastS‘𝑣)) ∈ Field)
6563, 64syl 17 . . . . . . . . . . . . 13 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣)) ∈ Field)
6642chnwrd 18572 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝑣 ∈ Word (SubDRing‘ℂfld))
67 lswcl 14528 . . . . . . . . . . . . . . 15 ((𝑣 ∈ Word (SubDRing‘ℂfld) ∧ 𝑣 ≠ ∅) → (lastS‘𝑣) ∈ (SubDRing‘ℂfld))
6866, 60, 67syl2anc 590 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) ∈ (SubDRing‘ℂfld))
6911a1i 11 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℂfld ∈ DivRing)
70 qsscn 12908 . . . . . . . . . . . . . . . . . 18 ℚ ⊆ ℂ
7170a1i 11 . . . . . . . . . . . . . . . . 17 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → ℚ ⊆ ℂ)
7271, 23unssd 4128 . . . . . . . . . . . . . . . 16 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → (ℚ ∪ {𝐴}) ⊆ ℂ)
7372ad2antrr 732 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℚ ∪ {𝐴}) ⊆ ℂ)
746, 69, 73fldgensdrg 33405 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘ℂfld))
757qrngbas 27607 . . . . . . . . . . . . . . . . . . 19 ℚ = (Base‘(ℂflds ℚ))
7675, 63fldextsdrg 33845 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℚ ∈ (SubDRing‘(ℂflds (lastS‘𝑣))))
7738sdrgss 20772 . . . . . . . . . . . . . . . . . 18 (ℚ ∈ (SubDRing‘(ℂflds (lastS‘𝑣))) → ℚ ⊆ (Base‘(ℂflds (lastS‘𝑣))))
7876, 77syl 17 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ℚ ⊆ (Base‘(ℂflds (lastS‘𝑣))))
796sdrgss 20772 . . . . . . . . . . . . . . . . . . 19 ((lastS‘𝑣) ∈ (SubDRing‘ℂfld) → (lastS‘𝑣) ⊆ ℂ)
8068, 79syl 17 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) ⊆ ℂ)
81 eqid 2740 . . . . . . . . . . . . . . . . . . 19 (ℂflds (lastS‘𝑣)) = (ℂflds (lastS‘𝑣))
8281, 6ressbas2 17206 . . . . . . . . . . . . . . . . . 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 778 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (𝐶𝑚) ⊆ (lastS‘𝑣))
86 simpllr 781 . . . . . . . . . . . . . . . . . 18 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝐴 ∈ (𝐶𝑚))
8785, 86sseldd 3923 . . . . . . . . . . . . . . . . 17 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → 𝐴 ∈ (lastS‘𝑣))
8887snssd 4725 . . . . . . . . . . . . . . . 16 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → {𝐴} ⊆ (lastS‘𝑣))
8984, 88unssd 4128 . . . . . . . . . . . . . . 15 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℚ ∪ {𝐴}) ⊆ (lastS‘𝑣))
906, 69, 68, 89fldgenssp 33409 . . . . . . . . . . . . . 14 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ⊆ (lastS‘𝑣))
91 id 22 . . . . . . . . . . . . . . . 16 ((lastS‘𝑣) ∈ (SubDRing‘ℂfld) → (lastS‘𝑣) ∈ (SubDRing‘ℂfld))
9281, 91subsdrg 33389 . . . . . . . . . . . . . . 15 ((lastS‘𝑣) ∈ (SubDRing‘ℂfld) → ((ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘(ℂflds (lastS‘𝑣))) ↔ ((ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘ℂfld) ∧ (ℂfld fldGen (ℚ ∪ {𝐴})) ⊆ (lastS‘𝑣))))
9392biimpar 478 . . . . . . . . . . . . . 14 (((lastS‘𝑣) ∈ (SubDRing‘ℂfld) ∧ ((ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘ℂfld) ∧ (ℂfld fldGen (ℚ ∪ {𝐴})) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘(ℂflds (lastS‘𝑣))))
9468, 74, 90, 93syl12anc 842 . . . . . . . . . . . . 13 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂfld fldGen (ℚ ∪ {𝐴})) ∈ (SubDRing‘(ℂflds (lastS‘𝑣))))
9538, 65, 94sdrgfldext 33841 . . . . . . . . . . . 12 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣))/FldExt((ℂflds (lastS‘𝑣)) ↾s (ℂfld fldGen (ℚ ∪ {𝐴}))))
9668elexd 3456 . . . . . . . . . . . . 13 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (lastS‘𝑣) ∈ V)
97 ressabs 17216 . . . . . . . . . . . . 13 (((lastS‘𝑣) ∈ V ∧ (ℂfld fldGen (ℚ ∪ {𝐴})) ⊆ (lastS‘𝑣)) → ((ℂflds (lastS‘𝑣)) ↾s (ℂfld fldGen (ℚ ∪ {𝐴}))) = (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
9896, 90, 97syl2anc 590 . . . . . . . . . . . 12 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ((ℂflds (lastS‘𝑣)) ↾s (ℂfld fldGen (ℚ ∪ {𝐴}))) = (ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
9995, 98breqtrd 5105 . . . . . . . . . . 11 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → (ℂflds (lastS‘𝑣))/FldExt(ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
10099ad2antrr 732 . . . . . . . . . 10 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (ℂflds (lastS‘𝑣))/FldExt(ℂflds (ℂfld fldGen (ℚ ∪ {𝐴}))))
101 extdgcl 33847 . . . . . . . . . 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 12513 . . . . . . . . 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 33848 . . . . . . . . 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 33854 . . . . . . . . . . 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 590 . . . . . . . . . 10 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ·e ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))))
109108ad2antrr 732 . . . . . . . . 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 13216 . . . . . . . . . 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 590 . . . . . . . . 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 2775 . . . . . . . 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 32853 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℝ)
114 extdggt0 33848 . . . . . . . 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 32872 . . . . . 6 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℕ)
1175, 116eqeltrid 2844 . . . . 5 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (𝐿[:]𝑄) ∈ ℕ)
11835, 104, 37, 115, 109rexmul2 32853 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℝ)
119102, 118xnn0nn0d 32871 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℕ0)
120119nn0zd 12547 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) ∈ ℤ)
121116nnnn0d 12496 . . . . . . . 8 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℕ0)
122121nn0zd 12547 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∈ ℤ)
123 rexmul 13221 . . . . . . . . . . 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 590 . . . . . . . . . 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 2775 . . . . . . . . 9 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) · ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))))
126125eqcomd 2746 . . . . . . . 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 2775 . . . . . . 7 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (((ℂflds (lastS‘𝑣))[:](ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))) · ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ))) = (2↑𝑝))
128 dvds0lem 16233 . . . . . . 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 1381 . . . . . 6 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ((ℂflds (ℂfld fldGen (ℚ ∪ {𝐴})))[:](ℂflds ℚ)) ∥ (2↑𝑝))
1305, 129eqbrtrid 5114 . . . . 5 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → (𝐿[:]𝑄) ∥ (2↑𝑝))
131 dvdsprmpweq 16853 . . . . . 6 ((2 ∈ ℙ ∧ (𝐿[:]𝑄) ∈ ℕ ∧ 𝑝 ∈ ℕ0) → ((𝐿[:]𝑄) ∥ (2↑𝑝) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛)))
132131imp 407 . . . . 5 (((2 ∈ ℙ ∧ (𝐿[:]𝑄) ∈ ℕ ∧ 𝑝 ∈ ℕ0) ∧ (𝐿[:]𝑄) ∥ (2↑𝑝)) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
1332, 117, 32, 130, 132syl31anc 1381 . . . 4 (((((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) ∧ 𝑝 ∈ ℕ0) ∧ ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝)) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
13462simprd 496 . . . 4 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ∃𝑝 ∈ ℕ0 ((ℂflds (lastS‘𝑣))[:](ℂflds ℚ)) = (2↑𝑝))
135133, 134r19.29a 3148 . . 3 (((((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) ∧ 𝑣 ∈ ( < Chain (SubDRing‘ℂfld))) ∧ ((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣))) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
136 simplr 774 . . . 4 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → 𝑚 ∈ ω)
13718, 39, 40, 41, 136constrextdg2 33940 . . 3 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → ∃𝑣 ∈ ( < Chain (SubDRing‘ℂfld))((𝑣‘0) = ℚ ∧ (𝐶𝑚) ⊆ (lastS‘𝑣)))
138135, 137r19.29a 3148 . 2 (((𝜑𝑚 ∈ ω) ∧ 𝐴 ∈ (𝐶𝑚)) → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
139 constrext2chnlem.a . . 3 (𝜑𝐴 ∈ Constr)
14018isconstr 33927 . . 3 (𝐴 ∈ Constr ↔ ∃𝑚 ∈ ω 𝐴 ∈ (𝐶𝑚))
141139, 140sylib 219 . 2 (𝜑 → ∃𝑚 ∈ ω 𝐴 ∈ (𝐶𝑚))
142138, 141r19.29a 3148 1 (𝜑 → ∃𝑛 ∈ ℕ0 (𝐿[:]𝑄) = (2↑𝑛))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396  w3o 1091  w3a 1092   = wceq 1547  wcel 2119  wne 2935  wrex 3064  {crab 3392  Vcvv 3432  cun 3888  wss 3890  c0 4268  {csn 4562  {cpr 4564   class class class wbr 5079  {copab 5141  cmpt 5160  Oncon0 6317  cfv 6492  (class class class)co 7363  ωcom 7813  reccrdg 8345  cc 11034  cr 11035  0cc0 11036  1c1 11037   + caddc 11039   · cmul 11041  *cxr 11176   < clt 11177  cmin 11375  cn 12172  2c2 12234  0cn0 12435  0*cxnn0 12508  cz 12522  cq 12896   ·e cxmu 13060  cexp 14021  Word cword 14473  lastSclsw 14522  ccj 15056  cim 15058  abscabs 15194  cdvds 16219  cprime 16638  Basecbs 17177  s cress 17198   Chain cchn 18569  SubRingcsubrg 20548  DivRingcdr 20708  Fieldcfield 20709  SubDRingcsdrg 20765  fldccnfld 21354   fldGen cfldgen 33401  /FldExtcfldext 33829  [:]cextdg 33831  Constrcconstr 33920
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2712  ax-rep 5206  ax-sep 5225  ax-nul 5235  ax-pow 5301  ax-pr 5369  ax-un 7685  ax-reg 9504  ax-inf2 9560  ax-ac2 10383  ax-cnex 11092  ax-resscn 11093  ax-1cn 11094  ax-icn 11095  ax-addcl 11096  ax-addrcl 11097  ax-mulcl 11098  ax-mulrcl 11099  ax-mulcom 11100  ax-addass 11101  ax-mulass 11102  ax-distr 11103  ax-i2m1 11104  ax-1ne0 11105  ax-1rid 11106  ax-rnegex 11107  ax-rrecex 11108  ax-cnre 11109  ax-pre-lttri 11110  ax-pre-lttrn 11111  ax-pre-ltadd 11112  ax-pre-mulgt0 11113  ax-pre-sup 11114  ax-addf 11115  ax-mulf 11116
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2719  df-cleq 2732  df-clel 2815  df-nfc 2889  df-ne 2936  df-nel 3040  df-ral 3055  df-rex 3065  df-rmo 3345  df-reu 3346  df-rab 3393  df-v 3434  df-sbc 3731  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4269  df-if 4462  df-pw 4538  df-sn 4563  df-pr 4565  df-tp 4567  df-op 4569  df-uni 4846  df-int 4885  df-iun 4930  df-iin 4931  df-br 5080  df-opab 5142  df-mpt 5161  df-tr 5187  df-id 5520  df-eprel 5525  df-po 5533  df-so 5534  df-fr 5578  df-se 5579  df-we 5580  df-xp 5631  df-rel 5632  df-cnv 5633  df-co 5634  df-dm 5635  df-rn 5636  df-res 5637  df-ima 5638  df-pred 6259  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6494  df-fn 6495  df-f 6496  df-f1 6497  df-fo 6498  df-f1o 6499  df-fv 6500  df-isom 6501  df-riota 7320  df-ov 7366  df-oprab 7367  df-mpo 7368  df-of 7627  df-ofr 7628  df-rpss 7673  df-om 7814  df-1st 7938  df-2nd 7939  df-supp 8108  df-tpos 8173  df-frecs 8228  df-wrecs 8259  df-recs 8308  df-rdg 8346  df-1o 8402  df-2o 8403  df-oadd 8406  df-er 8640  df-ec 8642  df-qs 8646  df-map 8772  df-pm 8773  df-ixp 8843  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-fsupp 9272  df-sup 9352  df-inf 9353  df-oi 9422  df-r1 9686  df-rank 9687  df-dju 9823  df-card 9861  df-acn 9864  df-ac 10036  df-pnf 11179  df-mnf 11180  df-xr 11181  df-ltxr 11182  df-le 11183  df-sub 11377  df-neg 11378  df-div 11806  df-nn 12173  df-2 12242  df-3 12243  df-4 12244  df-5 12245  df-6 12246  df-7 12247  df-8 12248  df-9 12249  df-n0 12436  df-xnn0 12509  df-z 12523  df-dec 12643  df-uz 12787  df-q 12897  df-rp 12941  df-xneg 13061  df-xmul 13063  df-ico 13302  df-fz 13460  df-fzo 13607  df-fl 13749  df-mod 13827  df-seq 13962  df-exp 14022  df-hash 14291  df-word 14474  df-lsw 14523  df-concat 14531  df-s1 14557  df-substr 14602  df-pfx 14632  df-cj 15059  df-re 15060  df-im 15061  df-sqrt 15195  df-abs 15196  df-dvds 16220  df-gcd 16462  df-prm 16639  df-pc 16806  df-struct 17115  df-sets 17132  df-slot 17150  df-ndx 17162  df-base 17178  df-ress 17199  df-plusg 17231  df-mulr 17232  df-starv 17233  df-sca 17234  df-vsca 17235  df-ip 17236  df-tset 17237  df-ple 17238  df-ocomp 17239  df-ds 17240  df-unif 17241  df-hom 17242  df-cco 17243  df-0g 17402  df-gsum 17403  df-prds 17408  df-pws 17410  df-imas 17470  df-qus 17471  df-mre 17546  df-mrc 17547  df-mri 17548  df-acs 17549  df-proset 18258  df-drs 18259  df-poset 18277  df-ipo 18492  df-chn 18570  df-mgm 18606  df-sgrp 18685  df-mnd 18701  df-mhm 18749  df-submnd 18750  df-grp 18910  df-minusg 18911  df-sbg 18912  df-mulg 19042  df-subg 19097  df-nsg 19098  df-eqg 19099  df-ghm 19186  df-gim 19232  df-cntz 19290  df-oppg 19319  df-lsm 19609  df-cmn 19755  df-abl 19756  df-mgp 20120  df-rng 20132  df-ur 20161  df-srg 20166  df-ring 20214  df-cring 20215  df-oppr 20315  df-dvdsr 20335  df-unit 20336  df-irred 20337  df-invr 20366  df-dvr 20379  df-rhm 20450  df-nzr 20492  df-subrng 20525  df-subrg 20549  df-rlreg 20673  df-domn 20674  df-idom 20675  df-drng 20710  df-field 20711  df-sdrg 20766  df-lmod 20859  df-lss 20929  df-lsp 20969  df-lmhm 21019  df-lmim 21020  df-lmic 21021  df-lbs 21072  df-lvec 21100  df-sra 21170  df-rgmod 21171  df-lidl 21208  df-rsp 21209  df-2idl 21250  df-lpidl 21322  df-lpir 21323  df-pid 21337  df-cnfld 21355  df-dsmm 21714  df-frlm 21729  df-uvc 21765  df-lindf 21788  df-linds 21789  df-assa 21835  df-asp 21836  df-ascl 21837  df-psr 21891  df-mvr 21892  df-mpl 21893  df-opsr 21895  df-evls 22057  df-evl 22058  df-psr1 22172  df-vr1 22173  df-ply1 22174  df-coe1 22175  df-evls1 22308  df-evl1 22309  df-mdeg 26045  df-deg1 26046  df-mon1 26121  df-uc1p 26122  df-q1p 26123  df-r1p 26124  df-ig1p 26125  df-fldgen 33402  df-mxidl 33550  df-dim 33791  df-fldext 33832  df-extdg 33833  df-irng 33875  df-minply 33891  df-constr 33921
This theorem is referenced by:  constrext2chn  33950
  Copyright terms: Public domain W3C validator