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 33710
Description: Lemma for fldextrspunfld 33711. 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 20783 . . . . 5 (𝐻 ∈ (SubDRing‘𝐿) → 𝐽 ∈ DivRing)
41, 3syl 17 . . . 4 (𝜑𝐽 ∈ DivRing)
5 fldextrspunfld.4 . . . . 5 (𝜑𝐹 ∈ (SubDRing‘𝐽))
6 eqid 2736 . . . . . 6 (𝐽s 𝐹) = (𝐽s 𝐹)
76sdrgdrng 20783 . . . . 5 (𝐹 ∈ (SubDRing‘𝐽) → (𝐽s 𝐹) ∈ DivRing)
85, 7syl 17 . . . 4 (𝜑 → (𝐽s 𝐹) ∈ DivRing)
9 sdrgsubrg 20784 . . . . . 6 (𝐻 ∈ (SubDRing‘𝐿) → 𝐻 ∈ (SubRing‘𝐿))
101, 9syl 17 . . . . 5 (𝜑𝐻 ∈ (SubRing‘𝐿))
11 fldextrspunfld.5 . . . . . . . 8 (𝜑𝐺 ∈ (SubDRing‘𝐿))
12 sdrgsubrg 20784 . . . . . . . 8 (𝐺 ∈ (SubDRing‘𝐿) → 𝐺 ∈ (SubRing‘𝐿))
1311, 12syl 17 . . . . . . 7 (𝜑𝐺 ∈ (SubRing‘𝐿))
14 fldextrspunfld.3 . . . . . . . 8 (𝜑𝐹 ∈ (SubDRing‘𝐼))
15 sdrgsubrg 20784 . . . . . . . 8 (𝐹 ∈ (SubDRing‘𝐼) → 𝐹 ∈ (SubRing‘𝐼))
1614, 15syl 17 . . . . . . 7 (𝜑𝐹 ∈ (SubRing‘𝐼))
17 fldextrspunfld.i . . . . . . . . 9 𝐼 = (𝐿s 𝐺)
1817subsubrg 20590 . . . . . . . 8 (𝐺 ∈ (SubRing‘𝐿) → (𝐹 ∈ (SubRing‘𝐼) ↔ (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹𝐺)))
1918biimpa 476 . . . . . . 7 ((𝐺 ∈ (SubRing‘𝐿) ∧ 𝐹 ∈ (SubRing‘𝐼)) → (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹𝐺))
2013, 16, 19syl2anc 584 . . . . . 6 (𝜑 → (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹𝐺))
2120simpld 494 . . . . 5 (𝜑𝐹 ∈ (SubRing‘𝐿))
22 eqid 2736 . . . . . . . 8 (Base‘𝐽) = (Base‘𝐽)
2322sdrgss 20786 . . . . . . 7 (𝐹 ∈ (SubDRing‘𝐽) → 𝐹 ⊆ (Base‘𝐽))
245, 23syl 17 . . . . . 6 (𝜑𝐹 ⊆ (Base‘𝐽))
25 eqid 2736 . . . . . . . . 9 (Base‘𝐿) = (Base‘𝐿)
2625sdrgss 20786 . . . . . . . 8 (𝐻 ∈ (SubDRing‘𝐿) → 𝐻 ⊆ (Base‘𝐿))
271, 26syl 17 . . . . . . 7 (𝜑𝐻 ⊆ (Base‘𝐿))
282, 25ressbas2 17279 . . . . . . 7 (𝐻 ⊆ (Base‘𝐿) → 𝐻 = (Base‘𝐽))
2927, 28syl 17 . . . . . 6 (𝜑𝐻 = (Base‘𝐽))
3024, 29sseqtrrd 4020 . . . . 5 (𝜑𝐹𝐻)
312subsubrg 20590 . . . . . 6 (𝐻 ∈ (SubRing‘𝐿) → (𝐹 ∈ (SubRing‘𝐽) ↔ (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹𝐻)))
3231biimpar 477 . . . . 5 ((𝐻 ∈ (SubRing‘𝐿) ∧ (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹𝐻)) → 𝐹 ∈ (SubRing‘𝐽))
3310, 21, 30, 32syl12anc 837 . . . 4 (𝜑𝐹 ∈ (SubRing‘𝐽))
34 eqid 2736 . . . . 5 ((subringAlg ‘𝐽)‘𝐹) = ((subringAlg ‘𝐽)‘𝐹)
3534, 6sralvec 33623 . . . 4 ((𝐽 ∈ DivRing ∧ (𝐽s 𝐹) ∈ DivRing ∧ 𝐹 ∈ (SubRing‘𝐽)) → ((subringAlg ‘𝐽)‘𝐹) ∈ LVec)
364, 8, 33, 35syl3anc 1373 . . 3 (𝜑 → ((subringAlg ‘𝐽)‘𝐹) ∈ LVec)
37 eqid 2736 . . . 4 (LBasis‘((subringAlg ‘𝐽)‘𝐹)) = (LBasis‘((subringAlg ‘𝐽)‘𝐹))
3837lbsex 21159 . . 3 (((subringAlg ‘𝐽)‘𝐹) ∈ LVec → (LBasis‘((subringAlg ‘𝐽)‘𝐹)) ≠ ∅)
3936, 38syl 17 . 2 (𝜑 → (LBasis‘((subringAlg ‘𝐽)‘𝐹)) ≠ ∅)
40 fldextrspunfld.2 . . . . . . . . . . . 12 (𝜑𝐿 ∈ Field)
41 fldidom 20763 . . . . . . . . . . . 12 (𝐿 ∈ Field → 𝐿 ∈ IDomn)
4240, 41syl 17 . . . . . . . . . . 11 (𝜑𝐿 ∈ IDomn)
4342idomringd 20720 . . . . . . . . . 10 (𝜑𝐿 ∈ Ring)
44 eqidd 2737 . . . . . . . . . 10 (𝜑 → (Base‘𝐿) = (Base‘𝐿))
4525sdrgss 20786 . . . . . . . . . . . 12 (𝐺 ∈ (SubDRing‘𝐿) → 𝐺 ⊆ (Base‘𝐿))
4611, 45syl 17 . . . . . . . . . . 11 (𝜑𝐺 ⊆ (Base‘𝐿))
4746, 27unssd 4191 . . . . . . . . . 10 (𝜑 → (𝐺𝐻) ⊆ (Base‘𝐿))
48 fldextrspunfld.n . . . . . . . . . . 11 𝑁 = (RingSpan‘𝐿)
4948a1i 11 . . . . . . . . . 10 (𝜑𝑁 = (RingSpan‘𝐿))
50 fldextrspunfld.c . . . . . . . . . . 11 𝐶 = (𝑁‘(𝐺𝐻))
5150a1i 11 . . . . . . . . . 10 (𝜑𝐶 = (𝑁‘(𝐺𝐻)))
5243, 44, 47, 49, 51rgspncl 20605 . . . . . . . . 9 (𝜑𝐶 ∈ (SubRing‘𝐿))
5343, 44, 47, 49, 51rgspnssid 20606 . . . . . . . . . 10 (𝜑 → (𝐺𝐻) ⊆ 𝐶)
5453unssad 4192 . . . . . . . . 9 (𝜑𝐺𝐶)
55 fldextrspunfld.e . . . . . . . . . . 11 𝐸 = (𝐿s 𝐶)
5655subsubrg 20590 . . . . . . . . . 10 (𝐶 ∈ (SubRing‘𝐿) → (𝐺 ∈ (SubRing‘𝐸) ↔ (𝐺 ∈ (SubRing‘𝐿) ∧ 𝐺𝐶)))
5756biimpar 477 . . . . . . . . 9 ((𝐶 ∈ (SubRing‘𝐿) ∧ (𝐺 ∈ (SubRing‘𝐿) ∧ 𝐺𝐶)) → 𝐺 ∈ (SubRing‘𝐸))
5852, 13, 54, 57syl12anc 837 . . . . . . . 8 (𝜑𝐺 ∈ (SubRing‘𝐸))
59 eqid 2736 . . . . . . . . 9 ((subringAlg ‘𝐸)‘𝐺) = ((subringAlg ‘𝐸)‘𝐺)
6059sralmod 21186 . . . . . . . 8 (𝐺 ∈ (SubRing‘𝐸) → ((subringAlg ‘𝐸)‘𝐺) ∈ LMod)
6158, 60syl 17 . . . . . . 7 (𝜑 → ((subringAlg ‘𝐸)‘𝐺) ∈ LMod)
62 ressabs 17290 . . . . . . . . . . 11 ((𝐶 ∈ (SubRing‘𝐿) ∧ 𝐺𝐶) → ((𝐿s 𝐶) ↾s 𝐺) = (𝐿s 𝐺))
6352, 54, 62syl2anc 584 . . . . . . . . . 10 (𝜑 → ((𝐿s 𝐶) ↾s 𝐺) = (𝐿s 𝐺))
6455oveq1i 7439 . . . . . . . . . 10 (𝐸s 𝐺) = ((𝐿s 𝐶) ↾s 𝐺)
6563, 64, 173eqtr4g 2801 . . . . . . . . 9 (𝜑 → (𝐸s 𝐺) = 𝐼)
66 eqidd 2737 . . . . . . . . . 10 (𝜑 → ((subringAlg ‘𝐸)‘𝐺) = ((subringAlg ‘𝐸)‘𝐺))
6725subrgss 20564 . . . . . . . . . . . . . 14 (𝐶 ∈ (SubRing‘𝐿) → 𝐶 ⊆ (Base‘𝐿))
6852, 67syl 17 . . . . . . . . . . . . 13 (𝜑𝐶 ⊆ (Base‘𝐿))
6955, 25ressbas2 17279 . . . . . . . . . . . . 13 (𝐶 ⊆ (Base‘𝐿) → 𝐶 = (Base‘𝐸))
7068, 69syl 17 . . . . . . . . . . . 12 (𝜑𝐶 = (Base‘𝐸))
7153, 70sseqtrd 4019 . . . . . . . . . . 11 (𝜑 → (𝐺𝐻) ⊆ (Base‘𝐸))
7271unssad 4192 . . . . . . . . . 10 (𝜑𝐺 ⊆ (Base‘𝐸))
7366, 72srasca 21175 . . . . . . . . 9 (𝜑 → (𝐸s 𝐺) = (Scalar‘((subringAlg ‘𝐸)‘𝐺)))
7465, 73eqtr3d 2778 . . . . . . . 8 (𝜑𝐼 = (Scalar‘((subringAlg ‘𝐸)‘𝐺)))
7517sdrgdrng 20783 . . . . . . . . 9 (𝐺 ∈ (SubDRing‘𝐿) → 𝐼 ∈ DivRing)
7611, 75syl 17 . . . . . . . 8 (𝜑𝐼 ∈ DivRing)
7774, 76eqeltrrd 2841 . . . . . . 7 (𝜑 → (Scalar‘((subringAlg ‘𝐸)‘𝐺)) ∈ DivRing)
78 eqid 2736 . . . . . . . 8 (Scalar‘((subringAlg ‘𝐸)‘𝐺)) = (Scalar‘((subringAlg ‘𝐸)‘𝐺))
7978islvec 21095 . . . . . . 7 (((subringAlg ‘𝐸)‘𝐺) ∈ LVec ↔ (((subringAlg ‘𝐸)‘𝐺) ∈ LMod ∧ (Scalar‘((subringAlg ‘𝐸)‘𝐺)) ∈ DivRing))
8061, 77, 79sylanbrc 583 . . . . . 6 (𝜑 → ((subringAlg ‘𝐸)‘𝐺) ∈ LVec)
81 eqid 2736 . . . . . . 7 (LBasis‘((subringAlg ‘𝐸)‘𝐺)) = (LBasis‘((subringAlg ‘𝐸)‘𝐺))
8281lbsex 21159 . . . . . 6 (((subringAlg ‘𝐸)‘𝐺) ∈ LVec → (LBasis‘((subringAlg ‘𝐸)‘𝐺)) ≠ ∅)
8380, 82syl 17 . . . . 5 (𝜑 → (LBasis‘((subringAlg ‘𝐸)‘𝐺)) ≠ ∅)
8483adantr 480 . . . 4 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (LBasis‘((subringAlg ‘𝐸)‘𝐺)) ≠ ∅)
8580ad2antrr 726 . . . . . 6 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → ((subringAlg ‘𝐸)‘𝐺) ∈ LVec)
86 simpr 484 . . . . . 6 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺)))
8781dimval 33638 . . . . . 6 ((((subringAlg ‘𝐸)‘𝐺) ∈ LVec ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → (dim‘((subringAlg ‘𝐸)‘𝐺)) = (♯‘𝑐))
8885, 86, 87syl2anc 584 . . . . 5 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → (dim‘((subringAlg ‘𝐸)‘𝐺)) = (♯‘𝑐))
89 eqid 2736 . . . . . 6 (Base‘((subringAlg ‘𝐸)‘𝐺)) = (Base‘((subringAlg ‘𝐸)‘𝐺))
90 eqid 2736 . . . . . 6 (LSpan‘((subringAlg ‘𝐸)‘𝐺)) = (LSpan‘((subringAlg ‘𝐸)‘𝐺))
91 eqid 2736 . . . . . . . . . . . 12 (Base‘((subringAlg ‘𝐽)‘𝐹)) = (Base‘((subringAlg ‘𝐽)‘𝐹))
9291, 37lbsss 21068 . . . . . . . . . . 11 (𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐽)‘𝐹)))
9392ad2antlr 727 . . . . . . . . . 10 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐽)‘𝐹)))
94 eqidd 2737 . . . . . . . . . . . . 13 (𝜑 → ((subringAlg ‘𝐽)‘𝐹) = ((subringAlg ‘𝐽)‘𝐹))
9594, 24srabase 21169 . . . . . . . . . . . 12 (𝜑 → (Base‘𝐽) = (Base‘((subringAlg ‘𝐽)‘𝐹)))
9629, 95eqtrd 2776 . . . . . . . . . . 11 (𝜑𝐻 = (Base‘((subringAlg ‘𝐽)‘𝐹)))
9796ad2antrr 726 . . . . . . . . . 10 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝐻 = (Base‘((subringAlg ‘𝐽)‘𝐹)))
9893, 97sseqtrrd 4020 . . . . . . . . 9 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝑏𝐻)
9953unssbd 4193 . . . . . . . . . 10 (𝜑𝐻𝐶)
10099ad2antrr 726 . . . . . . . . 9 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝐻𝐶)
10198, 100sstrd 3993 . . . . . . . 8 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝑏𝐶)
10270ad2antrr 726 . . . . . . . 8 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝐶 = (Base‘𝐸))
103101, 102sseqtrd 4019 . . . . . . 7 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝑏 ⊆ (Base‘𝐸))
104 eqidd 2737 . . . . . . . 8 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → ((subringAlg ‘𝐸)‘𝐺) = ((subringAlg ‘𝐸)‘𝐺))
10572ad2antrr 726 . . . . . . . 8 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝐺 ⊆ (Base‘𝐸))
106104, 105srabase 21169 . . . . . . 7 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → (Base‘𝐸) = (Base‘((subringAlg ‘𝐸)‘𝐺)))
107103, 106sseqtrd 4019 . . . . . 6 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐸)‘𝐺)))
10861ad2antrr 726 . . . . . . . 8 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → ((subringAlg ‘𝐸)‘𝐺) ∈ LMod)
10989, 90lspssv 20973 . . . . . . . 8 ((((subringAlg ‘𝐸)‘𝐺) ∈ LMod ∧ 𝑏 ⊆ (Base‘((subringAlg ‘𝐸)‘𝐺))) → ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏) ⊆ (Base‘((subringAlg ‘𝐸)‘𝐺)))
110108, 107, 109syl2anc 584 . . . . . . 7 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏) ⊆ (Base‘((subringAlg ‘𝐸)‘𝐺)))
111 fldextrspunfld.k . . . . . . . . . . . . 13 𝐾 = (𝐿s 𝐹)
11240adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐿 ∈ Field)
11314adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐹 ∈ (SubDRing‘𝐼))
1145adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐹 ∈ (SubDRing‘𝐽))
11511adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐺 ∈ (SubDRing‘𝐿))
1161adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐻 ∈ (SubDRing‘𝐿))
117 simpr 484 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)))
118 fldsdrgfld 20791 . . . . . . . . . . . . . . . . . . . . 21 ((𝐿 ∈ Field ∧ 𝐻 ∈ (SubDRing‘𝐿)) → (𝐿s 𝐻) ∈ Field)
11940, 1, 118syl2anc 584 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐿s 𝐻) ∈ Field)
1202, 119eqeltrid 2844 . . . . . . . . . . . . . . . . . . 19 (𝜑𝐽 ∈ Field)
121 ressabs 17290 . . . . . . . . . . . . . . . . . . . . . 22 ((𝐻 ∈ (SubDRing‘𝐿) ∧ 𝐹𝐻) → ((𝐿s 𝐻) ↾s 𝐹) = (𝐿s 𝐹))
1221, 30, 121syl2anc 584 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → ((𝐿s 𝐻) ↾s 𝐹) = (𝐿s 𝐹))
1232oveq1i 7439 . . . . . . . . . . . . . . . . . . . . 21 (𝐽s 𝐹) = ((𝐿s 𝐻) ↾s 𝐹)
124122, 123, 1113eqtr4g 2801 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐽s 𝐹) = 𝐾)
125 fldsdrgfld 20791 . . . . . . . . . . . . . . . . . . . . 21 ((𝐽 ∈ Field ∧ 𝐹 ∈ (SubDRing‘𝐽)) → (𝐽s 𝐹) ∈ Field)
126120, 5, 125syl2anc 584 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐽s 𝐹) ∈ Field)
127124, 126eqeltrrd 2841 . . . . . . . . . . . . . . . . . . 19 (𝜑𝐾 ∈ Field)
12830, 27sstrd 3993 . . . . . . . . . . . . . . . . . . . . . 22 (𝜑𝐹 ⊆ (Base‘𝐿))
129111, 25ressbas2 17279 . . . . . . . . . . . . . . . . . . . . . 22 (𝐹 ⊆ (Base‘𝐿) → 𝐹 = (Base‘𝐾))
130128, 129syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝜑𝐹 = (Base‘𝐾))
131130oveq2d 7445 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → (𝐽s 𝐹) = (𝐽s (Base‘𝐾)))
132124, 131eqtr3d 2778 . . . . . . . . . . . . . . . . . . 19 (𝜑𝐾 = (𝐽s (Base‘𝐾)))
133130, 33eqeltrrd 2841 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (Base‘𝐾) ∈ (SubRing‘𝐽))
134 brfldext 33685 . . . . . . . . . . . . . . . . . . . 20 ((𝐽 ∈ Field ∧ 𝐾 ∈ Field) → (𝐽/FldExt𝐾 ↔ (𝐾 = (𝐽s (Base‘𝐾)) ∧ (Base‘𝐾) ∈ (SubRing‘𝐽))))
135134biimpar 477 . . . . . . . . . . . . . . . . . . 19 (((𝐽 ∈ Field ∧ 𝐾 ∈ Field) ∧ (𝐾 = (𝐽s (Base‘𝐾)) ∧ (Base‘𝐾) ∈ (SubRing‘𝐽))) → 𝐽/FldExt𝐾)
136120, 127, 132, 133, 135syl22anc 839 . . . . . . . . . . . . . . . . . 18 (𝜑𝐽/FldExt𝐾)
137136adantr 480 . . . . . . . . . . . . . . . . 17 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐽/FldExt𝐾)
138 extdgval 33692 . . . . . . . . . . . . . . . . 17 (𝐽/FldExt𝐾 → (𝐽[:]𝐾) = (dim‘((subringAlg ‘𝐽)‘(Base‘𝐾))))
139137, 138syl 17 . . . . . . . . . . . . . . . 16 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (𝐽[:]𝐾) = (dim‘((subringAlg ‘𝐽)‘(Base‘𝐾))))
140130fveq2d 6908 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((subringAlg ‘𝐽)‘𝐹) = ((subringAlg ‘𝐽)‘(Base‘𝐾)))
141140fveq2d 6908 . . . . . . . . . . . . . . . . 17 (𝜑 → (dim‘((subringAlg ‘𝐽)‘𝐹)) = (dim‘((subringAlg ‘𝐽)‘(Base‘𝐾))))
142141adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (dim‘((subringAlg ‘𝐽)‘𝐹)) = (dim‘((subringAlg ‘𝐽)‘(Base‘𝐾))))
14337dimval 33638 . . . . . . . . . . . . . . . . 17 ((((subringAlg ‘𝐽)‘𝐹) ∈ LVec ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (dim‘((subringAlg ‘𝐽)‘𝐹)) = (♯‘𝑏))
14436, 143sylan 580 . . . . . . . . . . . . . . . 16 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (dim‘((subringAlg ‘𝐽)‘𝐹)) = (♯‘𝑏))
145139, 142, 1443eqtr2d 2782 . . . . . . . . . . . . . . 15 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (𝐽[:]𝐾) = (♯‘𝑏))
146 fldextrspunfld.7 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐽[:]𝐾) ∈ ℕ0)
147146adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (𝐽[:]𝐾) ∈ ℕ0)
148145, 147eqeltrrd 2841 . . . . . . . . . . . . . 14 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (♯‘𝑏) ∈ ℕ0)
149 hashclb 14393 . . . . . . . . . . . . . . 15 (𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)) → (𝑏 ∈ Fin ↔ (♯‘𝑏) ∈ ℕ0))
150149biimpar 477 . . . . . . . . . . . . . 14 ((𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)) ∧ (♯‘𝑏) ∈ ℕ0) → 𝑏 ∈ Fin)
151117, 148, 150syl2anc 584 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝑏 ∈ Fin)
152111, 17, 2, 112, 113, 114, 115, 116, 48, 50, 55, 117, 151fldextrspunlsp 33709 . . . . . . . . . . . 12 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐶 = ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏))
153152eqimssd 4039 . . . . . . . . . . 11 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐶 ⊆ ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏))
15425, 55, 68, 54, 40resssra 33625 . . . . . . . . . . . . . . 15 (𝜑 → ((subringAlg ‘𝐸)‘𝐺) = (((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶))
155154fveq2d 6908 . . . . . . . . . . . . . 14 (𝜑 → (LSpan‘((subringAlg ‘𝐸)‘𝐺)) = (LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶)))
156155adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (LSpan‘((subringAlg ‘𝐸)‘𝐺)) = (LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶)))
157156fveq1d 6906 . . . . . . . . . . . 12 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏) = ((LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶))‘𝑏))
158115, 12syl 17 . . . . . . . . . . . . . 14 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐺 ∈ (SubRing‘𝐿))
159 eqid 2736 . . . . . . . . . . . . . . 15 ((subringAlg ‘𝐿)‘𝐺) = ((subringAlg ‘𝐿)‘𝐺)
160159sralmod 21186 . . . . . . . . . . . . . 14 (𝐺 ∈ (SubRing‘𝐿) → ((subringAlg ‘𝐿)‘𝐺) ∈ LMod)
161158, 160syl 17 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → ((subringAlg ‘𝐿)‘𝐺) ∈ LMod)
162117, 92syl 17 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐽)‘𝐹)))
16396adantr 480 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐻 = (Base‘((subringAlg ‘𝐽)‘𝐹)))
164162, 163sseqtrrd 4020 . . . . . . . . . . . . . . . . 17 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝑏𝐻)
165116, 26syl 17 . . . . . . . . . . . . . . . . 17 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐻 ⊆ (Base‘𝐿))
166164, 165sstrd 3993 . . . . . . . . . . . . . . . 16 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝑏 ⊆ (Base‘𝐿))
167 eqidd 2737 . . . . . . . . . . . . . . . . . 18 (𝜑 → ((subringAlg ‘𝐿)‘𝐺) = ((subringAlg ‘𝐿)‘𝐺))
168167, 46srabase 21169 . . . . . . . . . . . . . . . . 17 (𝜑 → (Base‘𝐿) = (Base‘((subringAlg ‘𝐿)‘𝐺)))
169168adantr 480 . . . . . . . . . . . . . . . 16 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (Base‘𝐿) = (Base‘((subringAlg ‘𝐿)‘𝐺)))
170166, 169sseqtrd 4019 . . . . . . . . . . . . . . 15 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝑏 ⊆ (Base‘((subringAlg ‘𝐿)‘𝐺)))
171 eqid 2736 . . . . . . . . . . . . . . . 16 (Base‘((subringAlg ‘𝐿)‘𝐺)) = (Base‘((subringAlg ‘𝐿)‘𝐺))
172 eqid 2736 . . . . . . . . . . . . . . . 16 (LSubSp‘((subringAlg ‘𝐿)‘𝐺)) = (LSubSp‘((subringAlg ‘𝐿)‘𝐺))
173 eqid 2736 . . . . . . . . . . . . . . . 16 (LSpan‘((subringAlg ‘𝐿)‘𝐺)) = (LSpan‘((subringAlg ‘𝐿)‘𝐺))
174171, 172, 173lspcl 20966 . . . . . . . . . . . . . . 15 ((((subringAlg ‘𝐿)‘𝐺) ∈ LMod ∧ 𝑏 ⊆ (Base‘((subringAlg ‘𝐿)‘𝐺))) → ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏) ∈ (LSubSp‘((subringAlg ‘𝐿)‘𝐺)))
175161, 170, 174syl2anc 584 . . . . . . . . . . . . . 14 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏) ∈ (LSubSp‘((subringAlg ‘𝐿)‘𝐺)))
176152, 175eqeltrd 2840 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐶 ∈ (LSubSp‘((subringAlg ‘𝐿)‘𝐺)))
17799adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐻𝐶)
178164, 177sstrd 3993 . . . . . . . . . . . . 13 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝑏𝐶)
179 eqid 2736 . . . . . . . . . . . . . 14 (((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶) = (((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶)
180 eqid 2736 . . . . . . . . . . . . . 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 1373 . . . . . . . . . . . 12 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → ((LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶))‘𝑏) = ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏))
183157, 182eqtr2d 2777 . . . . . . . . . . 11 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏) = ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏))
184153, 183sseqtrd 4019 . . . . . . . . . 10 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → 𝐶 ⊆ ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏))
185184adantr 480 . . . . . . . . 9 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → 𝐶 ⊆ ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏))
186102, 185eqsstrrd 4018 . . . . . . . 8 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → (Base‘𝐸) ⊆ ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏))
187106, 186eqsstrrd 4018 . . . . . . 7 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → (Base‘((subringAlg ‘𝐸)‘𝐺)) ⊆ ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏))
188110, 187eqssd 4000 . . . . . 6 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏) = (Base‘((subringAlg ‘𝐸)‘𝐺)))
18989, 81, 90, 85, 86, 107, 188lbslelsp 33635 . . . . 5 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → (♯‘𝑐) ≤ (♯‘𝑏))
19088, 189eqbrtrd 5163 . . . 4 (((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐺))) → (dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (♯‘𝑏))
19184, 190n0limd 32480 . . 3 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (♯‘𝑏))
192191, 145breqtrrd 5169 . 2 ((𝜑𝑏 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹))) → (dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (𝐽[:]𝐾))
19339, 192n0limd 32480 1 (𝜑 → (dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (𝐽[:]𝐾))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395   = wceq 1540  wcel 2108  wne 2939  cun 3948  wss 3950  c0 4332   class class class wbr 5141  cfv 6559  (class class class)co 7429  Fincfn 8981  cle 11292  0cn0 12522  chash 14365  Basecbs 17243  s cress 17270  Scalarcsca 17296  SubRingcsubrg 20561  RingSpancrgspn 20602  IDomncidom 20685  DivRingcdr 20721  Fieldcfield 20722  SubDRingcsdrg 20779  LModclmod 20850  LSubSpclss 20921  LSpanclspn 20961  LBasisclbs 21065  LVecclvec 21093  subringAlg csra 21162  dimcldim 33636  /FldExtcfldext 33676  [:]cextdg 33679
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-rep 5277  ax-sep 5294  ax-nul 5304  ax-pow 5363  ax-pr 5430  ax-un 7751  ax-reg 9628  ax-inf2 9677  ax-ac2 10499  ax-cnex 11207  ax-resscn 11208  ax-1cn 11209  ax-icn 11210  ax-addcl 11211  ax-addrcl 11212  ax-mulcl 11213  ax-mulrcl 11214  ax-mulcom 11215  ax-addass 11216  ax-mulass 11217  ax-distr 11218  ax-i2m1 11219  ax-1ne0 11220  ax-1rid 11221  ax-rnegex 11222  ax-rrecex 11223  ax-cnre 11224  ax-pre-lttri 11225  ax-pre-lttrn 11226  ax-pre-ltadd 11227  ax-pre-mulgt0 11228  ax-pre-sup 11229  ax-addf 11230
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2728  df-clel 2815  df-nfc 2891  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3379  df-reu 3380  df-rab 3436  df-v 3481  df-sbc 3788  df-csb 3899  df-dif 3953  df-un 3955  df-in 3957  df-ss 3967  df-pss 3970  df-nul 4333  df-if 4525  df-pw 4600  df-sn 4625  df-pr 4627  df-tp 4629  df-op 4631  df-uni 4906  df-int 4945  df-iun 4991  df-iin 4992  df-br 5142  df-opab 5204  df-mpt 5224  df-tr 5258  df-id 5576  df-eprel 5582  df-po 5590  df-so 5591  df-fr 5635  df-se 5636  df-we 5637  df-xp 5689  df-rel 5690  df-cnv 5691  df-co 5692  df-dm 5693  df-rn 5694  df-res 5695  df-ima 5696  df-pred 6319  df-ord 6385  df-on 6386  df-lim 6387  df-suc 6388  df-iota 6512  df-fun 6561  df-fn 6562  df-f 6563  df-f1 6564  df-fo 6565  df-f1o 6566  df-fv 6567  df-isom 6568  df-riota 7386  df-ov 7432  df-oprab 7433  df-mpo 7434  df-of 7694  df-rpss 7739  df-om 7884  df-1st 8010  df-2nd 8011  df-supp 8182  df-tpos 8247  df-frecs 8302  df-wrecs 8333  df-recs 8407  df-rdg 8446  df-1o 8502  df-2o 8503  df-oadd 8506  df-er 8741  df-map 8864  df-ixp 8934  df-en 8982  df-dom 8983  df-sdom 8984  df-fin 8985  df-fsupp 9398  df-sup 9478  df-inf 9479  df-oi 9546  df-r1 9800  df-rank 9801  df-dju 9937  df-card 9975  df-acn 9978  df-ac 10152  df-pnf 11293  df-mnf 11294  df-xr 11295  df-ltxr 11296  df-le 11297  df-sub 11490  df-neg 11491  df-div 11917  df-nn 12263  df-2 12325  df-3 12326  df-4 12327  df-5 12328  df-6 12329  df-7 12330  df-8 12331  df-9 12332  df-n0 12523  df-xnn0 12596  df-z 12610  df-dec 12730  df-uz 12875  df-rp 13031  df-fz 13544  df-fzo 13691  df-seq 14039  df-exp 14099  df-hash 14366  df-word 14549  df-lsw 14597  df-concat 14605  df-s1 14630  df-substr 14675  df-pfx 14705  df-s2 14883  df-cj 15134  df-re 15135  df-im 15136  df-sqrt 15270  df-abs 15271  df-clim 15520  df-sum 15719  df-struct 17180  df-sets 17197  df-slot 17215  df-ndx 17227  df-base 17244  df-ress 17271  df-plusg 17306  df-mulr 17307  df-starv 17308  df-sca 17309  df-vsca 17310  df-ip 17311  df-tset 17312  df-ple 17313  df-ocomp 17314  df-ds 17315  df-unif 17316  df-hom 17317  df-cco 17318  df-0g 17482  df-gsum 17483  df-prds 17488  df-pws 17490  df-mre 17625  df-mrc 17626  df-mri 17627  df-acs 17628  df-proset 18336  df-drs 18337  df-poset 18355  df-ipo 18569  df-mgm 18649  df-sgrp 18728  df-mnd 18744  df-mhm 18792  df-submnd 18793  df-grp 18950  df-minusg 18951  df-sbg 18952  df-mulg 19082  df-subg 19137  df-ghm 19227  df-cntz 19331  df-cmn 19796  df-abl 19797  df-mgp 20134  df-rng 20146  df-ur 20175  df-ring 20228  df-cring 20229  df-oppr 20326  df-dvdsr 20349  df-unit 20350  df-invr 20380  df-nzr 20505  df-subrng 20538  df-subrg 20562  df-rgspn 20603  df-rlreg 20686  df-domn 20687  df-idom 20688  df-drng 20723  df-field 20724  df-sdrg 20780  df-lmod 20852  df-lss 20922  df-lsp 20962  df-lmhm 21013  df-lbs 21066  df-lvec 21094  df-sra 21164  df-rgmod 21165  df-cnfld 21357  df-zring 21450  df-dsmm 21744  df-frlm 21759  df-uvc 21795  df-ind 32823  df-dim 33637  df-fldext 33680  df-extdg 33681
This theorem is referenced by:  fldextrspunfld  33711  fldextrspundgle  33713
  Copyright terms: Public domain W3C validator