Proof of Theorem ringdir
| Step | Hyp | Ref
| Expression |
| 1 | | opreq1 3974 |
. . . . . . 7
⊢ (x = A →
(xGy) = (AGy)) |
| 2 | 1 | opreq1d 3981 |
. . . . . 6
⊢ (x = A →
((xGy)Hz) = ((AGy)Hz)) |
| 3 | | opreq1 3974 |
. . . . . . 7
⊢ (x = A →
(xHz) = (AHz)) |
| 4 | 3 | opreq1d 3981 |
. . . . . 6
⊢ (x = A →
((xHz)G(yHz)) =
((AHz)G(yHz))) |
| 5 | 2, 4 | eqeq12d 1492 |
. . . . 5
⊢ (x = A →
(((xGy)Hz) = ((xHz)G(yHz)) ↔ ((AGy)Hz) = ((AHz)G(yHz)))) |
| 6 | | opreq2 3975 |
. . . . . . 7
⊢ (y = B →
(AGy) = (AGB)) |
| 7 | 6 | opreq1d 3981 |
. . . . . 6
⊢ (y = B →
((AGy)Hz) = ((AGB)Hz)) |
| 8 | | opreq1 3974 |
. . . . . . 7
⊢ (y = B →
(yHz) = (BHz)) |
| 9 | 8 | opreq2d 3982 |
. . . . . 6
⊢ (y = B →
((AHz)G(yHz)) =
((AHz)G(BHz))) |
| 10 | 7, 9 | eqeq12d 1492 |
. . . . 5
⊢ (y = B →
(((AGy)Hz) = ((AHz)G(yHz)) ↔ ((AGB)Hz) = ((AHz)G(BHz)))) |
| 11 | | opreq2 3975 |
. . . . . 6
⊢ (z = C →
((AGB)Hz) = ((AGB)HC)) |
| 12 | | opreq2 3975 |
. . . . . . 7
⊢ (z = C →
(AHz) = (AHC)) |
| 13 | | opreq2 3975 |
. . . . . . 7
⊢ (z = C →
(BHz) = (BHC)) |
| 14 | 12, 13 | opreq12d 3984 |
. . . . . 6
⊢ (z = C →
((AHz)G(BHz)) =
((AHC)G(BHC))) |
| 15 | 11, 14 | eqeq12d 1492 |
. . . . 5
⊢ (z = C →
(((AGB)Hz) = ((AHz)G(BHz)) ↔ ((AGB)HC) = ((AHC)G(BHC)))) |
| 16 | 5, 10, 15 | rcla43v 1885 |
. . . 4
⊢ ((A ∈ X ⋀ B ∈ X ⋀ C ∈ X) → (∀x ∈ X ∀y ∈ X ∀z ∈ X ((xGy)Hz) = ((xHz)G(yHz)) →
((AGB)HC) = ((AHC)G(BHC)))) |
| 17 | | 3simp3 792 |
. . . . . . 7
⊢ ((((xHy)Hz) = (xH(yHz)) ⋀ (xH(yGz)) =
((xHy)G(xHz)) ⋀ ((xGy)Hz) = ((xHz)G(yHz))) → ((xGy)Hz) = ((xHz)G(yHz))) |
| 18 | 17 | r19.20si 1709 |
. . . . . 6
⊢ (∀z ∈ X (((xHy)Hz) = (xH(yHz)) ⋀ (xH(yGz)) =
((xHy)G(xHz)) ⋀ ((xGy)Hz) = ((xHz)G(yHz))) → ∀z ∈ X ((xGy)Hz) = ((xHz)G(yHz))) |
| 19 | 18 | r19.20si 1709 |
. . . . 5
⊢ (∀y ∈ X ∀z ∈ X (((xHy)Hz) = (xH(yHz)) ⋀ (xH(yGz)) =
((xHy)G(xHz)) ⋀ ((xGy)Hz) = ((xHz)G(yHz))) → ∀y ∈ X ∀z ∈ X ((xGy)Hz) = ((xHz)G(yHz))) |
| 20 | 19 | r19.20si 1709 |
. . . 4
⊢ (∀x ∈ X ∀y ∈ X ∀z ∈ X (((xHy)Hz) = (xH(yHz)) ⋀ (xH(yGz)) =
((xHy)G(xHz)) ⋀ ((xGy)Hz) = ((xHz)G(yHz))) → ∀x ∈ X ∀y ∈ X ∀z ∈ X ((xGy)Hz) = ((xHz)G(yHz))) |
| 21 | 16, 20 | syl5 21 |
. . 3
⊢ ((A ∈ X ⋀ B ∈ X ⋀ C ∈ X) → (∀x ∈ X ∀y ∈ X ∀z ∈ X (((xHy)Hz) = (xH(yHz)) ⋀ (xH(yGz)) =
((xHy)G(xHz)) ⋀ ((xGy)Hz) = ((xHz)G(yHz))) → ((AGB)HC) = ((AHC)G(BHC)))) |
| 22 | | ringdi.1 |
. . . . . 6
⊢ G = (1st ‘R) |
| 23 | | ringdi.2 |
. . . . . 6
⊢ H = (2nd ‘R) |
| 24 | | ringdi.3 |
. . . . . 6
⊢ X = ran G |
| 25 | 22, 23, 24 | ringi 8138 |
. . . . 5
⊢ (R ∈ Ring →
((G ∈
Abel ⋀ H:(X ×
X)–→X) ⋀ (∀x ∈ X ∀y ∈ X ∀z ∈ X (((xHy)Hz) = (xH(yHz)) ⋀ (xH(yGz)) =
((xHy)G(xHz)) ⋀ ((xGy)Hz) = ((xHz)G(yHz))) ⋀ ∃x ∈ X ∀y ∈ X ((yHx) = y ⋀ (xHy) = y)))) |
| 26 | 25 | pm3.27d 325 |
. . . 4
⊢ (R ∈ Ring →
(∀x
∈ X ∀y ∈ X ∀z ∈ X (((xHy)Hz) = (xH(yHz)) ⋀ (xH(yGz)) =
((xHy)G(xHz)) ⋀ ((xGy)Hz) = ((xHz)G(yHz))) ⋀ ∃x ∈ X ∀y ∈ X ((yHx) = y ⋀ (xHy) = y))) |
| 27 | 26 | pm3.26d 321 |
. . 3
⊢ (R ∈ Ring →
∀x
∈ X ∀y ∈ X ∀z ∈ X (((xHy)Hz) = (xH(yHz)) ⋀ (xH(yGz)) =
((xHy)G(xHz)) ⋀ ((xGy)Hz) = ((xHz)G(yHz)))) |
| 28 | 21, 27 | syl5 21 |
. 2
⊢ ((A ∈ X ⋀ B ∈ X ⋀ C ∈ X) → (R
∈ Ring → ((AGB)HC) = ((AHC)G(BHC)))) |
| 29 | 28 | impcom 351 |
1
⊢ ((R ∈ Ring ⋀ (A ∈ X ⋀ B ∈ X ⋀ C ∈ X)) →
((AGB)HC) = ((AHC)G(BHC))) |