| Step | Hyp | Ref
| Expression |
| 1 | | fldextrspunfld.6 |
. . . . 5
⊢ (𝜑 → 𝐻 ∈ (SubDRing‘𝐿)) |
| 2 | | fldextrspunfld.j |
. . . . . 6
⊢ 𝐽 = (𝐿 ↾s 𝐻) |
| 3 | 2 | sdrgdrng 20760 |
. . . . 5
⊢ (𝐻 ∈ (SubDRing‘𝐿) → 𝐽 ∈ DivRing) |
| 4 | 1, 3 | syl 17 |
. . . 4
⊢ (𝜑 → 𝐽 ∈ DivRing) |
| 5 | | fldextrspunfld.4 |
. . . . 5
⊢ (𝜑 → 𝐹 ∈ (SubDRing‘𝐽)) |
| 6 | | eqid 2734 |
. . . . . 6
⊢ (𝐽 ↾s 𝐹) = (𝐽 ↾s 𝐹) |
| 7 | 6 | sdrgdrng 20760 |
. . . . 5
⊢ (𝐹 ∈ (SubDRing‘𝐽) → (𝐽 ↾s 𝐹) ∈ DivRing) |
| 8 | 5, 7 | syl 17 |
. . . 4
⊢ (𝜑 → (𝐽 ↾s 𝐹) ∈ DivRing) |
| 9 | | sdrgsubrg 20761 |
. . . . . 6
⊢ (𝐻 ∈ (SubDRing‘𝐿) → 𝐻 ∈ (SubRing‘𝐿)) |
| 10 | 1, 9 | syl 17 |
. . . . 5
⊢ (𝜑 → 𝐻 ∈ (SubRing‘𝐿)) |
| 11 | | fldextrspunfld.5 |
. . . . . . . 8
⊢ (𝜑 → 𝐺 ∈ (SubDRing‘𝐿)) |
| 12 | | sdrgsubrg 20761 |
. . . . . . . 8
⊢ (𝐺 ∈ (SubDRing‘𝐿) → 𝐺 ∈ (SubRing‘𝐿)) |
| 13 | 11, 12 | syl 17 |
. . . . . . 7
⊢ (𝜑 → 𝐺 ∈ (SubRing‘𝐿)) |
| 14 | | fldextrspunfld.3 |
. . . . . . . 8
⊢ (𝜑 → 𝐹 ∈ (SubDRing‘𝐼)) |
| 15 | | sdrgsubrg 20761 |
. . . . . . . 8
⊢ (𝐹 ∈ (SubDRing‘𝐼) → 𝐹 ∈ (SubRing‘𝐼)) |
| 16 | 14, 15 | syl 17 |
. . . . . . 7
⊢ (𝜑 → 𝐹 ∈ (SubRing‘𝐼)) |
| 17 | | fldextrspunfld.i |
. . . . . . . . 9
⊢ 𝐼 = (𝐿 ↾s 𝐺) |
| 18 | 17 | subsubrg 20567 |
. . . . . . . 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 2734 |
. . . . . . . 8
⊢
(Base‘𝐽) =
(Base‘𝐽) |
| 23 | 22 | sdrgss 20763 |
. . . . . . 7
⊢ (𝐹 ∈ (SubDRing‘𝐽) → 𝐹 ⊆ (Base‘𝐽)) |
| 24 | 5, 23 | syl 17 |
. . . . . 6
⊢ (𝜑 → 𝐹 ⊆ (Base‘𝐽)) |
| 25 | | eqid 2734 |
. . . . . . . . 9
⊢
(Base‘𝐿) =
(Base‘𝐿) |
| 26 | 25 | sdrgss 20763 |
. . . . . . . 8
⊢ (𝐻 ∈ (SubDRing‘𝐿) → 𝐻 ⊆ (Base‘𝐿)) |
| 27 | 1, 26 | syl 17 |
. . . . . . 7
⊢ (𝜑 → 𝐻 ⊆ (Base‘𝐿)) |
| 28 | 2, 25 | ressbas2 17262 |
. . . . . . 7
⊢ (𝐻 ⊆ (Base‘𝐿) → 𝐻 = (Base‘𝐽)) |
| 29 | 27, 28 | syl 17 |
. . . . . 6
⊢ (𝜑 → 𝐻 = (Base‘𝐽)) |
| 30 | 24, 29 | sseqtrrd 4001 |
. . . . 5
⊢ (𝜑 → 𝐹 ⊆ 𝐻) |
| 31 | 2 | subsubrg 20567 |
. . . . . 6
⊢ (𝐻 ∈ (SubRing‘𝐿) → (𝐹 ∈ (SubRing‘𝐽) ↔ (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹 ⊆ 𝐻))) |
| 32 | 31 | biimpar 477 |
. . . . 5
⊢ ((𝐻 ∈ (SubRing‘𝐿) ∧ (𝐹 ∈ (SubRing‘𝐿) ∧ 𝐹 ⊆ 𝐻)) → 𝐹 ∈ (SubRing‘𝐽)) |
| 33 | 10, 21, 30, 32 | syl12anc 836 |
. . . 4
⊢ (𝜑 → 𝐹 ∈ (SubRing‘𝐽)) |
| 34 | | eqid 2734 |
. . . . 5
⊢
((subringAlg ‘𝐽)‘𝐹) = ((subringAlg ‘𝐽)‘𝐹) |
| 35 | 34, 6 | sralvec 33576 |
. . . 4
⊢ ((𝐽 ∈ DivRing ∧ (𝐽 ↾s 𝐹) ∈ DivRing ∧ 𝐹 ∈ (SubRing‘𝐽)) → ((subringAlg
‘𝐽)‘𝐹) ∈ LVec) |
| 36 | 4, 8, 33, 35 | syl3anc 1372 |
. . 3
⊢ (𝜑 → ((subringAlg ‘𝐽)‘𝐹) ∈ LVec) |
| 37 | | eqid 2734 |
. . . 4
⊢
(LBasis‘((subringAlg ‘𝐽)‘𝐹)) = (LBasis‘((subringAlg ‘𝐽)‘𝐹)) |
| 38 | 37 | lbsex 21136 |
. . 3
⊢
(((subringAlg ‘𝐽)‘𝐹) ∈ LVec →
(LBasis‘((subringAlg ‘𝐽)‘𝐹)) ≠ ∅) |
| 39 | 36, 38 | syl 17 |
. 2
⊢ (𝜑 → (LBasis‘((subringAlg
‘𝐽)‘𝐹)) ≠
∅) |
| 40 | | fldextrspunfld.2 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐿 ∈ Field) |
| 41 | | fldidom 20740 |
. . . . . . . . . . . 12
⊢ (𝐿 ∈ Field → 𝐿 ∈ IDomn) |
| 42 | 40, 41 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐿 ∈ IDomn) |
| 43 | 42 | idomringd 20697 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐿 ∈ Ring) |
| 44 | | eqidd 2735 |
. . . . . . . . . 10
⊢ (𝜑 → (Base‘𝐿) = (Base‘𝐿)) |
| 45 | 25 | sdrgss 20763 |
. . . . . . . . . . . 12
⊢ (𝐺 ∈ (SubDRing‘𝐿) → 𝐺 ⊆ (Base‘𝐿)) |
| 46 | 11, 45 | syl 17 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐺 ⊆ (Base‘𝐿)) |
| 47 | 46, 27 | unssd 4172 |
. . . . . . . . . 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 20582 |
. . . . . . . . 9
⊢ (𝜑 → 𝐶 ∈ (SubRing‘𝐿)) |
| 53 | 43, 44, 47, 49, 51 | rgspnssid 20583 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐺 ∪ 𝐻) ⊆ 𝐶) |
| 54 | 53 | unssad 4173 |
. . . . . . . . 9
⊢ (𝜑 → 𝐺 ⊆ 𝐶) |
| 55 | | fldextrspunfld.e |
. . . . . . . . . . 11
⊢ 𝐸 = (𝐿 ↾s 𝐶) |
| 56 | 55 | subsubrg 20567 |
. . . . . . . . . 10
⊢ (𝐶 ∈ (SubRing‘𝐿) → (𝐺 ∈ (SubRing‘𝐸) ↔ (𝐺 ∈ (SubRing‘𝐿) ∧ 𝐺 ⊆ 𝐶))) |
| 57 | 56 | biimpar 477 |
. . . . . . . . 9
⊢ ((𝐶 ∈ (SubRing‘𝐿) ∧ (𝐺 ∈ (SubRing‘𝐿) ∧ 𝐺 ⊆ 𝐶)) → 𝐺 ∈ (SubRing‘𝐸)) |
| 58 | 52, 13, 54, 57 | syl12anc 836 |
. . . . . . . 8
⊢ (𝜑 → 𝐺 ∈ (SubRing‘𝐸)) |
| 59 | | eqid 2734 |
. . . . . . . . 9
⊢
((subringAlg ‘𝐸)‘𝐺) = ((subringAlg ‘𝐸)‘𝐺) |
| 60 | 59 | sralmod 21157 |
. . . . . . . 8
⊢ (𝐺 ∈ (SubRing‘𝐸) → ((subringAlg
‘𝐸)‘𝐺) ∈ LMod) |
| 61 | 58, 60 | syl 17 |
. . . . . . 7
⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐺) ∈ LMod) |
| 62 | | ressabs 17272 |
. . . . . . . . . . 11
⊢ ((𝐶 ∈ (SubRing‘𝐿) ∧ 𝐺 ⊆ 𝐶) → ((𝐿 ↾s 𝐶) ↾s 𝐺) = (𝐿 ↾s 𝐺)) |
| 63 | 52, 54, 62 | syl2anc 584 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝐿 ↾s 𝐶) ↾s 𝐺) = (𝐿 ↾s 𝐺)) |
| 64 | 55 | oveq1i 7423 |
. . . . . . . . . 10
⊢ (𝐸 ↾s 𝐺) = ((𝐿 ↾s 𝐶) ↾s 𝐺) |
| 65 | 63, 64, 17 | 3eqtr4g 2794 |
. . . . . . . . 9
⊢ (𝜑 → (𝐸 ↾s 𝐺) = 𝐼) |
| 66 | | eqidd 2735 |
. . . . . . . . . 10
⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐺) = ((subringAlg ‘𝐸)‘𝐺)) |
| 67 | 25 | subrgss 20541 |
. . . . . . . . . . . . . 14
⊢ (𝐶 ∈ (SubRing‘𝐿) → 𝐶 ⊆ (Base‘𝐿)) |
| 68 | 52, 67 | syl 17 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐶 ⊆ (Base‘𝐿)) |
| 69 | 55, 25 | ressbas2 17262 |
. . . . . . . . . . . . 13
⊢ (𝐶 ⊆ (Base‘𝐿) → 𝐶 = (Base‘𝐸)) |
| 70 | 68, 69 | syl 17 |
. . . . . . . . . . . 12
⊢ (𝜑 → 𝐶 = (Base‘𝐸)) |
| 71 | 53, 70 | sseqtrd 4000 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝐺 ∪ 𝐻) ⊆ (Base‘𝐸)) |
| 72 | 71 | unssad 4173 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐺 ⊆ (Base‘𝐸)) |
| 73 | 66, 72 | srasca 21148 |
. . . . . . . . 9
⊢ (𝜑 → (𝐸 ↾s 𝐺) = (Scalar‘((subringAlg ‘𝐸)‘𝐺))) |
| 74 | 65, 73 | eqtr3d 2771 |
. . . . . . . 8
⊢ (𝜑 → 𝐼 = (Scalar‘((subringAlg ‘𝐸)‘𝐺))) |
| 75 | 17 | sdrgdrng 20760 |
. . . . . . . . 9
⊢ (𝐺 ∈ (SubDRing‘𝐿) → 𝐼 ∈ DivRing) |
| 76 | 11, 75 | syl 17 |
. . . . . . . 8
⊢ (𝜑 → 𝐼 ∈ DivRing) |
| 77 | 74, 76 | eqeltrrd 2834 |
. . . . . . 7
⊢ (𝜑 → (Scalar‘((subringAlg
‘𝐸)‘𝐺)) ∈
DivRing) |
| 78 | | eqid 2734 |
. . . . . . . 8
⊢
(Scalar‘((subringAlg ‘𝐸)‘𝐺)) = (Scalar‘((subringAlg ‘𝐸)‘𝐺)) |
| 79 | 78 | islvec 21072 |
. . . . . . 7
⊢
(((subringAlg ‘𝐸)‘𝐺) ∈ LVec ↔ (((subringAlg
‘𝐸)‘𝐺) ∈ LMod ∧
(Scalar‘((subringAlg ‘𝐸)‘𝐺)) ∈ DivRing)) |
| 80 | 61, 77, 79 | sylanbrc 583 |
. . . . . 6
⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐺) ∈ LVec) |
| 81 | | eqid 2734 |
. . . . . . 7
⊢
(LBasis‘((subringAlg ‘𝐸)‘𝐺)) = (LBasis‘((subringAlg ‘𝐸)‘𝐺)) |
| 82 | 81 | lbsex 21136 |
. . . . . 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 33591 |
. . . . . 6
⊢
((((subringAlg ‘𝐸)‘𝐺) ∈ LVec ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) →
(dim‘((subringAlg ‘𝐸)‘𝐺)) = (♯‘𝑐)) |
| 88 | 85, 86, 87 | syl2anc 584 |
. . . . 5
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) →
(dim‘((subringAlg ‘𝐸)‘𝐺)) = (♯‘𝑐)) |
| 89 | | eqid 2734 |
. . . . . 6
⊢
(Base‘((subringAlg ‘𝐸)‘𝐺)) = (Base‘((subringAlg ‘𝐸)‘𝐺)) |
| 90 | | eqid 2734 |
. . . . . 6
⊢
(LSpan‘((subringAlg ‘𝐸)‘𝐺)) = (LSpan‘((subringAlg ‘𝐸)‘𝐺)) |
| 91 | | eqid 2734 |
. . . . . . . . . . . 12
⊢
(Base‘((subringAlg ‘𝐽)‘𝐹)) = (Base‘((subringAlg ‘𝐽)‘𝐹)) |
| 92 | 91, 37 | lbsss 21045 |
. . . . . . . . . . 11
⊢ (𝑏 ∈
(LBasis‘((subringAlg ‘𝐽)‘𝐹)) → 𝑏 ⊆ (Base‘((subringAlg
‘𝐽)‘𝐹))) |
| 93 | 92 | ad2antlr 727 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝑏 ⊆ (Base‘((subringAlg
‘𝐽)‘𝐹))) |
| 94 | | eqidd 2735 |
. . . . . . . . . . . . 13
⊢ (𝜑 → ((subringAlg ‘𝐽)‘𝐹) = ((subringAlg ‘𝐽)‘𝐹)) |
| 95 | 94, 24 | srabase 21145 |
. . . . . . . . . . . 12
⊢ (𝜑 → (Base‘𝐽) = (Base‘((subringAlg
‘𝐽)‘𝐹))) |
| 96 | 29, 95 | eqtrd 2769 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐻 = (Base‘((subringAlg ‘𝐽)‘𝐹))) |
| 97 | 96 | ad2antrr 726 |
. . . . . . . . . 10
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝐻 = (Base‘((subringAlg ‘𝐽)‘𝐹))) |
| 98 | 93, 97 | sseqtrrd 4001 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝑏 ⊆ 𝐻) |
| 99 | 53 | unssbd 4174 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐻 ⊆ 𝐶) |
| 100 | 99 | ad2antrr 726 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝐻 ⊆ 𝐶) |
| 101 | 98, 100 | sstrd 3974 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝑏 ⊆ 𝐶) |
| 102 | 70 | ad2antrr 726 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝐶 = (Base‘𝐸)) |
| 103 | 101, 102 | sseqtrd 4000 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝑏 ⊆ (Base‘𝐸)) |
| 104 | | eqidd 2735 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → ((subringAlg
‘𝐸)‘𝐺) = ((subringAlg ‘𝐸)‘𝐺)) |
| 105 | 72 | ad2antrr 726 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝐺 ⊆ (Base‘𝐸)) |
| 106 | 104, 105 | srabase 21145 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → (Base‘𝐸) = (Base‘((subringAlg
‘𝐸)‘𝐺))) |
| 107 | 103, 106 | sseqtrd 4000 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝑏 ⊆ (Base‘((subringAlg
‘𝐸)‘𝐺))) |
| 108 | 61 | ad2antrr 726 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → ((subringAlg
‘𝐸)‘𝐺) ∈ LMod) |
| 109 | 89, 90 | lspssv 20950 |
. . . . . . . 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 20768 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ ((𝐿 ∈ Field ∧ 𝐻 ∈ (SubDRing‘𝐿)) → (𝐿 ↾s 𝐻) ∈ Field) |
| 119 | 40, 1, 118 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝜑 → (𝐿 ↾s 𝐻) ∈ Field) |
| 120 | 2, 119 | eqeltrid 2837 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → 𝐽 ∈ Field) |
| 121 | | ressabs 17272 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ ((𝐻 ∈ (SubDRing‘𝐿) ∧ 𝐹 ⊆ 𝐻) → ((𝐿 ↾s 𝐻) ↾s 𝐹) = (𝐿 ↾s 𝐹)) |
| 122 | 1, 30, 121 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (𝜑 → ((𝐿 ↾s 𝐻) ↾s 𝐹) = (𝐿 ↾s 𝐹)) |
| 123 | 2 | oveq1i 7423 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (𝐽 ↾s 𝐹) = ((𝐿 ↾s 𝐻) ↾s 𝐹) |
| 124 | 122, 123,
111 | 3eqtr4g 2794 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝜑 → (𝐽 ↾s 𝐹) = 𝐾) |
| 125 | | fldsdrgfld 20768 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ ((𝐽 ∈ Field ∧ 𝐹 ∈ (SubDRing‘𝐽)) → (𝐽 ↾s 𝐹) ∈ Field) |
| 126 | 120, 5, 125 | syl2anc 584 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝜑 → (𝐽 ↾s 𝐹) ∈ Field) |
| 127 | 124, 126 | eqeltrrd 2834 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → 𝐾 ∈ Field) |
| 128 | 30, 27 | sstrd 3974 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ (𝜑 → 𝐹 ⊆ (Base‘𝐿)) |
| 129 | 111, 25 | ressbas2 17262 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ (𝐹 ⊆ (Base‘𝐿) → 𝐹 = (Base‘𝐾)) |
| 130 | 128, 129 | syl 17 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (𝜑 → 𝐹 = (Base‘𝐾)) |
| 131 | 130 | oveq2d 7429 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝜑 → (𝐽 ↾s 𝐹) = (𝐽 ↾s (Base‘𝐾))) |
| 132 | 124, 131 | eqtr3d 2771 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → 𝐾 = (𝐽 ↾s (Base‘𝐾))) |
| 133 | 130, 33 | eqeltrrd 2834 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝜑 → (Base‘𝐾) ∈ (SubRing‘𝐽)) |
| 134 | | brfldext 33638 |
. . . . . . . . . . . . . . . . . . . 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 838 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝜑 → 𝐽/FldExt𝐾) |
| 137 | 136 | adantr 480 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐽/FldExt𝐾) |
| 138 | | extdgval 33646 |
. . . . . . . . . . . . . . . . 17
⊢ (𝐽/FldExt𝐾 → (𝐽[:]𝐾) = (dim‘((subringAlg ‘𝐽)‘(Base‘𝐾)))) |
| 139 | 137, 138 | syl 17 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → (𝐽[:]𝐾) = (dim‘((subringAlg ‘𝐽)‘(Base‘𝐾)))) |
| 140 | 130 | fveq2d 6890 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝜑 → ((subringAlg ‘𝐽)‘𝐹) = ((subringAlg ‘𝐽)‘(Base‘𝐾))) |
| 141 | 140 | fveq2d 6890 |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → (dim‘((subringAlg
‘𝐽)‘𝐹)) = (dim‘((subringAlg
‘𝐽)‘(Base‘𝐾)))) |
| 142 | 141 | adantr 480 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
(dim‘((subringAlg ‘𝐽)‘𝐹)) = (dim‘((subringAlg ‘𝐽)‘(Base‘𝐾)))) |
| 143 | 37 | dimval 33591 |
. . . . . . . . . . . . . . . . 17
⊢
((((subringAlg ‘𝐽)‘𝐹) ∈ LVec ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
(dim‘((subringAlg ‘𝐽)‘𝐹)) = (♯‘𝑏)) |
| 144 | 36, 143 | sylan 580 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
(dim‘((subringAlg ‘𝐽)‘𝐹)) = (♯‘𝑏)) |
| 145 | 139, 142,
144 | 3eqtr2d 2775 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → (𝐽[:]𝐾) = (♯‘𝑏)) |
| 146 | | fldextrspunfld.7 |
. . . . . . . . . . . . . . . 16
⊢ (𝜑 → (𝐽[:]𝐾) ∈
ℕ0) |
| 147 | 146 | adantr 480 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → (𝐽[:]𝐾) ∈
ℕ0) |
| 148 | 145, 147 | eqeltrrd 2834 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → (♯‘𝑏) ∈
ℕ0) |
| 149 | | hashclb 14380 |
. . . . . . . . . . . . . . 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 33666 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐶 = ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏)) |
| 153 | 152 | eqimssd 4020 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐶 ⊆ ((LSpan‘((subringAlg
‘𝐿)‘𝐺))‘𝑏)) |
| 154 | 25, 55, 68, 54, 40 | resssra 33578 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐺) = (((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶)) |
| 155 | 154 | fveq2d 6890 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (LSpan‘((subringAlg
‘𝐸)‘𝐺)) = (LSpan‘(((subringAlg
‘𝐿)‘𝐺) ↾s 𝐶))) |
| 156 | 155 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
(LSpan‘((subringAlg ‘𝐸)‘𝐺)) = (LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶))) |
| 157 | 156 | fveq1d 6888 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏) = ((LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶))‘𝑏)) |
| 158 | 115, 12 | syl 17 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐺 ∈ (SubRing‘𝐿)) |
| 159 | | eqid 2734 |
. . . . . . . . . . . . . . 15
⊢
((subringAlg ‘𝐿)‘𝐺) = ((subringAlg ‘𝐿)‘𝐺) |
| 160 | 159 | sralmod 21157 |
. . . . . . . . . . . . . 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 4001 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝑏 ⊆ 𝐻) |
| 165 | 116, 26 | syl 17 |
. . . . . . . . . . . . . . . . 17
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐻 ⊆ (Base‘𝐿)) |
| 166 | 164, 165 | sstrd 3974 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝑏 ⊆ (Base‘𝐿)) |
| 167 | | eqidd 2735 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝜑 → ((subringAlg ‘𝐿)‘𝐺) = ((subringAlg ‘𝐿)‘𝐺)) |
| 168 | 167, 46 | srabase 21145 |
. . . . . . . . . . . . . . . . 17
⊢ (𝜑 → (Base‘𝐿) = (Base‘((subringAlg
‘𝐿)‘𝐺))) |
| 169 | 168 | adantr 480 |
. . . . . . . . . . . . . . . 16
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → (Base‘𝐿) = (Base‘((subringAlg
‘𝐿)‘𝐺))) |
| 170 | 166, 169 | sseqtrd 4000 |
. . . . . . . . . . . . . . 15
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝑏 ⊆ (Base‘((subringAlg
‘𝐿)‘𝐺))) |
| 171 | | eqid 2734 |
. . . . . . . . . . . . . . . 16
⊢
(Base‘((subringAlg ‘𝐿)‘𝐺)) = (Base‘((subringAlg ‘𝐿)‘𝐺)) |
| 172 | | eqid 2734 |
. . . . . . . . . . . . . . . 16
⊢
(LSubSp‘((subringAlg ‘𝐿)‘𝐺)) = (LSubSp‘((subringAlg ‘𝐿)‘𝐺)) |
| 173 | | eqid 2734 |
. . . . . . . . . . . . . . . 16
⊢
(LSpan‘((subringAlg ‘𝐿)‘𝐺)) = (LSpan‘((subringAlg ‘𝐿)‘𝐺)) |
| 174 | 171, 172,
173 | lspcl 20943 |
. . . . . . . . . . . . . . 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 2833 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐶 ∈ (LSubSp‘((subringAlg
‘𝐿)‘𝐺))) |
| 177 | 99 | adantr 480 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐻 ⊆ 𝐶) |
| 178 | 164, 177 | sstrd 3974 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝑏 ⊆ 𝐶) |
| 179 | | eqid 2734 |
. . . . . . . . . . . . . 14
⊢
(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶) = (((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶) |
| 180 | | eqid 2734 |
. . . . . . . . . . . . . 14
⊢
(LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶)) = (LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶)) |
| 181 | 179, 173,
180, 172 | lsslsp 20982 |
. . . . . . . . . . . . 13
⊢
((((subringAlg ‘𝐿)‘𝐺) ∈ LMod ∧ 𝐶 ∈ (LSubSp‘((subringAlg
‘𝐿)‘𝐺)) ∧ 𝑏 ⊆ 𝐶) → ((LSpan‘(((subringAlg
‘𝐿)‘𝐺) ↾s 𝐶))‘𝑏) = ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏)) |
| 182 | 161, 176,
178, 181 | syl3anc 1372 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
((LSpan‘(((subringAlg ‘𝐿)‘𝐺) ↾s 𝐶))‘𝑏) = ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏)) |
| 183 | 157, 182 | eqtr2d 2770 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝑏) = ((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏)) |
| 184 | 153, 183 | sseqtrd 4000 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) → 𝐶 ⊆ ((LSpan‘((subringAlg
‘𝐸)‘𝐺))‘𝑏)) |
| 185 | 184 | adantr 480 |
. . . . . . . . 9
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → 𝐶 ⊆ ((LSpan‘((subringAlg
‘𝐸)‘𝐺))‘𝑏)) |
| 186 | 102, 185 | eqsstrrd 3999 |
. . . . . . . 8
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → (Base‘𝐸) ⊆
((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏)) |
| 187 | 106, 186 | eqsstrrd 3999 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) →
(Base‘((subringAlg ‘𝐸)‘𝐺)) ⊆ ((LSpan‘((subringAlg
‘𝐸)‘𝐺))‘𝑏)) |
| 188 | 110, 187 | eqssd 3981 |
. . . . . 6
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) →
((LSpan‘((subringAlg ‘𝐸)‘𝐺))‘𝑏) = (Base‘((subringAlg ‘𝐸)‘𝐺))) |
| 189 | 89, 81, 90, 85, 86, 107, 188 | lbslelsp 33588 |
. . . . 5
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) → (♯‘𝑐) ≤ (♯‘𝑏)) |
| 190 | 88, 189 | eqbrtrd 5145 |
. . . 4
⊢ (((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) ∧ 𝑐 ∈ (LBasis‘((subringAlg
‘𝐸)‘𝐺))) →
(dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (♯‘𝑏)) |
| 191 | 84, 190 | n0limd 32420 |
. . 3
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
(dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (♯‘𝑏)) |
| 192 | 191, 145 | breqtrrd 5151 |
. 2
⊢ ((𝜑 ∧ 𝑏 ∈ (LBasis‘((subringAlg
‘𝐽)‘𝐹))) →
(dim‘((subringAlg ‘𝐸)‘𝐺)) ≤ (𝐽[:]𝐾)) |
| 193 | 39, 192 | n0limd 32420 |
1
⊢ (𝜑 → (dim‘((subringAlg
‘𝐸)‘𝐺)) ≤ (𝐽[:]𝐾)) |