Proof of Theorem rngass
| Step | Hyp | Ref
| Expression |
| 1 | | eqid 2196 |
. . . . 5
⊢
(mulGrp‘𝑅) =
(mulGrp‘𝑅) |
| 2 | 1 | rngmgp 13568 |
. . . 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 13558 |
. . . . 5
⊢ (𝑅 ∈ Rng → 𝐵 =
(Base‘(mulGrp‘𝑅))) |
| 7 | 6 | adantr 276 |
. . . 4
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝐵 = (Base‘(mulGrp‘𝑅))) |
| 8 | 4, 7 | eleqtrd 2275 |
. . 3
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑋 ∈ (Base‘(mulGrp‘𝑅))) |
| 9 | | simpr2 1006 |
. . . 4
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑌 ∈ 𝐵) |
| 10 | 9, 7 | eleqtrd 2275 |
. . 3
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑌 ∈ (Base‘(mulGrp‘𝑅))) |
| 11 | | simpr3 1007 |
. . . 4
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑍 ∈ 𝐵) |
| 12 | 11, 7 | eleqtrd 2275 |
. . 3
⊢ ((𝑅 ∈ Rng ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → 𝑍 ∈ (Base‘(mulGrp‘𝑅))) |
| 13 | | eqid 2196 |
. . . 4
⊢
(Base‘(mulGrp‘𝑅)) = (Base‘(mulGrp‘𝑅)) |
| 14 | | eqid 2196 |
. . . 4
⊢
(+g‘(mulGrp‘𝑅)) =
(+g‘(mulGrp‘𝑅)) |
| 15 | 13, 14 | sgrpass 13110 |
. . 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 13556 |
. . . . . 6
⊢ (𝑅 ∈ Rng → · =
(+g‘(mulGrp‘𝑅))) |
| 19 | 18 | oveqd 5942 |
. . . . 5
⊢ (𝑅 ∈ Rng → ((𝑋 · 𝑌) · 𝑍) = ((𝑋 · 𝑌)(+g‘(mulGrp‘𝑅))𝑍)) |
| 20 | 18 | oveqd 5942 |
. . . . . 6
⊢ (𝑅 ∈ Rng → (𝑋 · 𝑌) = (𝑋(+g‘(mulGrp‘𝑅))𝑌)) |
| 21 | 20 | oveq1d 5940 |
. . . . 5
⊢ (𝑅 ∈ Rng → ((𝑋 · 𝑌)(+g‘(mulGrp‘𝑅))𝑍) = ((𝑋(+g‘(mulGrp‘𝑅))𝑌)(+g‘(mulGrp‘𝑅))𝑍)) |
| 22 | 19, 21 | eqtrd 2229 |
. . . 4
⊢ (𝑅 ∈ Rng → ((𝑋 · 𝑌) · 𝑍) = ((𝑋(+g‘(mulGrp‘𝑅))𝑌)(+g‘(mulGrp‘𝑅))𝑍)) |
| 23 | 18 | oveqd 5942 |
. . . . 5
⊢ (𝑅 ∈ Rng → (𝑋 · (𝑌 · 𝑍)) = (𝑋(+g‘(mulGrp‘𝑅))(𝑌 · 𝑍))) |
| 24 | 18 | oveqd 5942 |
. . . . . 6
⊢ (𝑅 ∈ Rng → (𝑌 · 𝑍) = (𝑌(+g‘(mulGrp‘𝑅))𝑍)) |
| 25 | 24 | oveq2d 5941 |
. . . . 5
⊢ (𝑅 ∈ Rng → (𝑋(+g‘(mulGrp‘𝑅))(𝑌 · 𝑍)) = (𝑋(+g‘(mulGrp‘𝑅))(𝑌(+g‘(mulGrp‘𝑅))𝑍))) |
| 26 | 23, 25 | eqtrd 2229 |
. . . 4
⊢ (𝑅 ∈ Rng → (𝑋 · (𝑌 · 𝑍)) = (𝑋(+g‘(mulGrp‘𝑅))(𝑌(+g‘(mulGrp‘𝑅))𝑍))) |
| 27 | 22, 26 | eqeq12d 2211 |
. . 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 ∧ (𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵 ∧ 𝑍 ∈ 𝐵)) → ((𝑋 · 𝑌) · 𝑍) = (𝑋 · (𝑌 · 𝑍))) |