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

Theorem fldextrspunlem1 33859
Description: Lemma for fldextrspunfld 33860. Part of the proof of Proposition 5, Chapter 5, of [BourbakiAlg2] p. 116. (Contributed by Thierry Arnoux, 13-Oct-2025.)
Hypotheses
Ref Expression
fldextrspunfld.k 𝐾 = (𝐿s 𝐹)
fldextrspunfld.i 𝐼 = (𝐿s 𝐺)
fldextrspunfld.j 𝐽 = (𝐿s 𝐻)
fldextrspunfld.2 (𝜑𝐿 ∈ Field)
fldextrspunfld.3 (𝜑𝐹 ∈ (SubDRing‘𝐼))
fldextrspunfld.4 (𝜑𝐹 ∈ (SubDRing‘𝐽))
fldextrspunfld.5 (𝜑𝐺 ∈ (SubDRing‘𝐿))
fldextrspunfld.6 (𝜑𝐻 ∈ (SubDRing‘𝐿))
fldextrspunfld.7 (𝜑 → (𝐽[:]𝐾) ∈ ℕ0)
fldextrspunfld.n 𝑁 = (RingSpan‘𝐿)
fldextrspunfld.c 𝐶 = (𝑁‘(𝐺𝐻))
fldextrspunfld.e 𝐸 = (𝐿s 𝐶)
Assertion
Ref Expression
fldextrspunlem1 (𝜑 → (dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (𝐽[:]𝐾))

Proof of Theorem fldextrspunlem1
Dummy variables 𝑏 𝑐 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fldextrspunfld.6 . . . . 5 (𝜑𝐻 ∈ (SubDRing‘𝐿))
2 fldextrspunfld.j . . . . . 6 𝐽 = (𝐿s 𝐻)
32sdrgdrng 20762 . . . . 5 (𝐻 ∈ (SubDRing‘𝐿) → 𝐽 ∈ DivRing)
41, 3syl 17 . . . 4 (𝜑𝐽 ∈ DivRing)
5 fldextrspunfld.4 . . . . 5 (𝜑𝐹 ∈ (SubDRing‘𝐽))
6 eqid 2739 . . . . . 6 (𝐽s 𝐹) = (𝐽s 𝐹)
76sdrgdrng 20762 . . . . 5 (𝐹 ∈ (SubDRing‘𝐽) → (𝐽s 𝐹) ∈ DivRing)
85, 7syl 17 . . . 4 (𝜑 → (𝐽s 𝐹) ∈ DivRing)
9 sdrgsubrg 20763 . . . . . 6 (𝐻 ∈ (SubDRing‘𝐿) → 𝐻 ∈ (SubRing‘𝐿))
101, 9syl 17 . . . . 5 (𝜑𝐻 ∈ (SubRing‘𝐿))
11 fldextrspunfld.5 . . . . . . . 8 (𝜑𝐺 ∈ (SubDRing‘𝐿))
12 sdrgsubrg 20763 . . . . . . . 8 (𝐺 ∈ (SubDRing‘𝐿) → 𝐺 ∈ (SubRing‘𝐿))
1311, 12syl 17 . . . . . . 7 (𝜑𝐺 ∈ (SubRing‘𝐿))
14 fldextrspunfld.3 . . . . . . . 8 (𝜑𝐹 ∈ (SubDRing‘𝐼))
15 sdrgsubrg 20763 . . . . . . . 8 (𝐹 ∈ (SubDRing‘𝐼) → 𝐹 ∈ (SubRing‘𝐼))
1614, 15syl 17 . . . . . . 7 (𝜑𝐹 ∈ (SubRing‘𝐼))
17 fldextrspunfld.i . . . . . . . . 9 𝐼 = (𝐿s 𝐺)
1817subsubrg 20570 . . . . . . . 8 (𝐺 ∈ (SubRing‘𝐿) → (𝐹 ∈ (SubRing‘𝐼) ↔ (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹𝐺)))
1918biimpa 477 . . . . . . 7 ((𝐺 ∈ (SubRing‘𝐿) ∧ 𝐹 ∈ (SubRing‘𝐼)) → (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹𝐺))
2013, 16, 19syl2anc 590 . . . . . 6 (𝜑 → (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹𝐺))
2120simpld 495 . . . . 5 (𝜑𝐹 ∈ (SubRing‘𝐿))
22 eqid 2739 . . . . . . . 8 (Base‘𝐽) = (Base‘𝐽)
2322sdrgss 20765 . . . . . . 7 (𝐹 ∈ (SubDRing‘𝐽) → 𝐹 ⊆ (Base‘𝐽))
245, 23syl 17 . . . . . 6 (𝜑𝐹 ⊆ (Base‘𝐽))
25 eqid 2739 . . . . . . . . 9 (Base‘𝐿) = (Base‘𝐿)
2625sdrgss 20765 . . . . . . . 8 (𝐻 ∈ (SubDRing‘𝐿) → 𝐻 ⊆ (Base‘𝐿))
271, 26syl 17 . . . . . . 7 (𝜑𝐻 ⊆ (Base‘𝐿))
282, 25ressbas2 17199 . . . . . . 7 (𝐻 ⊆ (Base‘𝐿) → 𝐻 = (Base‘𝐽))
2927, 28syl 17 . . . . . 6 (𝜑𝐻 = (Base‘𝐽))
3024, 29sseqtrrd 3952 . . . . 5 (𝜑𝐹𝐻)
312subsubrg 20570 . . . . . 6 (𝐻 ∈ (SubRing‘𝐿) → (𝐹 ∈ (SubRing‘𝐽) ↔ (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹𝐻)))
3231biimpar 478 . . . . 5 ((𝐻 ∈ (SubRing‘𝐿) ∧ (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹𝐻)) → 𝐹 ∈ (SubRing‘𝐽))
3310, 21, 30, 32syl12anc 842 . . . 4 (𝜑𝐹 ∈ (SubRing‘𝐽))
34 eqid 2739 . . . . 5 ((subringAlg ‘𝐽)‘𝐹) = ((subringAlg ‘𝐽)‘𝐹)
3534, 6sralvec 33769 . . . 4 ((𝐽 ∈ DivRing ∧ (𝐽s 𝐹) ∈ DivRing ∧ 𝐹 ∈ (SubRing‘𝐽)) → ((subringAlg ‘𝐽)‘𝐹) ∈ LVec)
364, 8, 33, 35syl3anc 1379 . . 3 (𝜑 → ((subringAlg ‘𝐽)‘𝐹) ∈ LVec)
37 eqid 2739 . . . 4 (LBasis‘((subringAlg ‘𝐽)‘𝐹)) = (LBasis‘((subringAlg ‘𝐽)‘𝐹))
3837lbsex 21158 . . 3 (((subringAlg ‘𝐽)‘𝐹) ∈ LVec → (LBasis‘((subringAlg ‘𝐽)‘𝐹)) ≠ ∅)
3936, 38syl 17 . 2 (𝜑 → (LBasis‘((subringAlg ‘𝐽)‘𝐹)) ≠ ∅)
40 fldextrspunfld.2 . . . . . . . . . . . 12 (𝜑𝐿 ∈ Field)
41 fldidom 20743 . . . . . . . . . . . 12 (𝐿 ∈ Field → 𝐿 ∈ IDomn)
4240, 41syl 17 . . . . . . . . . . 11 (𝜑𝐿 ∈ IDomn)
4342idomringd 20700 . . . . . . . . . 10 (𝜑𝐿 ∈ Ring)
44 eqidd 2740 . . . . . . . . . 10 (𝜑 → (Base‘𝐿) = (Base‘𝐿))
4525sdrgss 20765 . . . . . . . . . . . 12 (𝐺 ∈ (SubDRing‘𝐿) → 𝐺 ⊆ (Base‘𝐿))
4611, 45syl 17 . . . . . . . . . . 11 (𝜑𝐺 ⊆ (Base‘𝐿))
4746, 27unssd 4121 . . . . . . . . . 10 (𝜑 → (𝐺𝐻) ⊆ (Base‘𝐿))
48 fldextrspunfld.n . . . . . . . . . . 11 𝑁 = (RingSpan‘𝐿)
4948a1i 11 . . . . . . . . . 10 (𝜑𝑁 = (RingSpan‘𝐿))
50 fldextrspunfld.c . . . . . . . . . . 11 𝐶 = (𝑁‘(𝐺𝐻))
5150a1i 11 . . . . . . . . . 10 (𝜑𝐶 = (𝑁‘(𝐺𝐻)))
5243, 44, 47, 49, 51rgspncl 20585 . . . . . . . . 9 (𝜑𝐶 ∈ (SubRing‘𝐿))
5343, 44, 47, 49, 51rgspnssid 20586 . . . . . . . . . 10 (𝜑 → (𝐺𝐻) ⊆ 𝐶)
5453unssad 4122 . . . . . . . . 9 (𝜑𝐺𝐶)
55 fldextrspunfld.e . . . . . . . . . . 11 𝐸 = (𝐿s 𝐶)
5655subsubrg 20570 . . . . . . . . . 10 (𝐶 ∈ (SubRing‘𝐿) → (𝐺 ∈ (SubRing‘𝐸) ↔ (𝐺 ∈ (SubRing‘𝐿) ∧ 𝐺𝐶)))
5756biimpar 478 . . . . . . . . 9 ((𝐶 ∈ (SubRing‘𝐿) ∧ (𝐺 ∈ (SubRing‘𝐿) ∧ 𝐺𝐶)) → 𝐺 ∈ (SubRing‘𝐸))
5852, 13, 54, 57syl12anc 842 . . . . . . . 8 (𝜑𝐺 ∈ (SubRing‘𝐸))
59 eqid 2739 . . . . . . . . 9 ((subringAlg ‘𝐸)‘𝐺) = ((subringAlg ‘𝐸)‘𝐺)
6059sralmod 21177 . . . . . . . 8 (𝐺 ∈ (SubRing‘𝐸) → ((subringAlg ‘𝐸)‘𝐺) ∈ LMod)
6158, 60syl 17 . . . . . . 7 (𝜑 → ((subringAlg ‘𝐸)‘𝐺) ∈ LMod)
62 ressabs 17209 . . . . . . . . . . 11 ((𝐶 ∈ (SubRing‘𝐿) ∧ 𝐺𝐶) → ((𝐿s 𝐶) ↾s 𝐺) = (𝐿s 𝐺))
6352, 54, 62syl2anc 590 . . . . . . . . . 10 (𝜑 → ((𝐿s 𝐶) ↾s 𝐺) = (𝐿s 𝐺))
6455oveq1i 7366 . . . . . . . . . 10 (𝐸s 𝐺) = ((𝐿s 𝐶) ↾s 𝐺)
6563, 64, 173eqtr4g 2799 . . . . . . . . 9 (𝜑 → (𝐸s 𝐺) = 𝐼)
66 eqidd 2740 . . . . . . . . . 10 (𝜑 → ((subringAlg ‘𝐸)‘𝐺) = ((subringAlg ‘𝐸)‘𝐺))
6725subrgss 20544 . . . . . . . . . . . . . 14 (𝐶 ∈ (SubRing‘𝐿) → 𝐶 ⊆ (Base‘𝐿))
6852, 67syl 17 . . . . . . . . . . . . 13 (𝜑𝐶 ⊆ (Base‘𝐿))
6955, 25ressbas2 17199 . . . . . . . . . . . . 13 (𝐶 ⊆ (Base‘𝐿) → 𝐶 = (Base‘𝐸))
7068, 69syl 17 . . . . . . . . . . . 12 (𝜑𝐶 = (Base‘𝐸))
7153, 70sseqtrd 3951 . . . . . . . . . . 11 (𝜑 → (𝐺𝐻) ⊆ (Base‘𝐸))
7271unssad 4122 . . . . . . . . . 10 (𝜑𝐺 ⊆ (Base‘𝐸))
7366, 72srasca 21170 . . . . . . . . 9 (𝜑 → (𝐸s 𝐺) = (Scalar‘((subringAlg ‘𝐸)‘𝐺)))
7465, 73eqtr3d 2776 . . . . . . . 8 (𝜑𝐼 = (Scalar‘((subringAlg ‘𝐸)‘𝐺)))
7517sdrgdrng 20762 . . . . . . . . 9 (𝐺 ∈ (SubDRing‘𝐿) → 𝐼 ∈ DivRing)
7611, 75syl 17 . . . . . . . 8 (𝜑𝐼 ∈ DivRing)
7774, 76eqeltrrd 2840 . . . . . . 7 (𝜑 → (Scalar‘((subringAlg ‘𝐸)‘𝐺)) ∈ DivRing)
78 eqid 2739 . . . . . . . 8 (Scalar‘((subringAlg ‘𝐸)‘𝐺)) = (Scalar‘((subringAlg ‘𝐸)‘𝐺))
7978islvec 21094 . . . . . . 7 (((subringAlg ‘𝐸)‘𝐺) ∈ LVec ↔ (((subringAlg ‘𝐸)‘𝐺) ∈ LMod ∧ (Scalar‘((subringAlg ‘𝐸)‘𝐺)) ∈ DivRing))
8061, 77, 79sylanbrc 589 . . . . . 6 (𝜑 → ((subringAlg ‘𝐸)‘𝐺) ∈ LVec)
81 eqid 2739 . . . . . . 7 (LBasis‘((subringAlg ‘𝐸)‘𝐺)) = (LBasis‘((subringAlg ‘𝐸)‘𝐺))
8281lbsex 21158 . . . . . 6 (((subringAlg ‘𝐸)‘𝐺) ∈ LVec → (LBasis‘((subringAlg ‘𝐸)‘𝐺)) ≠ ∅)
8380, 82syl 17 . . . . 5 (𝜑 → (LBasis‘((subringAlg ‘𝐸)‘𝐺)) ≠ ∅)
8483adantr 481 . . . 4 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (LBasis‘((subringAlg ‘𝐸)‘𝐺)) ≠ ∅)
8580ad2antrr 732 . . . . . 6 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → ((subringAlg ‘𝐸)‘𝐺) ∈ LVec)
86 simpr 485 . . . . . 6 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺)))
8781dimval 33785 . . . . . 6 ((((subringAlg ‘𝐸)‘𝐺) ∈ LVec ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → (dim‘((subringAlg ‘𝐸)‘𝐺)) = (♯‘𝑐))
8885, 86, 87syl2anc 590 . . . . 5 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → (dim‘((subringAlg ‘𝐸)‘𝐺)) = (♯‘𝑐))
89 eqid 2739 . . . . . 6 (Base‘((subringAlg ‘𝐸)‘𝐺)) = (Base‘((subringAlg ‘𝐸)‘𝐺))
90 eqid 2739 . . . . . 6 (LSpan‘((subringAlg ‘𝐸)‘𝐺)) = (LSpan‘((subringAlg ‘𝐸)‘𝐺))
91 eqid 2739 . . . . . . . . . . . 12 (Base‘((subringAlg ‘𝐽)‘𝐹)) = (Base‘((subringAlg ‘𝐽)‘𝐹))
9291, 37lbsss 21067 . . . . . . . . . . 11 (𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐽)‘𝐹)))
9392ad2antlr 733 . . . . . . . . . 10 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐽)‘𝐹)))
94 eqidd 2740 . . . . . . . . . . . . 13 (𝜑 → ((subringAlg ‘𝐽)‘𝐹) = ((subringAlg ‘𝐽)‘𝐹))
9594, 24srabase 21167 . . . . . . . . . . . 12 (𝜑 → (Base‘𝐽) = (Base‘((subringAlg ‘𝐽)‘𝐹)))
9629, 95eqtrd 2774 . . . . . . . . . . 11 (𝜑𝐻 = (Base‘((subringAlg ‘𝐽)‘𝐹)))
9796ad2antrr 732 . . . . . . . . . 10 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝐻 = (Base‘((subringAlg ‘𝐽)‘𝐹)))
9893, 97sseqtrrd 3952 . . . . . . . . 9 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝑏𝐻)
9953unssbd 4123 . . . . . . . . . 10 (𝜑𝐻𝐶)
10099ad2antrr 732 . . . . . . . . 9 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝐻𝐶)
10198, 100sstrd 3925 . . . . . . . 8 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝑏𝐶)
10270ad2antrr 732 . . . . . . . 8 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝐶 = (Base‘𝐸))
103101, 102sseqtrd 3951 . . . . . . 7 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝑏 ⊆ (Base‘𝐸))
104 eqidd 2740 . . . . . . . 8 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → ((subringAlg ‘𝐸)‘𝐺) = ((subringAlg ‘𝐸)‘𝐺))
10572ad2antrr 732 . . . . . . . 8 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝐺 ⊆ (Base‘𝐸))
106104, 105srabase 21167 . . . . . . 7 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → (Base‘𝐸) = (Base‘((subringAlg ‘𝐸)‘𝐺)))
107103, 106sseqtrd 3951 . . . . . 6 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐸)‘𝐺)))
10861ad2antrr 732 . . . . . . . 8 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → ((subringAlg ‘𝐸)‘𝐺) ∈ LMod)
10989, 90lspssv 20973 . . . . . . . 8 ((((subringAlg ‘𝐸)‘𝐺) ∈ LMod ∧ 𝑏 ⊆ (Base‘((subringAlg ‘𝐸)‘𝐺))) → ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏) ⊆ (Base‘((subringAlg ‘𝐸)‘𝐺)))
110108, 107, 109syl2anc 590 . . . . . . 7 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏) ⊆ (Base‘((subringAlg ‘𝐸)‘𝐺)))
111 fldextrspunfld.k . . . . . . . . . . . . 13 𝐾 = (𝐿s 𝐹)
11240adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐿 ∈ Field)
11314adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐹 ∈ (SubDRing‘𝐼))
1145adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐹 ∈ (SubDRing‘𝐽))
11511adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐺 ∈ (SubDRing‘𝐿))
1161adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐻 ∈ (SubDRing‘𝐿))
117 simpr 485 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)))
118 fldsdrgfld 20770 . . . . . . . . . . . . . . . . . . . . 21 ((𝐿 ∈ Field ∧ 𝐻 ∈ (SubDRing‘𝐿)) → (𝐿s 𝐻) ∈ Field)
11940, 1, 118syl2anc 590 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐿s 𝐻) ∈ Field)
1202, 119eqeltrid 2843 . . . . . . . . . . . . . . . . . . 19 (𝜑𝐽 ∈ Field)
121 ressabs 17209 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐻 ∈ (SubDRing‘𝐿) ∧ 𝐹𝐻) → ((𝐿s 𝐻) ↾s 𝐹) = (𝐿s 𝐹))
1221, 30, 121syl2anc 590 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((𝐿s 𝐻) ↾s 𝐹) = (𝐿s 𝐹))
1232oveq1i 7366 . . . . . . . . . . . . . . . . . . . . 21 (𝐽s 𝐹) = ((𝐿s 𝐻) ↾s 𝐹)
124122, 123, 1113eqtr4g 2799 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐽s 𝐹) = 𝐾)
125 fldsdrgfld 20770 . . . . . . . . . . . . . . . . . . . . 21 ((𝐽 ∈ Field ∧ 𝐹 ∈ (SubDRing‘𝐽)) → (𝐽s 𝐹) ∈ Field)
126120, 5, 125syl2anc 590 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐽s 𝐹) ∈ Field)
127124, 126eqeltrrd 2840 . . . . . . . . . . . . . . . . . . 19 (𝜑𝐾 ∈ Field)
12830, 27sstrd 3925 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑𝐹 ⊆ (Base‘𝐿))
129111, 25ressbas2 17199 . . . . . . . . . . . . . . . . . . . . . 22 (𝐹 ⊆ (Base‘𝐿) → 𝐹 = (Base‘𝐾))
130128, 129syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝐹 = (Base‘𝐾))
131130oveq2d 7372 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐽s 𝐹) = (𝐽s (Base‘𝐾)))
132124, 131eqtr3d 2776 . . . . . . . . . . . . . . . . . . 19 (𝜑𝐾 = (𝐽s (Base‘𝐾)))
133130, 33eqeltrrd 2840 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (Base‘𝐾) ∈ (SubRing‘𝐽))
134 brfldext 33829 . . . . . . . . . . . . . . . . . . . 20 ((𝐽 ∈ Field ∧ 𝐾 ∈ Field) → (𝐽/FldExt𝐾 ↔ (𝐾 = (𝐽s (Base‘𝐾)) ∧ (Base‘𝐾) ∈ (SubRing‘𝐽))))
135134biimpar 478 . . . . . . . . . . . . . . . . . . 19 (((𝐽 ∈ Field ∧ 𝐾 ∈ Field) ∧ (𝐾 = (𝐽s (Base‘𝐾)) ∧ (Base‘𝐾) ∈ (SubRing‘𝐽))) → 𝐽/FldExt𝐾)
136120, 127, 132, 133, 135syl22anc 844 . . . . . . . . . . . . . . . . . 18 (𝜑𝐽/FldExt𝐾)
137136adantr 481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐽/FldExt𝐾)
138 extdgval 33837 . . . . . . . . . . . . . . . . 17 (𝐽/FldExt𝐾 → (𝐽[:]𝐾) = (dim‘((subringAlg ‘𝐽)‘(Base‘𝐾))))
139137, 138syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (𝐽[:]𝐾) = (dim‘((subringAlg ‘𝐽)‘(Base‘𝐾))))
140130fveq2d 6831 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((subringAlg ‘𝐽)‘𝐹) = ((subringAlg ‘𝐽)‘(Base‘𝐾)))
141140fveq2d 6831 . . . . . . . . . . . . . . . . 17 (𝜑 → (dim‘((subringAlg ‘𝐽)‘𝐹)) = (dim‘((subringAlg ‘𝐽)‘(Base‘𝐾))))
142141adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (dim‘((subringAlg ‘𝐽)‘𝐹)) = (dim‘((subringAlg ‘𝐽)‘(Base‘𝐾))))
14337dimval 33785 . . . . . . . . . . . . . . . . 17 ((((subringAlg ‘𝐽)‘𝐹) ∈ LVec ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (dim‘((subringAlg ‘𝐽)‘𝐹)) = (♯‘𝑏))
14436, 143sylan 586 . . . . . . . . . . . . . . . 16 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (dim‘((subringAlg ‘𝐽)‘𝐹)) = (♯‘𝑏))
145139, 142, 1443eqtr2d 2780 . . . . . . . . . . . . . . 15 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (𝐽[:]𝐾) = (♯‘𝑏))
146 fldextrspunfld.7 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐽[:]𝐾) ∈ ℕ0)
147146adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (𝐽[:]𝐾) ∈ ℕ0)
148145, 147eqeltrrd 2840 . . . . . . . . . . . . . 14 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (♯‘𝑏) ∈ ℕ0)
149 hashclb 14311 . . . . . . . . . . . . . . 15 (𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)) → (𝑏 ∈ Fin ↔ (♯‘𝑏) ∈ ℕ0))
150149biimpar 478 . . . . . . . . . . . . . 14 ((𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)) ∧ (♯‘𝑏) ∈ ℕ0) → 𝑏 ∈ Fin)
151117, 148, 150syl2anc 590 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝑏 ∈ Fin)
152111, 17, 2, 112, 113, 114, 115, 116, 48, 50, 55, 117, 151fldextrspunlsp 33858 . . . . . . . . . . . 12 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐶 = ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏))
153152eqimssd 3971 . . . . . . . . . . 11 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐶 ⊆ ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏))
15425, 55, 68, 54, 40resssra 33771 . . . . . . . . . . . . . . 15 (𝜑 → ((subringAlg ‘𝐸)‘𝐺) = (((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶))
155154fveq2d 6831 . . . . . . . . . . . . . 14 (𝜑 → (LSpan‘((subringAlg ‘𝐸)‘𝐺)) = (LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶)))
156155adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (LSpan‘((subringAlg ‘𝐸)‘𝐺)) = (LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶)))
157156fveq1d 6829 . . . . . . . . . . . 12 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏) = ((LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶))‘𝑏))
158115, 12syl 17 . . . . . . . . . . . . . 14 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐺 ∈ (SubRing‘𝐿))
159 eqid 2739 . . . . . . . . . . . . . . 15 ((subringAlg ‘𝐿)‘𝐺) = ((subringAlg ‘𝐿)‘𝐺)
160159sralmod 21177 . . . . . . . . . . . . . 14 (𝐺 ∈ (SubRing‘𝐿) → ((subringAlg ‘𝐿)‘𝐺) ∈ LMod)
161158, 160syl 17 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → ((subringAlg ‘𝐿)‘𝐺) ∈ LMod)
162117, 92syl 17 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐽)‘𝐹)))
16396adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐻 = (Base‘((subringAlg ‘𝐽)‘𝐹)))
164162, 163sseqtrrd 3952 . . . . . . . . . . . . . . . . 17 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝑏𝐻)
165116, 26syl 17 . . . . . . . . . . . . . . . . 17 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐻 ⊆ (Base‘𝐿))
166164, 165sstrd 3925 . . . . . . . . . . . . . . . 16 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝑏 ⊆ (Base‘𝐿))
167 eqidd 2740 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((subringAlg ‘𝐿)‘𝐺) = ((subringAlg ‘𝐿)‘𝐺))
168167, 46srabase 21167 . . . . . . . . . . . . . . . . 17 (𝜑 → (Base‘𝐿) = (Base‘((subringAlg ‘𝐿)‘𝐺)))
169168adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (Base‘𝐿) = (Base‘((subringAlg ‘𝐿)‘𝐺)))
170166, 169sseqtrd 3951 . . . . . . . . . . . . . . 15 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐿)‘𝐺)))
171 eqid 2739 . . . . . . . . . . . . . . . 16 (Base‘((subringAlg ‘𝐿)‘𝐺)) = (Base‘((subringAlg ‘𝐿)‘𝐺))
172 eqid 2739 . . . . . . . . . . . . . . . 16 (LSubSp‘((subringAlg ‘𝐿)‘𝐺)) = (LSubSp‘((subringAlg ‘𝐿)‘𝐺))
173 eqid 2739 . . . . . . . . . . . . . . . 16 (LSpan‘((subringAlg ‘𝐿)‘𝐺)) = (LSpan‘((subringAlg ‘𝐿)‘𝐺))
174171, 172, 173lspcl 20966 . . . . . . . . . . . . . . 15 ((((subringAlg ‘𝐿)‘𝐺) ∈ LMod ∧ 𝑏 ⊆ (Base‘((subringAlg ‘𝐿)‘𝐺))) → ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏) ∈ (LSubSp‘((subringAlg ‘𝐿)‘𝐺)))
175161, 170, 174syl2anc 590 . . . . . . . . . . . . . 14 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏) ∈ (LSubSp‘((subringAlg ‘𝐿)‘𝐺)))
176152, 175eqeltrd 2839 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐶 ∈ (LSubSp‘((subringAlg ‘𝐿)‘𝐺)))
17799adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐻𝐶)
178164, 177sstrd 3925 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝑏𝐶)
179 eqid 2739 . . . . . . . . . . . . . 14 (((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶) = (((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶)
180 eqid 2739 . . . . . . . . . . . . . 14 (LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶)) = (LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶))
181179, 173, 180, 172lsslsp 21005 . . . . . . . . . . . . 13 ((((subringAlg ‘𝐿)‘𝐺) ∈ LMod ∧ 𝐶 ∈ (LSubSp‘((subringAlg ‘𝐿)‘𝐺)) ∧ 𝑏𝐶) → ((LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶))‘𝑏) = ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏))
182161, 176, 178, 181syl3anc 1379 . . . . . . . . . . . 12 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → ((LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶))‘𝑏) = ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏))
183157, 182eqtr2d 2775 . . . . . . . . . . 11 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏) = ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏))
184153, 183sseqtrd 3951 . . . . . . . . . 10 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐶 ⊆ ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏))
185184adantr 481 . . . . . . . . 9 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝐶 ⊆ ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏))
186102, 185eqsstrrd 3950 . . . . . . . 8 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → (Base‘𝐸) ⊆ ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏))
187106, 186eqsstrrd 3950 . . . . . . 7 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → (Base‘((subringAlg ‘𝐸)‘𝐺)) ⊆ ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏))
188110, 187eqssd 3932 . . . . . 6 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏) = (Base‘((subringAlg ‘𝐸)‘𝐺)))
18989, 81, 90, 85, 86, 107, 188lbslelsp 33782 . . . . 5 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → (♯‘𝑐) ≤ (♯‘𝑏))
19088, 189eqbrtrd 5094 . . . 4 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → (dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (♯‘𝑏))
19184, 190n0limd 32559 . . 3 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (♯‘𝑏))
192191, 145breqtrrd 5100 . 2 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (𝐽[:]𝐾))
19339, 192n0limd 32559 1 (𝜑 → (dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (𝐽[:]𝐾))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396   = wceq 1547  wcel 2119  wne 2934  cun 3881  wss 3883  c0 4261   class class class wbr 5072  cfv 6485  (class class class)co 7356  Fincfn 8883  cle 11171  0cn0 12428  chash 14283  Basecbs 17170  s cress 17191  Scalarcsca 17214  SubRingcsubrg 20541  RingSpancrgspn 20582  IDomncidom 20665  DivRingcdr 20701  Fieldcfield 20702  SubDRingcsdrg 20758  LModclmod 20850  LSubSpclss 20921  LSpanclspn 20961  LBasisclbs 21064  LVecclvec 21092  subringAlg csra 21161  dimcldim 33783  /FldExtcfldext 33822  [:]cextdg 33824
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 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678  ax-reg 9497  ax-inf2 9553  ax-ac2 10376  ax-cnex 11085  ax-resscn 11086  ax-1cn 11087  ax-icn 11088  ax-addcl 11089  ax-addrcl 11090  ax-mulcl 11091  ax-mulrcl 11092  ax-mulcom 11093  ax-addass 11094  ax-mulass 11095  ax-distr 11096  ax-i2m1 11097  ax-1ne0 11098  ax-1rid 11099  ax-rnegex 11100  ax-rrecex 11101  ax-cnre 11102  ax-pre-lttri 11103  ax-pre-lttrn 11104  ax-pre-ltadd 11105  ax-pre-mulgt0 11106  ax-pre-sup 11107  ax-addf 11108
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 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-nel 3039  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-tp 4560  df-op 4562  df-uni 4839  df-int 4878  df-iun 4923  df-iin 4924  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-se 5572  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-isom 6494  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-of 7620  df-rpss 7666  df-om 7807  df-1st 7931  df-2nd 7932  df-supp 8101  df-tpos 8166  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-2o 8396  df-oadd 8399  df-er 8633  df-map 8765  df-ixp 8836  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-fsupp 9265  df-sup 9345  df-inf 9346  df-oi 9415  df-r1 9679  df-rank 9680  df-dju 9816  df-card 9854  df-acn 9857  df-ac 10029  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-div 11799  df-ind 12151  df-nn 12166  df-2 12235  df-3 12236  df-4 12237  df-5 12238  df-6 12239  df-7 12240  df-8 12241  df-9 12242  df-n0 12429  df-xnn0 12502  df-z 12516  df-dec 12636  df-uz 12780  df-rp 12934  df-fz 13453  df-fzo 13600  df-seq 13955  df-exp 14015  df-hash 14284  df-word 14467  df-lsw 14516  df-concat 14524  df-s1 14550  df-substr 14595  df-pfx 14625  df-s2 14801  df-cj 15052  df-re 15053  df-im 15054  df-sqrt 15188  df-abs 15189  df-clim 15441  df-sum 15640  df-struct 17108  df-sets 17125  df-slot 17143  df-ndx 17155  df-base 17171  df-ress 17192  df-plusg 17224  df-mulr 17225  df-starv 17226  df-sca 17227  df-vsca 17228  df-ip 17229  df-tset 17230  df-ple 17231  df-ocomp 17232  df-ds 17233  df-unif 17234  df-hom 17235  df-cco 17236  df-0g 17395  df-gsum 17396  df-prds 17401  df-pws 17403  df-mre 17539  df-mrc 17540  df-mri 17541  df-acs 17542  df-proset 18251  df-drs 18252  df-poset 18270  df-ipo 18485  df-mgm 18599  df-sgrp 18678  df-mnd 18694  df-mhm 18742  df-submnd 18743  df-grp 18903  df-minusg 18904  df-sbg 18905  df-mulg 19035  df-subg 19090  df-ghm 19179  df-cntz 19283  df-cmn 19748  df-abl 19749  df-mgp 20113  df-rng 20125  df-ur 20154  df-ring 20207  df-cring 20208  df-oppr 20308  df-dvdsr 20328  df-unit 20329  df-invr 20359  df-nzr 20485  df-subrng 20518  df-subrg 20542  df-rgspn 20583  df-rlreg 20666  df-domn 20667  df-idom 20668  df-drng 20703  df-field 20704  df-sdrg 20759  df-lmod 20852  df-lss 20922  df-lsp 20962  df-lmhm 21012  df-lbs 21065  df-lvec 21093  df-sra 21163  df-rgmod 21164  df-cnfld 21348  df-zring 21422  df-dsmm 21707  df-frlm 21722  df-uvc 21758  df-dim 33784  df-fldext 33825  df-extdg 33826
This theorem is referenced by:  fldextrspunfld  33860  fldextrspundgle  33862
  Copyright terms: Public domain W3C validator