Proof of Theorem rngass
Step | Hyp | Ref
| Expression |
1 | | eqid 2189 |
. . . . 5
⊢
(mulGrp‘𝑅) =
(mulGrp‘𝑅) |
2 | 1 | rngmgp 13307 |
. . . 4
⊢ (𝑅 ∈ Rng →
(mulGrp‘𝑅) ∈
Smgrp) |
3 | 2 | adantr 276 |
. . 3
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (mulGrp‘𝑅) ∈ Smgrp) |
4 | | simpr1 1005 |
. . . 4
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑋 ∈ 𝐵) |
5 | | rngass.b |
. . . . . 6
⊢ 𝐵 = (Base‘𝑅) |
6 | 1, 5 | mgpbasg 13297 |
. . . . 5
⊢ (𝑅 ∈ Rng → 𝐵 =
(Base‘(mulGrp‘𝑅))) |
7 | 6 | adantr 276 |
. . . 4
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝐵 = (Base‘(mulGrp‘𝑅))) |
8 | 4, 7 | eleqtrd 2268 |
. . 3
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑋 ∈ (Base‘(mulGrp‘𝑅))) |
9 | | simpr2 1006 |
. . . 4
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑌 ∈ 𝐵) |
10 | 9, 7 | eleqtrd 2268 |
. . 3
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑌 ∈ (Base‘(mulGrp‘𝑅))) |
11 | | simpr3 1007 |
. . . 4
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑍 ∈ 𝐵) |
12 | 11, 7 | eleqtrd 2268 |
. . 3
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑍 ∈ (Base‘(mulGrp‘𝑅))) |
13 | | eqid 2189 |
. . . 4
⊢
(Base‘(mulGrp‘𝑅)) = (Base‘(mulGrp‘𝑅)) |
14 | | eqid 2189 |
. . . 4
⊢
(+g‘(mulGrp‘𝑅)) =
(+g‘(mulGrp‘𝑅)) |
15 | 13, 14 | sgrpass 12886 |
. . 3
⊢
(((mulGrp‘𝑅)
∈ Smgrp ∧ (𝑋
∈ (Base‘(mulGrp‘𝑅)) ∧ 𝑌 ∈ (Base‘(mulGrp‘𝑅)) ∧ 𝑍 ∈ (Base‘(mulGrp‘𝑅)))) → ((𝑋(+g‘(mulGrp‘𝑅))𝑌)(+g‘(mulGrp‘𝑅))𝑍) = (𝑋(+g‘(mulGrp‘𝑅))(𝑌(+g‘(mulGrp‘𝑅))𝑍))) |
16 | 3, 8, 10, 12, 15 | syl13anc 1251 |
. 2
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((𝑋(+g‘(mulGrp‘𝑅))𝑌)(+g‘(mulGrp‘𝑅))𝑍) = (𝑋(+g‘(mulGrp‘𝑅))(𝑌(+g‘(mulGrp‘𝑅))𝑍))) |
17 | | rngass.t |
. . . . . . 7
⊢ · =
(.r‘𝑅) |
18 | 1, 17 | mgpplusgg 13295 |
. . . . . 6
⊢ (𝑅 ∈ Rng → · =
(+g‘(mulGrp‘𝑅))) |
19 | 18 | oveqd 5914 |
. . . . 5
⊢ (𝑅 ∈ Rng → ((𝑋 · 𝑌) · 𝑍) = ((𝑋 · 𝑌)(+g‘(mulGrp‘𝑅))𝑍)) |
20 | 18 | oveqd 5914 |
. . . . . 6
⊢ (𝑅 ∈ Rng → (𝑋 · 𝑌) = (𝑋(+g‘(mulGrp‘𝑅))𝑌)) |
21 | 20 | oveq1d 5912 |
. . . . 5
⊢ (𝑅 ∈ Rng → ((𝑋 · 𝑌)(+g‘(mulGrp‘𝑅))𝑍) = ((𝑋(+g‘(mulGrp‘𝑅))𝑌)(+g‘(mulGrp‘𝑅))𝑍)) |
22 | 19, 21 | eqtrd 2222 |
. . . 4
⊢ (𝑅 ∈ Rng → ((𝑋 · 𝑌) · 𝑍) = ((𝑋(+g‘(mulGrp‘𝑅))𝑌)(+g‘(mulGrp‘𝑅))𝑍)) |
23 | 18 | oveqd 5914 |
. . . . 5
⊢ (𝑅 ∈ Rng → (𝑋 · (𝑌 · 𝑍)) = (𝑋(+g‘(mulGrp‘𝑅))(𝑌 · 𝑍))) |
24 | 18 | oveqd 5914 |
. . . . . 6
⊢ (𝑅 ∈ Rng → (𝑌 · 𝑍) = (𝑌(+g‘(mulGrp‘𝑅))𝑍)) |
25 | 24 | oveq2d 5913 |
. . . . 5
⊢ (𝑅 ∈ Rng → (𝑋(+g‘(mulGrp‘𝑅))(𝑌 · 𝑍)) = (𝑋(+g‘(mulGrp‘𝑅))(𝑌(+g‘(mulGrp‘𝑅))𝑍))) |
26 | 23, 25 | eqtrd 2222 |
. . . 4
⊢ (𝑅 ∈ Rng → (𝑋 · (𝑌 · 𝑍)) = (𝑋(+g‘(mulGrp‘𝑅))(𝑌(+g‘(mulGrp‘𝑅))𝑍))) |
27 | 22, 26 | eqeq12d 2204 |
. . 3
⊢ (𝑅 ∈ Rng → (((𝑋 · 𝑌) · 𝑍) = (𝑋 · (𝑌 · 𝑍)) ↔ ((𝑋(+g‘(mulGrp‘𝑅))𝑌)(+g‘(mulGrp‘𝑅))𝑍) = (𝑋(+g‘(mulGrp‘𝑅))(𝑌(+g‘(mulGrp‘𝑅))𝑍)))) |
28 | 27 | adantr 276 |
. 2
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → (((𝑋 · 𝑌) · 𝑍) = (𝑋 · (𝑌 · 𝑍)) ↔ ((𝑋(+g‘(mulGrp‘𝑅))𝑌)(+g‘(mulGrp‘𝑅))𝑍) = (𝑋(+g‘(mulGrp‘𝑅))(𝑌(+g‘(mulGrp‘𝑅))𝑍)))) |
29 | 16, 28 | mpbird 167 |
1
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((𝑋 · 𝑌) · 𝑍) = (𝑋 · (𝑌 · 𝑍))) |