Proof of Theorem slmdvsdi
Step | Hyp | Ref
| Expression |
1 | | slmdvsdi.v |
. . . . . . . . 9
⊢ 𝑉 = (Base‘𝑊) |
2 | | slmdvsdi.a |
. . . . . . . . 9
⊢ + =
(+g‘𝑊) |
3 | | slmdvsdi.s |
. . . . . . . . 9
⊢ · = (
·𝑠 ‘𝑊) |
4 | | eqid 2736 |
. . . . . . . . 9
⊢
(0g‘𝑊) = (0g‘𝑊) |
5 | | slmdvsdi.f |
. . . . . . . . 9
⊢ 𝐹 = (Scalar‘𝑊) |
6 | | slmdvsdi.k |
. . . . . . . . 9
⊢ 𝐾 = (Base‘𝐹) |
7 | | eqid 2736 |
. . . . . . . . 9
⊢
(+g‘𝐹) = (+g‘𝐹) |
8 | | eqid 2736 |
. . . . . . . . 9
⊢
(.r‘𝐹) = (.r‘𝐹) |
9 | | eqid 2736 |
. . . . . . . . 9
⊢
(1r‘𝐹) = (1r‘𝐹) |
10 | | eqid 2736 |
. . . . . . . . 9
⊢
(0g‘𝐹) = (0g‘𝐹) |
11 | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 | slmdlema 31501 |
. . . . . . . 8
⊢ ((𝑊 ∈ SLMod ∧ (𝑅 ∈ 𝐾 ∧ 𝑅 ∈ 𝐾) ∧ (𝑌 ∈ 𝑉 ∧ 𝑋 ∈ 𝑉)) → (((𝑅 · 𝑋) ∈ 𝑉 ∧ (𝑅 · (𝑋 + 𝑌)) = ((𝑅 · 𝑋) + (𝑅 · 𝑌)) ∧ ((𝑅(+g‘𝐹)𝑅) · 𝑋) = ((𝑅 · 𝑋) + (𝑅 · 𝑋))) ∧ (((𝑅(.r‘𝐹)𝑅) · 𝑋) = (𝑅 · (𝑅 · 𝑋)) ∧ ((1r‘𝐹) · 𝑋) = 𝑋 ∧ ((0g‘𝐹) · 𝑋) = (0g‘𝑊)))) |
12 | 11 | simpld 496 |
. . . . . . 7
⊢ ((𝑊 ∈ SLMod ∧ (𝑅 ∈ 𝐾 ∧ 𝑅 ∈ 𝐾) ∧ (𝑌 ∈ 𝑉 ∧ 𝑋 ∈ 𝑉)) → ((𝑅 · 𝑋) ∈ 𝑉 ∧ (𝑅 · (𝑋 + 𝑌)) = ((𝑅 · 𝑋) + (𝑅 · 𝑌)) ∧ ((𝑅(+g‘𝐹)𝑅) · 𝑋) = ((𝑅 · 𝑋) + (𝑅 · 𝑋)))) |
13 | 12 | simp2d 1143 |
. . . . . 6
⊢ ((𝑊 ∈ SLMod ∧ (𝑅 ∈ 𝐾 ∧ 𝑅 ∈ 𝐾) ∧ (𝑌 ∈ 𝑉 ∧ 𝑋 ∈ 𝑉)) → (𝑅 · (𝑋 + 𝑌)) = ((𝑅 · 𝑋) + (𝑅 · 𝑌))) |
14 | 13 | 3expia 1121 |
. . . . 5
⊢ ((𝑊 ∈ SLMod ∧ (𝑅 ∈ 𝐾 ∧ 𝑅 ∈ 𝐾)) → ((𝑌 ∈ 𝑉 ∧ 𝑋 ∈ 𝑉) → (𝑅 · (𝑋 + 𝑌)) = ((𝑅 · 𝑋) + (𝑅 · 𝑌)))) |
15 | 14 | anabsan2 672 |
. . . 4
⊢ ((𝑊 ∈ SLMod ∧ 𝑅 ∈ 𝐾) → ((𝑌 ∈ 𝑉 ∧ 𝑋 ∈ 𝑉) → (𝑅 · (𝑋 + 𝑌)) = ((𝑅 · 𝑋) + (𝑅 · 𝑌)))) |
16 | 15 | exp4b 432 |
. . 3
⊢ (𝑊 ∈ SLMod → (𝑅 ∈ 𝐾 → (𝑌 ∈ 𝑉 → (𝑋 ∈ 𝑉 → (𝑅 · (𝑋 + 𝑌)) = ((𝑅 · 𝑋) + (𝑅 · 𝑌)))))) |
17 | 16 | com34 91 |
. 2
⊢ (𝑊 ∈ SLMod → (𝑅 ∈ 𝐾 → (𝑋 ∈ 𝑉 → (𝑌 ∈ 𝑉 → (𝑅 · (𝑋 + 𝑌)) = ((𝑅 · 𝑋) + (𝑅 · 𝑌)))))) |
18 | 17 | 3imp2 1349 |
1
⊢ ((𝑊 ∈ SLMod ∧ (𝑅 ∈ 𝐾 ∧ 𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → (𝑅 · (𝑋 + 𝑌)) = ((𝑅 · 𝑋) + (𝑅 · 𝑌))) |