Metamath Proof Explorer


Theorem constrext2chnlem

Description: Lemma for constrext2chn . (Contributed by Thierry Arnoux, 26-Oct-2025)

Ref Expression
Hypotheses constr0.1 ⊢ C = rec ⁡ s ∈ V ⟼ x ∈ ℂ | ∃ a ∈ s ∃ b ∈ s ∃ c ∈ s ∃ d ∈ s ∃ t ∈ ℝ ∃ r ∈ ℝ x = a + t ⁢ b − a ∧ x = c + r ⁢ d − c ∧ ℑ ⁡ b − a ‾ ⁢ d − c ≠ 0 ∨ ∃ a ∈ s ∃ b ∈ s ∃ c ∈ s ∃ e ∈ s ∃ f ∈ s ∃ t ∈ ℝ x = a + t ⁢ b − a ∧ x − c = e − f ∨ ∃ a ∈ s ∃ b ∈ s ∃ c ∈ s ∃ d ∈ s ∃ e ∈ s ∃ f ∈ s a ≠ d ∧ x − a = b − c ∧ x − d = e − f 0 1
constrextdg2.1 ⊢ E = ℂ fld ↾ 𝑠 e
constrextdg2.2 ⊢ F = ℂ fld ↾ 𝑠 f
constrextdg2.l ⊢ < ˙ = f e | E /FldExt F ∧ E .:. F = 2
constrextdg2.n ⊢ φ → N ∈ ω
constrext2chnlem.q ⊢ Q = ℂ fld ↾ 𝑠 ℚ
constrext2chnlem.l ⊢ L = ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A
constrext2chnlem.a ⊢ φ → A ∈ Constr
Assertion constrext2chnlem ⊢ φ → ∃ n ∈ ℕ 0 L .:. Q = 2 n

Proof

Step Hyp Ref Expression
1 constr0.1 ⊢ C = rec ⁡ s ∈ V ⟼ x ∈ ℂ | ∃ a ∈ s ∃ b ∈ s ∃ c ∈ s ∃ d ∈ s ∃ t ∈ ℝ ∃ r ∈ ℝ x = a + t ⁢ b − a ∧ x = c + r ⁢ d − c ∧ ℑ ⁡ b − a ‾ ⁢ d − c ≠ 0 ∨ ∃ a ∈ s ∃ b ∈ s ∃ c ∈ s ∃ e ∈ s ∃ f ∈ s ∃ t ∈ ℝ x = a + t ⁢ b − a ∧ x − c = e − f ∨ ∃ a ∈ s ∃ b ∈ s ∃ c ∈ s ∃ d ∈ s ∃ e ∈ s ∃ f ∈ s a ≠ d ∧ x − a = b − c ∧ x − d = e − f 0 1
2 constrextdg2.1 ⊢ E = ℂ fld ↾ 𝑠 e
3 constrextdg2.2 ⊢ F = ℂ fld ↾ 𝑠 f
4 constrextdg2.l ⊢ < ˙ = f e | E /FldExt F ∧ E .:. F = 2
5 constrextdg2.n ⊢ φ → N ∈ ω
6 constrext2chnlem.q ⊢ Q = ℂ fld ↾ 𝑠 ℚ
7 constrext2chnlem.l ⊢ L = ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A
8 constrext2chnlem.a ⊢ φ → A ∈ Constr
9 2prm ⊢ 2 ∈ ℙ
10 9 a1i ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → 2 ∈ ℙ
11 7 6 oveq12i ⊢ L .:. Q = ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ
12 cnfldbas ⊢ ℂ = Base ℂ fld
13 eqid ⊢ ℂ fld ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 ℚ
14 eqid ⊢ ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A = ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A
15 cnfldfld ⊢ ℂ fld ∈ Field
16 15 a1i ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld ∈ Field
17 cndrng ⊢ ℂ fld ∈ DivRing
18 qsubdrg ⊢ ℚ ∈ SubRing ⁡ ℂ fld ∧ ℂ fld ↾ 𝑠 ℚ ∈ DivRing
19 18 simpli ⊢ ℚ ∈ SubRing ⁡ ℂ fld
20 18 simpri ⊢ ℂ fld ↾ 𝑠 ℚ ∈ DivRing
21 issdrg ⊢ ℚ ∈ SubDRing ⁡ ℂ fld ↔ ℂ fld ∈ DivRing ∧ ℚ ∈ SubRing ⁡ ℂ fld ∧ ℂ fld ↾ 𝑠 ℚ ∈ DivRing
22 17 19 20 21 mpbir3an ⊢ ℚ ∈ SubDRing ⁡ ℂ fld
23 22 a1i ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℚ ∈ SubDRing ⁡ ℂ fld
24 nnon ⊢ m ∈ ω → m ∈ On
25 24 adantl ⊢ φ ∧ m ∈ ω → m ∈ On
26 1 25 constrsscn ⊢ φ ∧ m ∈ ω → C ⁡ m ⊆ ℂ
27 26 sselda ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m → A ∈ ℂ
28 27 snssd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m → A ⊆ ℂ
29 28 ad2antrr ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → A ⊆ ℂ
30 12 13 14 16 23 29 fldgenfldext ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A /FldExt ℂ fld ↾ 𝑠 ℚ
31 30 ad2antrr ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A /FldExt ℂ fld ↾ 𝑠 ℚ
32 extdgcl ⊢ ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A /FldExt ℂ fld ↾ 𝑠 ℚ → ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ ∈ ℕ 0 *
33 31 32 syl ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ ∈ ℕ 0 *
34 simpr ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p
35 2z ⊢ 2 ∈ ℤ
36 35 a1i ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → 2 ∈ ℤ
37 simplr ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → p ∈ ℕ 0
38 36 37 zexpcld ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → 2 p ∈ ℤ
39 34 38 eqeltrd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ ∈ ℤ
40 39 zred ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ ∈ ℝ
41 xnn0xr ⊢ ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ ∈ ℕ 0 * → ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ ∈ ℝ *
42 31 32 41 3syl ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ ∈ ℝ *
43 eqid ⊢ Base ℂ fld ↾ 𝑠 lastS ⁡ v = Base ℂ fld ↾ 𝑠 lastS ⁡ v
44 simplr ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → v ∈ Chain SubDRing ⁡ ℂ fld < ˙
45 simprl ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → v ⁡ 0 = ℚ
46 45 oveq2d ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld ↾ 𝑠 v ⁡ 0 = ℂ fld ↾ 𝑠 ℚ
47 eqidd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld ↾ 𝑠 lastS ⁡ v = ℂ fld ↾ 𝑠 lastS ⁡ v
48 simpr ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ v = ∅ → v = ∅
49 48 fveq1d ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ v = ∅ → v ⁡ 0 = ∅ ⁡ 0
50 0fv ⊢ ∅ ⁡ 0 = ∅
51 50 a1i ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ v = ∅ → ∅ ⁡ 0 = ∅
52 49 51 eqtrd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ v = ∅ → v ⁡ 0 = ∅
53 45 adantr ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ v = ∅ → v ⁡ 0 = ℚ
54 1nn ⊢ 1 ∈ ℕ
55 nnq ⊢ 1 ∈ ℕ → 1 ∈ ℚ
56 54 55 ax-mp ⊢ 1 ∈ ℚ
57 56 ne0ii ⊢ ℚ ≠ ∅
58 57 a1i ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ v = ∅ → ℚ ≠ ∅
59 53 58 eqnetrd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ v = ∅ → v ⁡ 0 ≠ ∅
60 59 neneqd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ v = ∅ → ¬ v ⁡ 0 = ∅
61 52 60 pm2.65da ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ¬ v = ∅
62 61 neqned ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → v ≠ ∅
63 44 62 hashne0 ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → 0 < v
64 2 3 4 44 16 46 47 63 fldext2chn ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld ↾ 𝑠 lastS ⁡ v /FldExt ℂ fld ↾ 𝑠 ℚ ∧ ∃ p ∈ ℕ 0 ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p
65 64 simpld ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld ↾ 𝑠 lastS ⁡ v /FldExt ℂ fld ↾ 𝑠 ℚ
66 fldextfld1 ⊢ ℂ fld ↾ 𝑠 lastS ⁡ v /FldExt ℂ fld ↾ 𝑠 ℚ → ℂ fld ↾ 𝑠 lastS ⁡ v ∈ Field
67 65 66 syl ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld ↾ 𝑠 lastS ⁡ v ∈ Field
68 44 chnwrd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → v ∈ Word SubDRing ⁡ ℂ fld
69 lswcl ⊢ v ∈ Word SubDRing ⁡ ℂ fld ∧ v ≠ ∅ → lastS ⁡ v ∈ SubDRing ⁡ ℂ fld
70 68 62 69 syl2anc ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → lastS ⁡ v ∈ SubDRing ⁡ ℂ fld
71 17 a1i ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld ∈ DivRing
72 qsscn ⊢ ℚ ⊆ ℂ
73 72 a1i ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m → ℚ ⊆ ℂ
74 73 28 unssd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m → ℚ ∪ A ⊆ ℂ
75 74 ad2antrr ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℚ ∪ A ⊆ ℂ
76 12 71 75 fldgensdrg ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld fldGen ℚ ∪ A ∈ SubDRing ⁡ ℂ fld
77 13 qrngbas ⊢ ℚ = Base ℂ fld ↾ 𝑠 ℚ
78 77 65 fldextsdrg ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℚ ∈ SubDRing ⁡ ℂ fld ↾ 𝑠 lastS ⁡ v
79 43 sdrgss ⊢ ℚ ∈ SubDRing ⁡ ℂ fld ↾ 𝑠 lastS ⁡ v → ℚ ⊆ Base ℂ fld ↾ 𝑠 lastS ⁡ v
80 78 79 syl ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℚ ⊆ Base ℂ fld ↾ 𝑠 lastS ⁡ v
81 12 sdrgss ⊢ lastS ⁡ v ∈ SubDRing ⁡ ℂ fld → lastS ⁡ v ⊆ ℂ
82 70 81 syl ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → lastS ⁡ v ⊆ ℂ
83 eqid ⊢ ℂ fld ↾ 𝑠 lastS ⁡ v = ℂ fld ↾ 𝑠 lastS ⁡ v
84 83 12 ressbas2 ⊢ lastS ⁡ v ⊆ ℂ → lastS ⁡ v = Base ℂ fld ↾ 𝑠 lastS ⁡ v
85 82 84 syl ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → lastS ⁡ v = Base ℂ fld ↾ 𝑠 lastS ⁡ v
86 80 85 sseqtrrd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℚ ⊆ lastS ⁡ v
87 simprr ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → C ⁡ m ⊆ lastS ⁡ v
88 simpllr ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → A ∈ C ⁡ m
89 87 88 sseldd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → A ∈ lastS ⁡ v
90 89 snssd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → A ⊆ lastS ⁡ v
91 86 90 unssd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℚ ∪ A ⊆ lastS ⁡ v
92 12 71 70 91 fldgenssp ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld fldGen ℚ ∪ A ⊆ lastS ⁡ v
93 id ⊢ lastS ⁡ v ∈ SubDRing ⁡ ℂ fld → lastS ⁡ v ∈ SubDRing ⁡ ℂ fld
94 83 93 subsdrg ⊢ lastS ⁡ v ∈ SubDRing ⁡ ℂ fld → ℂ fld fldGen ℚ ∪ A ∈ SubDRing ⁡ ℂ fld ↾ 𝑠 lastS ⁡ v ↔ ℂ fld fldGen ℚ ∪ A ∈ SubDRing ⁡ ℂ fld ∧ ℂ fld fldGen ℚ ∪ A ⊆ lastS ⁡ v
95 94 biimpar ⊢ lastS ⁡ v ∈ SubDRing ⁡ ℂ fld ∧ ℂ fld fldGen ℚ ∪ A ∈ SubDRing ⁡ ℂ fld ∧ ℂ fld fldGen ℚ ∪ A ⊆ lastS ⁡ v → ℂ fld fldGen ℚ ∪ A ∈ SubDRing ⁡ ℂ fld ↾ 𝑠 lastS ⁡ v
96 70 76 92 95 syl12anc ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld fldGen ℚ ∪ A ∈ SubDRing ⁡ ℂ fld ↾ 𝑠 lastS ⁡ v
97 43 67 96 sdrgfldext ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld ↾ 𝑠 lastS ⁡ v /FldExt ℂ fld ↾ 𝑠 lastS ⁡ v ↾ 𝑠 ℂ fld fldGen ℚ ∪ A
98 70 elexd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → lastS ⁡ v ∈ V
99 ressabs ⊢ lastS ⁡ v ∈ V ∧ ℂ fld fldGen ℚ ∪ A ⊆ lastS ⁡ v → ℂ fld ↾ 𝑠 lastS ⁡ v ↾ 𝑠 ℂ fld fldGen ℚ ∪ A = ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A
100 98 92 99 syl2anc ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld ↾ 𝑠 lastS ⁡ v ↾ 𝑠 ℂ fld fldGen ℚ ∪ A = ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A
101 97 100 breqtrd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld ↾ 𝑠 lastS ⁡ v /FldExt ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A
102 101 ad2antrr ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v /FldExt ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A
103 extdgcl ⊢ ℂ fld ↾ 𝑠 lastS ⁡ v /FldExt ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ∈ ℕ 0 *
104 102 103 syl ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ∈ ℕ 0 *
105 xnn0xr ⊢ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ∈ ℕ 0 * → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ∈ ℝ *
106 104 105 syl ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ∈ ℝ *
107 extdggt0 ⊢ ℂ fld ↾ 𝑠 lastS ⁡ v /FldExt ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A → 0 < ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A
108 102 107 syl ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → 0 < ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A
109 extdgmul ⊢ ℂ fld ↾ 𝑠 lastS ⁡ v /FldExt ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ∧ ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A /FldExt ℂ fld ↾ 𝑠 ℚ → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ⋅ 𝑒 ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ
110 101 30 109 syl2anc ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ⋅ 𝑒 ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ
111 110 ad2antrr ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ⋅ 𝑒 ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ
112 xmulcom ⊢ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ∈ ℝ * ∧ ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ ∈ ℝ * → ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ⋅ 𝑒 ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ ⋅ 𝑒 ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A
113 106 42 112 syl2anc ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ⋅ 𝑒 ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ ⋅ 𝑒 ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A
114 111 113 eqtrd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ ⋅ 𝑒 ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A
115 40 42 106 108 114 rexmul2 ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ ∈ ℝ
116 extdggt0 ⊢ ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A /FldExt ℂ fld ↾ 𝑠 ℚ → 0 < ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ
117 31 116 syl ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → 0 < ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ
118 33 115 117 xnn0nnd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ ∈ ℕ
119 11 118 eqeltrid ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → L .:. Q ∈ ℕ
120 40 106 42 117 111 rexmul2 ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ∈ ℝ
121 104 120 xnn0nn0d ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ∈ ℕ 0
122 121 nn0zd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ∈ ℤ
123 118 nnnn0d ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ ∈ ℕ 0
124 123 nn0zd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ ∈ ℤ
125 rexmul ⊢ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ∈ ℝ ∧ ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ ∈ ℝ → ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ⋅ 𝑒 ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ⁢ ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ
126 120 115 125 syl2anc ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ⋅ 𝑒 ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ⁢ ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ
127 111 126 eqtrd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ⁢ ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ
128 127 eqcomd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ⁢ ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ = ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ
129 128 34 eqtrd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ⁢ ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ = 2 p
130 dvds0lem ⊢ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ∈ ℤ ∧ ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A .:. ℂ fld ↾ 𝑠 ℚ ∈ ℤ ∧ 2 p ∈ ℤ ∧ ℂ fld ↾ 𝑠 lastS ⁡ v : ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A ⁢ ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ ∥ 2 p
131 122 124 38 129 130 syl31anc ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ℂ fld ↾ 𝑠 ℂ fld fldGen ℚ ∪ A : ℂ fld ↾ 𝑠 ℚ ∥ 2 p
132 11 131 eqbrtrid ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → L : Q ∥ 2 p
133 dvdsprmpweq ⊢ 2 ∈ ℙ ∧ L .:. Q ∈ ℕ ∧ p ∈ ℕ 0 → L : Q ∥ 2 p → ∃ n ∈ ℕ 0 L .:. Q = 2 n
134 133 imp ⊢ 2 ∈ ℙ ∧ L .:. Q ∈ ℕ ∧ p ∈ ℕ 0 ∧ L : Q ∥ 2 p → ∃ n ∈ ℕ 0 L .:. Q = 2 n
135 10 119 37 132 134 syl31anc ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v ∧ p ∈ ℕ 0 ∧ ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p → ∃ n ∈ ℕ 0 L .:. Q = 2 n
136 64 simprd ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ∃ p ∈ ℕ 0 ℂ fld ↾ 𝑠 lastS ⁡ v .:. ℂ fld ↾ 𝑠 ℚ = 2 p
137 135 136 r19.29a ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m ∧ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ ∧ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v → ∃ n ∈ ℕ 0 L .:. Q = 2 n
138 simplr ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m → m ∈ ω
139 1 2 3 4 138 constrextdg2 ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m → ∃ v ∈ Chain SubDRing ⁡ ℂ fld < ˙ v ⁡ 0 = ℚ ∧ C ⁡ m ⊆ lastS ⁡ v
140 137 139 r19.29a ⊢ φ ∧ m ∈ ω ∧ A ∈ C ⁡ m → ∃ n ∈ ℕ 0 L .:. Q = 2 n
141 1 isconstr ⊢ A ∈ Constr ↔ ∃ m ∈ ω A ∈ C ⁡ m
142 8 141 sylib ⊢ φ → ∃ m ∈ ω A ∈ C ⁡ m
143 140 142 r19.29a ⊢ φ → ∃ n ∈ ℕ 0 L .:. Q = 2 n