Step | Hyp | Ref
| Expression |
1 | | fldextrspunfld.6 |
. . . . 5
⊢ (𝜑 → 𝐻 ∈ (SubDRing‘𝐿)) |
2 | | fldextrspunfld.j |
. . . . . 6
⊢ 𝐽 = (𝐿 ↾s 𝐻) |
3 | 2 | sdrgdrng 20783 |
. . . . 5
⊢ (𝐻 ∈ (SubDRing‘𝐿) → 𝐽 ∈ DivRing) |
4 | 1, 3 | syl 17 |
. . . 4
⊢ (𝜑 → 𝐽 ∈ DivRing) |
5 | | fldextrspunfld.4 |
. . . . 5
⊢ (𝜑 → 𝐹 ∈ (SubDRing‘𝐽)) |
6 | | eqid 2736 |
. . . . . 6
⊢ (𝐽 ↾s 𝐹) = (𝐽 ↾s 𝐹) |
7 | 6 | sdrgdrng 20783 |
. . . . 5
⊢ (𝐹 ∈ (SubDRing‘𝐽) → (𝐽 ↾s 𝐹) ∈ DivRing) |
8 | 5, 7 | syl 17 |
. . . 4
⊢ (𝜑 → (𝐽 ↾s 𝐹) ∈ DivRing) |
9 | | sdrgsubrg 20784 |
. . . . . 6
⊢ (𝐻 ∈ (SubDRing‘𝐿) → 𝐻 ∈ (SubRing‘𝐿)) |
10 | 1, 9 | syl 17 |
. . . . 5
⊢ (𝜑 → 𝐻 ∈ (SubRing‘𝐿)) |
11 | | fldextrspunfld.5 |
. . . . . . . 8
⊢ (𝜑 → 𝐺 ∈ (SubDRing‘𝐿)) |
12 | | sdrgsubrg 20784 |
. . . . . . . 8
⊢ (𝐺 ∈ (SubDRing‘𝐿) → 𝐺 ∈ (SubRing‘𝐿)) |
13 | 11, 12 | syl 17 |
. . . . . . 7
⊢ (𝜑 → 𝐺 ∈ (SubRing‘𝐿)) |
14 | | fldextrspunfld.3 |
. . . . . . . 8
⊢ (𝜑 → 𝐹 ∈ (SubDRing‘𝐼)) |
15 | | sdrgsubrg 20784 |
. . . . . . . 8
⊢ (𝐹 ∈ (SubDRing‘𝐼) → 𝐹 ∈ (SubRing‘𝐼)) |
16 | 14, 15 | syl 17 |
. . . . . . 7
⊢ (𝜑 → 𝐹 ∈ (SubRing‘𝐼)) |
17 | | fldextrspunfld.i |
. . . . . . . . 9
⊢ 𝐼 = (𝐿 ↾s 𝐺) |
18 | 17 | subsubrg 20590 |
. . . . . . . 8
⊢ (𝐺 ∈ (SubRing‘𝐿) → (𝐹 ∈ (SubRing‘𝐼) ↔ (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹 ⊆ 𝐺))) |
19 | 18 | biimpa 476 |
. . . . . . 7
⊢ ((𝐺 ∈ (SubRing‘𝐿) ∧ 𝐹 ∈ (SubRing‘𝐼)) → (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹 ⊆ 𝐺)) |
20 | 13, 16, 19 | syl2anc 584 |
. . . . . 6
⊢ (𝜑 → (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹 ⊆ 𝐺)) |
21 | 20 | simpld 494 |
. . . . 5
⊢ (𝜑 → 𝐹 ∈ (SubRing‘𝐿)) |
22 | | eqid 2736 |
. . . . . . . 8
⊢
(Base‘𝐽) =
(Base‘𝐽) |
23 | 22 | sdrgss 20786 |
. . . . . . 7
⊢ (𝐹 ∈ (SubDRing‘𝐽) → 𝐹 ⊆ (Base‘𝐽)) |
24 | 5, 23 | syl 17 |
. . . . . 6
⊢ (𝜑 → 𝐹 ⊆ (Base‘𝐽)) |
25 | | eqid 2736 |
. . . . . . . . 9
⊢
(Base‘𝐿) =
(Base‘𝐿) |
26 | 25 | sdrgss 20786 |
. . . . . . . 8
⊢ (𝐻 ∈ (SubDRing‘𝐿) → 𝐻 ⊆ (Base‘𝐿)) |
27 | 1, 26 | syl 17 |
. . . . . . 7
⊢ (𝜑 → 𝐻 ⊆ (Base‘𝐿)) |
28 | 2, 25 | ressbas2 17279 |
. . . . . . 7
⊢ (𝐻 ⊆ (Base‘𝐿) → 𝐻 = (Base‘𝐽)) |
29 | 27, 28 | syl 17 |
. . . . . 6
⊢ (𝜑 → 𝐻 = (Base‘𝐽)) |
30 | 24, 29 | sseqtrrd 4020 |
. . . . 5
⊢ (𝜑 → 𝐹 ⊆ 𝐻) |
31 | 2 | subsubrg 20590 |
. . . . . 6
⊢ (𝐻 ∈ (SubRing‘𝐿) → (𝐹 ∈ (SubRing‘𝐽) ↔ (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹 ⊆ 𝐻))) |
32 | 31 | biimpar 477 |
. . . . 5
⊢ ((𝐻 ∈ (SubRing‘𝐿) ∧ (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹 ⊆ 𝐻)) → 𝐹 ∈ (SubRing‘𝐽)) |
33 | 10, 21, 30, 32 | syl12anc 837 |
. . . 4
⊢ (𝜑 → 𝐹 ∈ (SubRing‘𝐽)) |
34 | | eqid 2736 |
. . . . 5
⊢
((subringAlg ‘𝐽)‘𝐹) = ((subringAlg ‘𝐽)‘𝐹) |
35 | 34, 6 | sralvec 33623 |
. . . 4
⊢ ((𝐽 ∈ DivRing ∧ (𝐽 ↾s 𝐹) ∈ DivRing ∧ 𝐹 ∈ (SubRing‘𝐽)) → ((subringAlg
‘𝐽)‘𝐹) ∈ LVec) |
36 | 4, 8, 33, 35 | syl3anc 1373 |
. . 3
⊢ (𝜑 → ((subringAlg ‘𝐽)‘𝐹) ∈ LVec) |
37 | | eqid 2736 |
. . . 4
⊢
(LBasis‘((subringAlg ‘𝐽)‘𝐹)) = (LBasis‘((subringAlg ‘𝐽)‘𝐹)) |
38 | 37 | lbsex 21159 |
. . 3
⊢
(((subringAlg ‘𝐽)‘𝐹) ∈ LVec →
(LBasis‘((subringAlg ‘𝐽)‘𝐹)) ≠ ∅) |
39 | 36, 38 | syl 17 |
. 2
⊢ (𝜑 → (LBasis‘((subringAlg
‘𝐽)‘𝐹)) ≠
∅) |
40 | | fldextrspunfld.2 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐿 ∈ Field) |
41 | | fldidom 20763 |
. . . . . . . . . . . 12
⊢ (𝐿 ∈ Field → 𝐿 ∈ IDomn) |
42 | 40, 41 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐿 ∈ IDomn) |
43 | 42 | idomringd 20720 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐿 ∈ Ring) |
44 | | eqidd 2737 |
. . . . . . . . . 10
⊢ (𝜑 → (Base‘𝐿) = (Base‘𝐿)) |
45 | 25 | sdrgss 20786 |
. . . . . . . . . . . 12
⊢ (𝐺 ∈ (SubDRing‘𝐿) → 𝐺 ⊆ (Base‘𝐿)) |
46 | 11, 45 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐺 ⊆ (Base‘𝐿)) |
47 | 46, 27 | unssd 4191 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐺 ∪ 𝐻) ⊆ (Base‘𝐿)) |
48 | | fldextrspunfld.n |
. . . . . . . . . . 11
⊢ 𝑁 = (RingSpan‘𝐿) |
49 | 48 | a1i 11 |
. . . . . . . . . 10
⊢ (𝜑 → 𝑁 = (RingSpan‘𝐿)) |
50 | | fldextrspunfld.c |
. . . . . . . . . . 11
⊢ 𝐶 = (𝑁‘(𝐺 ∪ 𝐻)) |
51 | 50 | a1i 11 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐶 = (𝑁‘(𝐺 ∪ 𝐻))) |
52 | 43, 44, 47, 49, 51 | rgspncl 20605 |
. . . . . . . . 9
⊢ (𝜑 → 𝐶 ∈ (SubRing‘𝐿)) |
53 | 43, 44, 47, 49, 51 | rgspnssid 20606 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐺 ∪ 𝐻) ⊆ 𝐶) |
54 | 53 | unssad 4192 |
. . . . . . . . 9
⊢ (𝜑 → 𝐺 ⊆ 𝐶) |
55 | | fldextrspunfld.e |
. . . . . . . . . . 11
⊢ 𝐸 = (𝐿 ↾s 𝐶) |
56 | 55 | subsubrg 20590 |
. . . . . . . . . 10
⊢ (𝐶 ∈ (SubRing‘𝐿) → (𝐺 ∈ (SubRing‘𝐸) ↔ (𝐺 ∈ (SubRing‘𝐿) ∧ 𝐺 ⊆ 𝐶))) |
57 | 56 | biimpar 477 |
. . . . . . . . 9
⊢ ((𝐶 ∈ (SubRing‘𝐿) ∧ (𝐺 ∈ (SubRing‘𝐿) ∧ 𝐺 ⊆ 𝐶)) → 𝐺 ∈ (SubRing‘𝐸)) |
58 | 52, 13, 54, 57 | syl12anc 837 |
. . . . . . . 8
⊢ (𝜑 → 𝐺 ∈ (SubRing‘𝐸)) |
59 | | eqid 2736 |
. . . . . . . . 9
⊢
((subringAlg ‘𝐸)‘𝐺) = ((subringAlg ‘𝐸)‘𝐺) |
60 | 59 | sralmod 21186 |
. . . . . . . 8
⊢ (𝐺 ∈ (SubRing‘𝐸) → ((subringAlg
‘𝐸)‘𝐺) ∈ LMod) |
61 | 58, 60 | syl 17 |
. . . . . . 7
⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐺) ∈ LMod) |
62 | | ressabs 17290 |
. . . . . . . . . . 11
⊢ ((𝐶 ∈ (SubRing‘𝐿) ∧ 𝐺 ⊆ 𝐶) → ((𝐿 ↾s 𝐶) ↾s 𝐺) = (𝐿 ↾s 𝐺)) |
63 | 52, 54, 62 | syl2anc 584 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝐿 ↾s 𝐶) ↾s 𝐺) = (𝐿 ↾s 𝐺)) |
64 | 55 | oveq1i 7439 |
. . . . . . . . . 10
⊢ (𝐸 ↾s 𝐺) = ((𝐿 ↾s 𝐶) ↾s 𝐺) |
65 | 63, 64, 17 | 3eqtr4g 2801 |
. . . . . . . . 9
⊢ (𝜑 → (𝐸 ↾s 𝐺) = 𝐼) |
66 | | eqidd 2737 |
. . . . . . . . . 10
⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐺) = ((subringAlg ‘𝐸)‘𝐺)) |
67 | 25 | subrgss 20564 |
. . . . . . . . . . . . . 14
⊢ (𝐶 ∈ (SubRing‘𝐿) → 𝐶 ⊆ (Base‘𝐿)) |
68 | 52, 67 | syl 17 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐶 ⊆ (Base‘𝐿)) |
69 | 55, 25 | ressbas2 17279 |
. . . . . . . . . . . . 13
⊢ (𝐶 ⊆ (Base‘𝐿) → 𝐶 = (Base‘𝐸)) |
70 | 68, 69 | syl 17 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐶 = (Base‘𝐸)) |
71 | 53, 70 | sseqtrd 4019 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝐺 ∪ 𝐻) ⊆ (Base‘𝐸)) |
72 | 71 | unssad 4192 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐺 ⊆ (Base‘𝐸)) |
73 | 66, 72 | srasca 21175 |
. . . . . . . . 9
⊢ (𝜑 → (𝐸 ↾s 𝐺) = (Scalar‘((subringAlg ‘𝐸)‘𝐺))) |
74 | 65, 73 | eqtr3d 2778 |
. . . . . . . 8
⊢ (𝜑 → 𝐼 = (Scalar‘((subringAlg ‘𝐸)‘𝐺))) |
75 | 17 | sdrgdrng 20783 |
. . . . . . . . 9
⊢ (𝐺 ∈ (SubDRing‘𝐿) → 𝐼 ∈ DivRing) |
76 | 11, 75 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → 𝐼 ∈ DivRing) |
77 | 74, 76 | eqeltrrd 2841 |
. . . . . . 7
⊢ (𝜑 → (Scalar‘((subringAlg
‘𝐸)‘𝐺)) ∈
DivRing) |
78 | | eqid 2736 |
. . . . . . . 8
⊢
(Scalar‘((subringAlg ‘𝐸)‘𝐺)) = (Scalar‘((subringAlg ‘𝐸)‘𝐺)) |
79 | 78 | islvec 21095 |
. . . . . . 7
⊢
(((subringAlg ‘𝐸)‘𝐺) ∈ LVec ↔ (((subringAlg
‘𝐸)‘𝐺) ∈ LMod ∧
(Scalar‘((subringAlg ‘𝐸)‘𝐺)) ∈ DivRing)) |
80 | 61, 77, 79 | sylanbrc 583 |
. . . . . 6
⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐺) ∈ LVec) |
81 | | eqid 2736 |
. . . . . . 7
⊢
(LBasis‘((subringAlg ‘𝐸)‘𝐺)) = (LBasis‘((subringAlg ‘𝐸)‘𝐺)) |
82 | 81 | lbsex 21159 |
. . . . . 6
⊢
(((subringAlg ‘𝐸)‘𝐺) ∈ LVec →
(LBasis‘((subringAlg ‘𝐸)‘𝐺)) ≠ ∅) |
83 | 80, 82 | syl 17 |
. . . . 5
⊢ (𝜑 → (LBasis‘((subringAlg
‘𝐸)‘𝐺)) ≠
∅) |
84 | 83 | adantr 480 |
. . . 4
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
(LBasis‘((subringAlg ‘𝐸)‘𝐺)) ≠ ∅) |
85 | 80 | ad2antrr 726 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → ((subringAlg
‘𝐸)‘𝐺) ∈ LVec) |
86 | | simpr 484 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) |
87 | 81 | dimval 33638 |
. . . . . 6
⊢
((((subringAlg ‘𝐸)‘𝐺) ∈ LVec ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) →
(dim‘((subringAlg ‘𝐸)‘𝐺)) = (♯‘𝑐)) |
88 | 85, 86, 87 | syl2anc 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 ‘𝐽)‘𝐹)) |
92 | 91, 37 | lbsss 21068 |
. . . . . . . . . . 11
⊢ (𝑏 ∈
(LBasis‘((subringAlg ‘𝐽)‘𝐹)) → 𝑏 ⊆ (Base‘((subringAlg
‘𝐽)‘𝐹))) |
93 | 92 | ad2antlr 727 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝑏 ⊆ (Base‘((subringAlg
‘𝐽)‘𝐹))) |
94 | | eqidd 2737 |
. . . . . . . . . . . . 13
⊢ (𝜑 → ((subringAlg ‘𝐽)‘𝐹) = ((subringAlg ‘𝐽)‘𝐹)) |
95 | 94, 24 | srabase 21169 |
. . . . . . . . . . . 12
⊢ (𝜑 → (Base‘𝐽) = (Base‘((subringAlg
‘𝐽)‘𝐹))) |
96 | 29, 95 | eqtrd 2776 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐻 = (Base‘((subringAlg ‘𝐽)‘𝐹))) |
97 | 96 | ad2antrr 726 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝐻 = (Base‘((subringAlg ‘𝐽)‘𝐹))) |
98 | 93, 97 | sseqtrrd 4020 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝑏 ⊆ 𝐻) |
99 | 53 | unssbd 4193 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐻 ⊆ 𝐶) |
100 | 99 | ad2antrr 726 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝐻 ⊆ 𝐶) |
101 | 98, 100 | sstrd 3993 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝑏 ⊆ 𝐶) |
102 | 70 | ad2antrr 726 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝐶 = (Base‘𝐸)) |
103 | 101, 102 | sseqtrd 4019 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝑏 ⊆ (Base‘𝐸)) |
104 | | eqidd 2737 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → ((subringAlg
‘𝐸)‘𝐺) = ((subringAlg ‘𝐸)‘𝐺)) |
105 | 72 | ad2antrr 726 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝐺 ⊆ (Base‘𝐸)) |
106 | 104, 105 | srabase 21169 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → (Base‘𝐸) = (Base‘((subringAlg
‘𝐸)‘𝐺))) |
107 | 103, 106 | sseqtrd 4019 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝑏 ⊆ (Base‘((subringAlg
‘𝐸)‘𝐺))) |
108 | 61 | ad2antrr 726 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → ((subringAlg
‘𝐸)‘𝐺) ∈ LMod) |
109 | 89, 90 | lspssv 20973 |
. . . . . . . 8
⊢
((((subringAlg ‘𝐸)‘𝐺) ∈ LMod ∧ 𝑏 ⊆ (Base‘((subringAlg
‘𝐸)‘𝐺))) →
((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏) ⊆ (Base‘((subringAlg
‘𝐸)‘𝐺))) |
110 | 108, 107,
109 | syl2anc 584 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) →
((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏) ⊆ (Base‘((subringAlg
‘𝐸)‘𝐺))) |
111 | | fldextrspunfld.k |
. . . . . . . . . . . . 13
⊢ 𝐾 = (𝐿 ↾s 𝐹) |
112 | 40 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐿 ∈ Field) |
113 | 14 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐹 ∈ (SubDRing‘𝐼)) |
114 | 5 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐹 ∈ (SubDRing‘𝐽)) |
115 | 11 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐺 ∈ (SubDRing‘𝐿)) |
116 | 1 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐻 ∈ (SubDRing‘𝐿)) |
117 | | simpr 484 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) |
118 | | fldsdrgfld 20791 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ ((𝐿 ∈ Field ∧ 𝐻 ∈ (SubDRing‘𝐿)) → (𝐿 ↾s 𝐻) ∈ Field) |
119 | 40, 1, 118 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝜑 → (𝐿 ↾s 𝐻) ∈ Field) |
120 | 2, 119 | eqeltrid 2844 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → 𝐽 ∈ Field) |
121 | | ressabs 17290 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ ((𝐻 ∈ (SubDRing‘𝐿) ∧ 𝐹 ⊆ 𝐻) → ((𝐿 ↾s 𝐻) ↾s 𝐹) = (𝐿 ↾s 𝐹)) |
122 | 1, 30, 121 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (𝜑 → ((𝐿 ↾s 𝐻) ↾s 𝐹) = (𝐿 ↾s 𝐹)) |
123 | 2 | oveq1i 7439 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (𝐽 ↾s 𝐹) = ((𝐿 ↾s 𝐻) ↾s 𝐹) |
124 | 122, 123,
111 | 3eqtr4g 2801 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝜑 → (𝐽 ↾s 𝐹) = 𝐾) |
125 | | fldsdrgfld 20791 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ ((𝐽 ∈ Field ∧ 𝐹 ∈ (SubDRing‘𝐽)) → (𝐽 ↾s 𝐹) ∈ Field) |
126 | 120, 5, 125 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝜑 → (𝐽 ↾s 𝐹) ∈ Field) |
127 | 124, 126 | eqeltrrd 2841 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → 𝐾 ∈ Field) |
128 | 30, 27 | sstrd 3993 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ (𝜑 → 𝐹 ⊆ (Base‘𝐿)) |
129 | 111, 25 | ressbas2 17279 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ (𝐹 ⊆ (Base‘𝐿) → 𝐹 = (Base‘𝐾)) |
130 | 128, 129 | syl 17 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (𝜑 → 𝐹 = (Base‘𝐾)) |
131 | 130 | oveq2d 7445 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝜑 → (𝐽 ↾s 𝐹) = (𝐽 ↾s (Base‘𝐾))) |
132 | 124, 131 | eqtr3d 2778 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → 𝐾 = (𝐽 ↾s (Base‘𝐾))) |
133 | 130, 33 | eqeltrrd 2841 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → (Base‘𝐾) ∈ (SubRing‘𝐽)) |
134 | | brfldext 33685 |
. . . . . . . . . . . . . . . . . . . 20
⊢ ((𝐽 ∈ Field ∧ 𝐾 ∈ Field) → (𝐽/FldExt𝐾 ↔ (𝐾 = (𝐽 ↾s (Base‘𝐾)) ∧ (Base‘𝐾) ∈ (SubRing‘𝐽)))) |
135 | 134 | biimpar 477 |
. . . . . . . . . . . . . . . . . . 19
⊢ (((𝐽 ∈ Field ∧ 𝐾 ∈ Field) ∧ (𝐾 = (𝐽 ↾s (Base‘𝐾)) ∧ (Base‘𝐾) ∈ (SubRing‘𝐽))) → 𝐽/FldExt𝐾) |
136 | 120, 127,
132, 133, 135 | syl22anc 839 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝜑 → 𝐽/FldExt𝐾) |
137 | 136 | adantr 480 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐽/FldExt𝐾) |
138 | | extdgval 33692 |
. . . . . . . . . . . . . . . . 17
⊢ (𝐽/FldExt𝐾 → (𝐽[:]𝐾) = (dim‘((subringAlg ‘𝐽)‘(Base‘𝐾)))) |
139 | 137, 138 | syl 17 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → (𝐽[:]𝐾) = (dim‘((subringAlg ‘𝐽)‘(Base‘𝐾)))) |
140 | 130 | fveq2d 6908 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝜑 → ((subringAlg ‘𝐽)‘𝐹) = ((subringAlg ‘𝐽)‘(Base‘𝐾))) |
141 | 140 | fveq2d 6908 |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → (dim‘((subringAlg
‘𝐽)‘𝐹)) = (dim‘((subringAlg
‘𝐽)‘(Base‘𝐾)))) |
142 | 141 | adantr 480 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
(dim‘((subringAlg ‘𝐽)‘𝐹)) = (dim‘((subringAlg ‘𝐽)‘(Base‘𝐾)))) |
143 | 37 | dimval 33638 |
. . . . . . . . . . . . . . . . 17
⊢
((((subringAlg ‘𝐽)‘𝐹) ∈ LVec ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
(dim‘((subringAlg ‘𝐽)‘𝐹)) = (♯‘𝑏)) |
144 | 36, 143 | sylan 580 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
(dim‘((subringAlg ‘𝐽)‘𝐹)) = (♯‘𝑏)) |
145 | 139, 142,
144 | 3eqtr2d 2782 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → (𝐽[:]𝐾) = (♯‘𝑏)) |
146 | | fldextrspunfld.7 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → (𝐽[:]𝐾) ∈
ℕ0) |
147 | 146 | adantr 480 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → (𝐽[:]𝐾) ∈
ℕ0) |
148 | 145, 147 | eqeltrrd 2841 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → (♯‘𝑏) ∈
ℕ0) |
149 | | hashclb 14393 |
. . . . . . . . . . . . . . 15
⊢ (𝑏 ∈
(LBasis‘((subringAlg ‘𝐽)‘𝐹)) → (𝑏 ∈ Fin ↔ (♯‘𝑏) ∈
ℕ0)) |
150 | 149 | biimpar 477 |
. . . . . . . . . . . . . 14
⊢ ((𝑏 ∈
(LBasis‘((subringAlg ‘𝐽)‘𝐹)) ∧ (♯‘𝑏) ∈ ℕ0) → 𝑏 ∈ Fin) |
151 | 117, 148,
150 | syl2anc 584 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝑏 ∈ Fin) |
152 | 111, 17, 2, 112, 113, 114, 115, 116, 48, 50, 55, 117, 151 | fldextrspunlsp 33709 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐶 = ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏)) |
153 | 152 | eqimssd 4039 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐶 ⊆ ((LSpan‘((subringAlg
‘𝐿)‘𝐺))‘𝑏)) |
154 | 25, 55, 68, 54, 40 | resssra 33625 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐺) = (((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶)) |
155 | 154 | fveq2d 6908 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (LSpan‘((subringAlg
‘𝐸)‘𝐺)) = (LSpan‘(((subringAlg
‘𝐿)‘𝐺) ↾s 𝐶))) |
156 | 155 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
(LSpan‘((subringAlg ‘𝐸)‘𝐺)) = (LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶))) |
157 | 156 | fveq1d 6906 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏) = ((LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶))‘𝑏)) |
158 | 115, 12 | syl 17 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐺 ∈ (SubRing‘𝐿)) |
159 | | eqid 2736 |
. . . . . . . . . . . . . . 15
⊢
((subringAlg ‘𝐿)‘𝐺) = ((subringAlg ‘𝐿)‘𝐺) |
160 | 159 | sralmod 21186 |
. . . . . . . . . . . . . 14
⊢ (𝐺 ∈ (SubRing‘𝐿) → ((subringAlg
‘𝐿)‘𝐺) ∈ LMod) |
161 | 158, 160 | syl 17 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → ((subringAlg
‘𝐿)‘𝐺) ∈ LMod) |
162 | 117, 92 | syl 17 |
. . . . . . . . . . . . . . . . . 18
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝑏 ⊆ (Base‘((subringAlg
‘𝐽)‘𝐹))) |
163 | 96 | adantr 480 |
. . . . . . . . . . . . . . . . . 18
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐻 = (Base‘((subringAlg ‘𝐽)‘𝐹))) |
164 | 162, 163 | sseqtrrd 4020 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝑏 ⊆ 𝐻) |
165 | 116, 26 | syl 17 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐻 ⊆ (Base‘𝐿)) |
166 | 164, 165 | sstrd 3993 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝑏 ⊆ (Base‘𝐿)) |
167 | | eqidd 2737 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝜑 → ((subringAlg ‘𝐿)‘𝐺) = ((subringAlg ‘𝐿)‘𝐺)) |
168 | 167, 46 | srabase 21169 |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → (Base‘𝐿) = (Base‘((subringAlg
‘𝐿)‘𝐺))) |
169 | 168 | adantr 480 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → (Base‘𝐿) = (Base‘((subringAlg
‘𝐿)‘𝐺))) |
170 | 166, 169 | sseqtrd 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 ‘𝐿)‘𝐺)) |
174 | 171, 172,
173 | lspcl 20966 |
. . . . . . . . . . . . . . 15
⊢
((((subringAlg ‘𝐿)‘𝐺) ∈ LMod ∧ 𝑏 ⊆ (Base‘((subringAlg
‘𝐿)‘𝐺))) →
((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏) ∈ (LSubSp‘((subringAlg
‘𝐿)‘𝐺))) |
175 | 161, 170,
174 | syl2anc 584 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏) ∈ (LSubSp‘((subringAlg
‘𝐿)‘𝐺))) |
176 | 152, 175 | eqeltrd 2840 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐶 ∈ (LSubSp‘((subringAlg
‘𝐿)‘𝐺))) |
177 | 99 | adantr 480 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐻 ⊆ 𝐶) |
178 | 164, 177 | sstrd 3993 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝑏 ⊆ 𝐶) |
179 | | eqid 2736 |
. . . . . . . . . . . . . 14
⊢
(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶) = (((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶) |
180 | | eqid 2736 |
. . . . . . . . . . . . . 14
⊢
(LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶)) = (LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶)) |
181 | 179, 173,
180, 172 | lsslsp 21005 |
. . . . . . . . . . . . 13
⊢
((((subringAlg ‘𝐿)‘𝐺) ∈ LMod ∧ 𝐶 ∈ (LSubSp‘((subringAlg
‘𝐿)‘𝐺)) ∧ 𝑏 ⊆ 𝐶) → ((LSpan‘(((subringAlg
‘𝐿)‘𝐺) ↾s 𝐶))‘𝑏) = ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏)) |
182 | 161, 176,
178, 181 | syl3anc 1373 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
((LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶))‘𝑏) = ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏)) |
183 | 157, 182 | eqtr2d 2777 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏) = ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏)) |
184 | 153, 183 | sseqtrd 4019 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐶 ⊆ ((LSpan‘((subringAlg
‘𝐸)‘𝐺))‘𝑏)) |
185 | 184 | adantr 480 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝐶 ⊆ ((LSpan‘((subringAlg
‘𝐸)‘𝐺))‘𝑏)) |
186 | 102, 185 | eqsstrrd 4018 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → (Base‘𝐸) ⊆
((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏)) |
187 | 106, 186 | eqsstrrd 4018 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) →
(Base‘((subringAlg ‘𝐸)‘𝐺)) ⊆ ((LSpan‘((subringAlg
‘𝐸)‘𝐺))‘𝑏)) |
188 | 110, 187 | eqssd 4000 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) →
((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏) = (Base‘((subringAlg ‘𝐸)‘𝐺))) |
189 | 89, 81, 90, 85, 86, 107, 188 | lbslelsp 33635 |
. . . . 5
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → (♯‘𝑐) ≤ (♯‘𝑏)) |
190 | 88, 189 | eqbrtrd 5163 |
. . . 4
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) →
(dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (♯‘𝑏)) |
191 | 84, 190 | n0limd 32480 |
. . 3
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
(dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (♯‘𝑏)) |
192 | 191, 145 | breqtrrd 5169 |
. 2
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
(dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (𝐽[:]𝐾)) |
193 | 39, 192 | n0limd 32480 |
1
⊢ (𝜑 → (dim‘((subringAlg
‘𝐸)‘𝐺)) ≤ (𝐽[:]𝐾)) |